Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

Staple1600

XLDnaute Barbatruc
Bonjour job75

Pourquoi définir un range qui est déjà un range ?
(cf message#4)
Où est la calembredaine dans ce que j'écris?

EDITION:
En relisant le fil de A à Z, je pense avoir compris, ne te dérange pas
 

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 !
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…