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
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
Bonjour,
sans ouvrir ton fichier, si tu supprimes une ligne, tu supprimes une ligne !Comment supprimer une ligne sélectionnée sauf une cellule contenant une formule ?
Ne voulais-tu pas dire effacer et non supprimer les autres données de la ligne ?
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur :resolu: si votre problème l'est
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
Milles excuses.
C'est effacer qu'il fallait comprendre ( désolé )
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
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur :resolu: si votre problème l'est
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
Désolé pour mon absence inopinée.
Je viens de tester et cela me parait parfait.
Merci Dom
Cordialement
margar
Partager