Voici mon problème : je souhaite passé par VBA pour faire une selection de colonne car je vais devoir déplacer un bloc de 8 colonnes de maniere répétitive dans des dizaines de classeur. Je sais faire la selection de la premiere colonne que je reconnais avec la valeur "toto" en ligne 3 de cette maniere :
Dim valeurCherchée As String, c As Range
valeurCherchée = "toto"
Set c = Range("3:3").Find(what:=valeurCherchée, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then c.EntireColumn.Resize(, 8).Select
Dim Plage As Range
Set Plage = ActiveSheet.Range("3:3").Find(what:=valeurCherchée, LookIn:=xlValues, lookat:=xlWhole).EntireColumn
Set Plage = Plage.Resize(, 8)
et travaillez avec Plage au lieu de Selection.
À +
Bonjour Pierrot93. Je corrige au vu de ta proposition :
VB:
Set Plage = ActiveSheet.Range("3:3").Find(what:=valeurCherchée, LookIn:=xlValues, lookat:=xlWhole)
If Not Plage Is Nothing Then Set Plage = Plage.EntireColumn.Resize(, 8)