Discussion :

[hadrien4789]

Bonjour,

Sous excel, j'ai une macro qui fonctionne en utilisant des vlookup.

Le problème est que cela prend un temps fou à éxécuter.

De ce fait, je cherche à optimiser ma macro.

Cependant, je n'arrive pas à écrire une formule qui me permettrait de dire:

si la valeur de la cellule b & i n'est pas dans la colonne alors

Merci beaucoup pour votre aide

Hadrien POQUET

[joe.levrai]

Bonjour,

tu peux utiliser la fonction NB.SI (CountIf en VBA) ?

[Menhir]

si la valeur de la cellule b & i n'est pas dans la colonne alors

Code :

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

If Range("MaZone").Find (Range(b, i).Value) = Nothing Then

[hadrien4789]

Bonjour,

J'ai tenté de faire cela:

Code :

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

Range("A:A").Find(Range(E, i).Value) = Nothing

J'ai un message d'erreur indiquant "erreur de compilation : utilisation incorrecte de l'objet.

Pouvez-vous m'en dire plus sur le count ?

[joe.levrai]

Bonjour,

Range(E,i) ça n'existe pas, c'est la notation de l'objet Cells que tu fais
C'est Range("E" & i) que tu voulais utiliser ?


exemple avec NB.SI

Code :

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

1
2
3
4
5
6
7
With ThisWorkbook.Worksheets("Feuil1")
    If Application.WorksheetFunction.CountIf(.Columns(1), .Cells(i, 5).Value) = 0 Then
        MsgBox "la valeur n'existe pas dans la colonne A"
    Else
        MsgBox " la valeur existe dans la colonne A"
    End If
End With

[Menhir]

J'ai tenté de faire cela:

Code :

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

Range("A:A").Find(Range(E, i).Value) = Nothing

J'ai un message d'erreur indiquant "erreur de compilation : utilisation incorrecte de l'objet.

Commence déjà par relire (et comprendre) le code qui se trouve dans mon message.

Range(E,i) ça n'existe pas, c'est la notation de l'objet Cells que tu fais

Tu as raison. J'ai écris mon code un peu vite.
J'aurais du écrire :

Code :

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

If Range("MaZone").Find (Cells(b, i).Value) = Nothing Then

Cependant, même en remplaçant Range par Cells, son code ne peut pas marcher : il manque le test.

[joe.levrai]

Et quitte à aller au bout de cette ligne de code,

Code :

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

Is Nothing

au lieu du égal

Et ne pas négliger les paramètres lookin et lookat, source de pièges inattendus parfois

[hadrien4789]

Bonjour,

J'ai trouvé la solution,

Code :

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

Application.WorksheetFunction.CountIf(Sheets("Feuil5").Columns(5), Cells(i, 6).Value) = 0

Merci à tous