Macro qui efface le contenu de certaines cellules de la ligne sélectionnée

[Valter]

Bonjour le Forum,

Je cherche comment effacer par macro le contenu de certaines cellules d'une ligne sélectionnée, j'ai un tableau avec un suivi de commandes, une fois que la commande est arrivée et que je n'ai plus besoin des informations, j'aimerais pouvoir sélectionner la ligne et l'effacer par macro, toutefois il faut effacer que les cellules qui ne contiennent pas de formules, de même que si je sélectionne plusieurs lignes.

Je joins un fichier d'exemples.
Merci

 

[Staple1600]

Re : Macro qui efface le contenu de certaines cellules de la ligne sélectionnée

Bonsoir à tous

Valter
Affectes cette macro à ton bouton Effacer lignes

Sub a()
Dim d&, nl&
d = Selection.Range("A1").Row: nl = Selection.Rows.Count
Range(Cells(d, "D"), Cells(d, "AA")).Resize(nl).SpecialCells(xlCellTypeConstants) = Empty
End Sub

NB: test OK sur mon PC.

 

[Valter]

Re : Macro qui efface le contenu de certaines cellules de la ligne sélectionnée

Merci Staple1600, la macro fonctionne parfaitement bien, il y a cependant un petit problème, si la feuille est verrouillée cela ne fonctionne pas, mais en réalité je ne devrais pas avoir besoin de la déverrouiller car seules les cellules déverrouilles reçoivent des informations lors du remplissage, et seules ces mêmes cellules doivent être effacées pour recevoir à nouveau d'autres informations.
Je joins à nouveau mon fichier en mentionnant plus exactement quelles sont les cellules à effacer lorsque la ligne est sélectionnée.