Discussion :

[melodyyy]

Comment dire en VBA "si tu n'as pas trouvé" sachant que j'ai ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'parcours les cellules de la colonne 4 feuille Planning
    For Each Cell In Plage1
 
'recherche de l'équivalence dans colonne 5 feuille yTTxpPR00_02
        With Plage2
            Set c = .Find(Cell.Value, LookIn:=xlValues)
 
'Donnée trouvée, on passe, donnée non trouvée on copie les cellules correspondante des colonnes G,H,I de yTTxpPR00_02.csv à Planning
            'je sais pas dire'

La je bloque...

Je change ce que je voulais faire donc je change de post
(J'améliore, j'arrive pas avec le offset donc je vais copier la ligne qui diffère du fichier csv vers un autre onglet et je vais copier ligne par ligne et une seule à la fois comme ça je copie toujours la même cellule à la fin des colonnes qui m'interesse)

[ouskel'n'or]

Code :

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

1
2
3
4
5
If not c is nothing then
    'trouvé !
  else
    Msgbox "Pas trouvé"
Endif

[mordrhim]

rajoute

Code :

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

1
2
3
If c Is Nothing Then
Ce_Que_Tu_Veux_Faire
End If

ca devrait le faire


EDIT han posté juste apres ouskel ^^

[random]

tiré de l'aide

Code :

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

1
2
3
4
 
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then