VBA Selection find avec valeur non trouvé

Version imprimable

Bonjour à tous,

Voila, j'ai un problème avec mon code : dans ma colonne Z, je cherche la valeur contenu dans ma cellule "nomrecherche". Si ce nom existe alors un autre code vient modifier la ligne et si le code n'existe pas alors on créé une nouvelle ligne

Mon problème c'est que si la valeur de ma cellule "nomrecherche" n'existe pas ma macro bug !

Quelqu'un peut m'aider svp ?

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub Modifier_Creer() 'Dans ma colonne Z, je recherche la valeur contenue dans ma cellule nomrecherche (cellule AA2) Columns("Z:Z").Select Selection.Find(What:=(Range("nomrecherche").Value), After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Select If Selection Is Nothing Then MsgBox "on créé la ligne" ' J'ai un code qui vient créer une ligne Else If Selection = Range("nomrecherche") Then MsgBox "On modifie la ligne" 'J'ai un code qui vient modifier la ligne End If End If End Sub
Merci d'avance pour votre aide...

Bonjour,

Essaie comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Modifier_Creer()
Dim C As Range
    'Dans ma colonne Z, je recherche la valeur contenue dans ma cellule nomrecherche (cellule AA2)
    Set C = Columns("Z:Z").Find(What:=Range("nomrecherche").Value, LookIn:=xlValues, LookAt:=xlPart)
    If C Is Nothing Then
        MsgBox "on créé la ligne"
        'J'ai un code qui vient créer une ligne
    Else
        MsgBox "On modifie la ligne"
        'J'ai un code qui vient modifier la ligne
    End If
    Set C = Nothing
End Sub

Cordialement;

18/02/2013, 15h02
WAS92

Wahou !!! un grand merci ça fonctionne très bien !!

:D

Merci pour ta réactivité !