Discussion :

[oz2007]

Bonjour,

Voila j'ai écris le code suivant qui fonctionne bien si je connais le nombre de ligne exact de mon fichier. Néanmoins, comment faire pour dire à ma macro que le nombre de ligne est variable. Est ce que End(xlUp).Row peut convenir dans ce cas?
Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
 Application.Dialogs.Item(xlDialogOpen).Show
           Range("A1:AH" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
 
 Windows("Signature SEPA macro.xlsm").Activate
 Sheets("Feuil1").Select
 Range("J3").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-7],[MSG.ASS.Q.FLUX_ASSURE_CONTRAT.xlsx]MSG.ASS.Q.FLUX_ASSURE_CONTRAT!R1C10:R153060C124,115,FALSE),"""")"

[Marc-L]

Bonjour !

Est ce que End(xlUp).Row peut convenir dans ce cas?

Oui bien sûr, selon l'adéquation avec la conception de la feuille de calculs …     Voir aussi la propriété   CurrentRegion   …

___________________________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[jeanmidudu]

Oui, .end(xlup).row peut convenir.

comment .end(xlup).row fonctionne :
- .end(xlup) remonte jusqu'à trouver la première cellule non vide
- .row indique la ligne à laquelle on se trouve.

Dans ton code tu utilises Range("A65536") s'il se peut que tu aies plus de 65536 lignes, alors je te conseille de remplacer cette partie par

Code :

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

Range("A" & rows.count)

Le "rows.count" a pour effet de compter le nombre de lignes dans la feuille (lignes vides ou non vides). Au final tu devrais avoir quelque chose dans ce style :

Code :

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

1
2
3
4
5
6
7
8
9
 
Application.Dialogs.Item(xlDialogOpen).Show
           Range("A1:AH" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
 
 Windows("Signature SEPA macro.xlsm").Activate
 Sheets("Feuil1").Select
 Range("J3").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-7],[MSG.ASS.Q.FLUX_ASSURE_CONTRAT.xlsx]MSG.ASS.Q.FLUX_ASSURE_CONTRAT!R1C10:R153060C124,115,FALSE),"""")"

[oz2007]

En faite ce que je n'arrive pas à faire c'est d'intégrer le .end(xlup) dans cette formule là? Où dois-je le mettre?

Code :

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

1
2
3
 Range("J3").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-7],[MSG.ASS.Q.FLUX_ASSURE_CONTRAT.xlsx]MSG.ASS.Q.FLUX_ASSURE_CONTRAT!R1C10:R153060C124,115,FALSE),"""")"

[jeanmidudu]

Et bien cela dépend de la plage dans laquelle tu effectues ton VLookUp.
A titre d'exemple (à toi d'adapter selon la colonne que tu souhaites) :

Code :

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

1
2
 
 "=IFERROR(VLOOKUP(RC[-7],[MSG.ASS.Q.FLUX_ASSURE_CONTRAT.xlsx]MSG.ASS.Q.FLUX_ASSURE_CONTRAT!R1C10:R" & range("R" & rows.count).end(xlup).row & "C124,115,FALSE),"""")"

[oz2007]

Alors la macro

Code :

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

 "=IFERROR(VLOOKUP(RC[-7],[MSG.ASS.Q.FLUX_ASSURE_CONTRAT.xlsx]MSG.ASS.Q.FLUX_ASSURE_CONTRAT!R1C10:R" & Range("R" & Rows.Count).End(xlUp).Row & "C124,115,FALSE),"""")"

se traduit par la formule suivante: =SIERREUR(RECHERCHEV(C2;'S:\Cotisations\VERIF Signature SEPA\[MSG.ASS.Q.FLUX_ASSURE_CONTRAT.xlsx]MSG.ASS.Q.FLUX_ASSURE_CONTRAT'!$J$1:$DT$1;115;FAUX);"")

Il n'a donc pas pris en compte la plage variable (le End(xlUp).Row doit s'appliquer sur la plage JT

Merci

[jeanmidudu]

Pardon, erreur de ma part, j'ai supprimé un peu trop de trucs dans ta formule
cela devrait être mieux :

Code :

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

1
2
 
"=IFERROR(VLOOKUP(RC[-7],[MSG.ASS.Q.FLUX_ASSURE_CONTRAT.xlsx]MSG.ASS.Q.FLUX_ASSURE_CONTRAT!R1C10:R" &  cells(rows.count, 124).end(xlup).row & ",115,FALSE),"""")"

Pour faire simple, si tu n'as pas compris :
R1C10 correspond à Row 1 Column 10 (soit ligne 1 colonne 10, donc à la cellule J1)
R153060C124 correspondait à Row 153060 Column 124 (soit la cellule DT153060)
Il faut donc modifier la born supérieure des lignes de ta plage, d'après tes dires, donc il faut remplacer 153060. Pourquoi utiliser cells(rows.count,124)? Pour pouvoir obtenir la dernière ligne non vide de la colonne 124 (les lignes et colonnes sont inversées par rapport à range)
Normalement, cela devrait être un peu mieux.