Selection de colonnes par VBA

[nikolah66]

Bonjour,

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 :

valeurCherchée = "toto"
Range("3:3").Find(what:=valeurCherchée, LookIn:=xlValues, lookat:=xlWhole).EntireColumn.Select

mais je ne sais pas comment faire une selection globale des 8 colonnes suivantes.
Si quelqu'un a une idée.

Merci d'avance

 

[Pierrot93]

Re : Selection de colonnes par VBA

Bonjour,

regarde peut être ceci :

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

bon après midi
@+

 

[Dranreb]

Re : Selection de colonnes par VBA

Bonjour
Évitez les 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 :

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)

 

[nikolah66]

Re : Selection de colonnes par VBA

Merci beaucoup à tous les 2, j'ai réussi à m'en sortir grâce à vous.

Bon aprés midi.