Macro pour éffacer tableau

[eduraiss]

Bonjour le forum

Voici en exemple un fichier ou il me faudrait un code VBA pour effacer les tableaux ou le nom de la sociéte est R

Les explications sont dans le fichier

Merci a vous

Cordialement,

 

[Modeste]

Re : Macro pour éffacer tableau

Bonjour eduraiss,

Quelque chose comme:

Sub supprSoc()
For lig = 9 To Cells(Rows.Count, 1).End(xlUp).Row Step 29
    If Cells(lig, 2) = "R" Then Cells(lig - 4, 1).Resize(25, 2).ClearContents
Next lig
End Sub

... Si la feuille active, au moment de lancer la macro est la bonne!

PS: le tri n'est pas nécessaire (je ne sais d'ailleurs pas comment tu le ferais!?)

 

[eduraiss]

Re : Macro pour éffacer tableau

Re Bonjour

Merci Modeste c'est exactement ce qu'il me fallait

Très cordialement,