Discussion :

[yayasiano]

Bonjour voila j'ai ce problème. Je dois étendre ma formule à tout les cellules de la colonne mais le soucis c'est que ma colonne est variable.
J'ai essayé ce code :

Code :

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

1
2
3
 i = Range("A1").End(xlUp).Select
    Range("U2").FormulaLocal = "=NB.SI(A:A;A2)>1"
    Selection.AutoFill Destination:=Range("U2:U" & i), Type:=xlFillDefault

Mais excel me retourne l'erreur suivante :

La méthode Range de l'objet _Global a échoué.

j'ai vraiment besoin d'une solution svp.

Merci d'avance pour vos réponses.

[aalex_38]

Bonjour,

Attention aux selects ajoutés avec l'editeur de macro, je pense que ton code comme ça doit fonctionner :

Code :

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

1
2
3
i = Range("A1").End(xlUp)  '==> pas besoin de selectionner la cellule ici
Range("U2").FormulaLocal = "=NB.SI(A:A;A2)>1"
Range("U2").AutoFill Destination:=Range("U2:U" & i), Type:=xlFillDefault

Voilà, tu dis.

[ouskel'n'or]

C'est vrai, on a souvent tendance à se compliquer la vie :

Code :

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

1
2
3
    i = Range("A" & Rows.Count).End(xlUp).Row
    Range("U2").FormulaLocal = "=NB.SI(A:A;A2)>1"
    Range("U2").copy Range("U2:U" & i)

Edit
J'ai regardé la formule et il serait intéressant que tu précises ce que tu veux obtenir : Veux-tu que la cellule comparée soit toujours A2 ou veux-tu que ce soit A2 puis A3 puis A4 ?
Telle quelle, le code correspond à la seconde proposition.
Pour une comparaison systématique avec A2, corrige comme suit :

Code :

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

    Range("U2").FormulaLocal = "=NB.SI(A:A;A$2)>1"

[yayasiano]

Merci pour vos réponses aalex et oukselnor.

aalex38 il y avait une erreur que tu n'avais pas repérée dans mon code, dans la variable i je cherchais la derniere cellule non vide de la colonne A alors qu'il fallait chercher celle de la colonne U. Mais meme avec ca le code ne marchait pas j'avait déjà essayé ce que tu m'avais suggéré.
Par contre ton code est impeccable oukselnor le premier me permet exactement de faire ce que je souhaite c a dire comparer chaque cellule de la colonne U avec chacune donc le premier code.
Merci encore a vous c'est super gentil.
Franchement c'est génial l'entraide en plus des reponses aussi rapides merci les gars.

Code :

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

1
2
3
    i = Range("A" & Rows.Count).End(xlUp).Row
    Range("U2").FormulaLocal = "=NB.SI(A:A;A2)>1"
    Range("U2").copy Range("U2:U" & i)

Par contre j'ai un autre soucis sur ce code lorsque je réinsère le meme code en changant seulement la formule il me met l'erreur une erreur de compilation : attendue : fin d'instruction.
Voici le code :

Code :

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

1
2
3
    j = Range("A" & Rows.Count).End(xlUp).Row
    Range("V2").FormulaLocal = "=SI(A2=A3;"SUPPR";"")"
    Range("V2").Copy Range("V2:V" & j)

Encore merci d'avance pour vos réponses.

[ouskel'n'or]

Code :

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

1
2
3
    j = Range("A" & Rows.Count).End(xlUp).Row
    Range("V2").FormulaLocal = "=SI(A2=A3;""SUPPR"";"""")"
    Range("V2").Copy Range("V2:V" & j)

[yayasiano]

Merci c super exactement ce que je voulais super forum encore merci.