Columns(1) par colonne nommée

David

XLDnaute Occasionnel
Bonjour à tous,

j'utilise .find pour trouver un mot dans une colonne, mais je n'arrive qu'à le faire avec [A:A] ou ActiveSheet.Columns(1)

comment lui dire avec le nom de la colonne?

VB:
Set PlageDeRecherche = ActiveSheet.Columns(1)

en

Set PlageDeRecherche = nomdemacolonne

Merci
 

David

XLDnaute Occasionnel
Bonjour le fil, David

•>David
VB:
Dim COL as Long
Dim PlageDeRecherche As Range
COL=1
Set PlageDeRecherche = ActiveSheet.Columns(COL)
Merci Staple1600 ,

C'est le même chose, non?

Je me suis mal exprimé, je ne voulais pas mettre 1 Si j'ajoute une colonne à gauche de la colonne A elle serait en B et je devrais mettre COL=2.

Ma colonne A porte un nom nomdemacolonne, si j'ajoute une colonne devant A elle devient B mais gardera le nom nomdemacolonne


J'ai bien fait de faire un pose, j'ai trouvé cétait très simple.

VB:
Set PlageDeRecherche = Range("colonne_tet").Columns

Merci
 

Staple1600

XLDnaute Barbatruc
Re,

•>David
[colonne_tete] peut suffire, non ?
Un petit exemple pour expliquer
(à tester sur une feuille vierge)
VB:
Sub test_A()
Dim i&
Columns(1).Name = "colonne_tete"
For i = 1 To 6
[A:A].Insert Shift:=xlToRight
MsgBox [colonne_tete].Name.Name & Chr(13) & [colonne_tete].Address & Chr(13) & "Colonne: " & [colonne_tete].Column
Next
End Sub
 

David

XLDnaute Occasionnel
En tous les cas merci, effectivement [nomdemacolonne] marche parfaitement. pourquoi faire compliqué quand on peut faire simple. C'est quand même mieux que mon range.
C'est idiot, je fais avec [A:A] et je n'essaie même pas de mettre le nom ! :confused:
 

Discussions similaires