Anthonymctm
XLDnaute Occasionnel
Rebonjour le Forum,
J'ai fait une petite macro qui me permet de supprimer les lignes dont la cellule en B est égal à un texte.
Sauf que l'information qui est en B ne sera pas forcément en B.
J'ai besoin de remplacer B par une variable qui sera trouvée selon ce qui est indiqué dans la ligne A.
La macro doit s'appliquer sur les ligne dont le titre de la colonne est "Code OF".
exemple : si Code OF est en E1
alors ce sera comme si le code était Set plage = Range("E:E")
Je n'ai pas besoin de trouver cette variable à chaque exécution de la boucle, juste à chaque lancement de la macro.
J'ai fait une petite macro qui me permet de supprimer les lignes dont la cellule en B est égal à un texte.
VB:
Dim p As Range, plage As Range
Set plage = Range("B:B")
With plage
For Each cel In plage.Cells
If cel = "AD-DEBUT" Or cel = "HNONP" Then If p Is Nothing Then Set p = cel Else Set p = Union(p, cel.MergeArea)
Next
End With
p.EntireRow.Delete
Sauf que l'information qui est en B ne sera pas forcément en B.
J'ai besoin de remplacer B par une variable qui sera trouvée selon ce qui est indiqué dans la ligne A.
La macro doit s'appliquer sur les ligne dont le titre de la colonne est "Code OF".
exemple : si Code OF est en E1
alors ce sera comme si le code était Set plage = Range("E:E")
Je n'ai pas besoin de trouver cette variable à chaque exécution de la boucle, juste à chaque lancement de la macro.