Discussion :

[dvdhag123]

Bonjour,
J'aimerais appliqué une formule a toute ma colonne X2 ( en X1 il y a le titre de ma colonnes)
Mais il y a un problème quand je met "X2:X", le X pose problème il faudrait que je mette une constante. Mais je ne sait pas au préalable combien de ligne peut comporter mon dossier.
Il faudrait donc que ma formule s'applique a toute ma colonne a partir de X2.
Si quelqu'un sait comment je peut faire sans selectionné une constante infini pour qu'il me prenne tout

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("X2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-23],'[suividep 102013.xls]Feuil1'!R1:R65536,7,FALSE)"
    Range("X2").Select
    Selection.AutoFill Destination:=Range("X2:X"), Type:=xlFillDefault
    Range("X2:X").Select

Cordialement
PS je suis sur excel 2007

[yoyo3d]

salut, tout d'abord , je ne suis pas un expert.

si je comprend bien ton probleme, tu à une formule de recherche de valeur dans une colonne, et tu souhaites la recopier jusqu'à la derniere ligne de ta colone "x".

moi, en générale je commence par compter le nombre de ligne de mon tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim NbLigne As Long
NbLigne = Range("A1").End(xlDown).Row

ensuite, j'essairais quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("X2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-23],'[suividep 102013.xls]Feuil1'!R1:R65536,7,FALSE)"
Range("X2:X2").Select
Selection.AutoFill Destination:=Range("X2:X" & NbLigne)

une partie du code est issu de l'enregistreur de macro, mais chez moi sa marche. dis moi si ça coince, et sinon, attend de voir les autres réponses probablement plus pertinantes que ma proposition.

[nibledispo]

bonjour YoYo,

comme toi malgré mes 600 et quelques points je connais peu de choses en VBA.

ta proposition me parait bien.
Par contre, la formule du demandeur est discutable. Sauf si le fichier de recherche comprend effectivement 65536 lignes renseignées pourquoi prolonger la recherche au delà. personnellement je donne toujours un nom limité à son nombre de lignes au fichier de recherche

cordialement.

[yoyo3d]

il peut tout a fait préciser dynamiquement les limites de sa matrice en ayant préalablement compter le nombre de ligne de celle ci avec la même méthode.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim NbLignematrice As Long
NbLignematrice = Range("A1").End(xlDown).Row
'en précisant avant le range("A1"), le nom de la feuille contenant la matrice

Dim NbLigne As Long
NbLigne = Range("A1").End(xlDown).Row 

Range("X2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-23],'[suividep 102013.xls]Feuil1'!R1:R" & NbLignematrice &",7,FALSE)"
Range("X2:X2").Select
Selection.AutoFill Destination:=Range("X2:X" & NbLigne)

j'ai juste un doute sur la syntaxe du VLOOKUP ...RC avec un nom de variable

[EngueEngue]

Zi ze peu me permettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbLigne = Range("A" & rows.count).End(xlup).Row

[yoyo3d]

mais il vous en prie...
question c'est quoi la différence avec ma méthode?

[nibledispo]

Bonjour Engue Engue,

Ta qualification t'y autorise d'autant que ta formulation est en effet préférable au cas où il y aurait une ligne vide intentionnelle ou pas.

cordialement.