effacer une ligne avec conditions

[nrdz83]

Bonsoir à tous dans mon claseur ci-joint j'ai une macro qui efface la ligne selectionnée, mais je voudrais qu'elle epargne une colonne car sinon çza m'efface mes formules. D'avance merci à tous amitiés

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Catrice]

Re : effacer une ligne avec conditions

Bonsoir,

Tu peux essayer ceci :


Sub effaceligne()
If MsgBox("Êtes vous sur de vouloir effacer la ligne sélectionnée ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
Lig = ActiveCell.Row
Range("A" & Lig & ":E" & Lig & ",G" & Lig & ":IV" & Lig).ClearContents
End If
End Sub

 

[nrdz83]

Re : effacer une ligne avec conditions

🙂🙂Bonsoir catrice et merci impec ça fonctionne, je te souhaite une bonne soirée et de bonnes fêtes de fin d'année, mes amitiés