Discussion :

[MARGAR]

Bonjour le forum,

Comment supprimer une ligne sélectionnée sauf une cellule contenant une formule ?

Je vous joins un petit fichier explicatil.
Cordialement
margar

[casefayere]

Bonjour,

Comment supprimer une ligne sélectionnée sauf une cellule contenant une formule ?

sans ouvrir ton fichier, si tu supprimes une ligne, tu supprimes une ligne !

Ne voulais-tu pas dire effacer et non supprimer les autres données de la ligne ?

[MARGAR]

Milles excuses.
C'est effacer qu'il fallait comprendre ( désolé )

[casefayere]

A adapter (avec le peu de renseignement !)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub sup()
Dim DerCol As Range, Cel As Range
 
With Sheets("Feuil1")
  Set DerCol = Cells(ActiveCell.Row, .Columns.Count).End(xlToLeft)
  For Each Cel In .Range(.Cells(ActiveCell.Row, 1), DerCol)
    If Cel.HasFormula = False Then
      Cel.ClearContents
    End If
  Next
End With
End Sub

[MARGAR]

Désolé pour mon absence inopinée.

Je viens de tester et cela me parait parfait.

Merci Dom
Cordialement
margar