Discussion :

[Mercurree]

Bonjour,
en cette période de fêtes bonnes fêtes a toute et a tout.
alors le problème est que j'effectue une formule qui permet de chercher une cellule d'une colonne dans une autre colonne et afficher le résultat dans une autre colonne le problème c'est que la taille des deux premières colonnes est variable mais entre 400 et 500 lignes hors la formule s'applique sur 149560 lignes et je voudrais donc limiter la colonne des résultats a la colonne A.

Code :

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

1
2
Worksheets("synthese").Range("C:C").FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC[-2],C[-1],1,0)),""Faux"",""correcte"")"

merci beaucoup de votre aide.

ps: j'ai essaye de compter les ligne de la colonne A et les insérer dans range mais ça ne fonctionne pas
CDT

[Philippe Tulliez]

Bonjour,
En utilisant les tableaux structurés, (ListObject), vous ne devriez pas vous préoccuper de ce problème.

[Mercurree]

alors je ne sais pas si je l'ai bien utilisé mais ça ne fonctionne pas

Code :

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

Set myWorksheetLists = Worksheets("Feuil1").ListObjects

[Philippe Tulliez]

Bonjour,
Il manque un morceau à la ligne de code que vous publiez.
Vous pouvez également utiliser la syntaxe avec Range("Nom tableau")
N'étant pas devant mon PC, je ne peux mieux vous répondre

[Mercurree]

merci de vos réponse malheureusement je dois faire des faute étant néophyte de ce langage je galère un peut

voici ce que j'ai fait mais je pense que c'est malheureusement faux car j'ai l'erreur 1004

Code :

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

1
2
Worksheets("FeuilX").Range ("C2") & Range("FeuilX[Name]").FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC[-2],C[-1],1,0)),""faux"",""correcte"")"

[Mercurree]

j'ai essayé ça mais ça ne marche pas mieux si quelqu'un voit l'erreur

Code :

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

1
2
3
4
5
DL = Range("A" & Rows.Count).End(xlUp).Row
 
 
Worksheets("synthese").Range("C2:C" & DL).FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC[-2],C[-1],1,0)),""Faux"",""correcte"")"