Discussion :

[WAS92]

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 :

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

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...

[gFZT82]

Bonjour,

Essaie comme cela

Code :

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

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;

[WAS92]

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



Merci pour ta réactivité !