Discussion :

[clem76h6]

Salut a tous , j'ai un petit programme sur VBA qui me permet de retrouver une valeur dans une cellule en page 1 , vers les pages 2-3-4.

Si la valeur en page 1 n'existe pas en page 2-3-4 le prg bugg.
Je voulais ajouter un Msgbox mais je n'y parviens pas .

le Prg :

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
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Liste2 As Range, Liste3 As Range, Liste4 As Range, i As Byte, Cible As Range
If Not Intersect(Target, Range("F21")) Is Nothing Then
    With Worksheets(2)
    Set Liste2 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    End With
    With Worksheets(3)
    Set Liste3 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    End With
    With Worksheets(4)
    Set Liste4 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    End With
 
  Set Cible = Liste2.Find(Range("F21"))
    i = 2
    If Cible Is Nothing Then
        Set Cible = Liste3.Find(Range("F21"))
        i = 3
        ElseIf Cible Is Nothing Then
        Set Cible = Liste4.Find(Range("F21"))
        i = 4
 
 
   End If
If Cible <> Liste4.Find(Range("F21")) Or Liste3.Find(Range("F21")) Or Liste2.Find(Range("F21")) Then
           MsgBox "slt!"
           End If
 Worksheets(i).Activate
 
 
Cible.Activate
 
End If
 
End Sub

Merci de vos reponses

[pyloupylou]

If Cible <> Liste4.Find(Range("F21")) Or Liste3.Find(Range("F21")) Or Liste2.Find(Range("F21")) Then
MsgBox "slt!"
End If


et si tu remplaçais ton test final par

Code :

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

1
2
3
4
 
if cible is nothing then
    msgbox "slt"
endif

[clem76h6]

c'est bon merci beaucoup , le code suivant fonctionne:

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
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Liste2 As Range, Liste3 As Range, Liste4 As Range, i As Byte, Cible As Range
If Not Intersect(Target, Range("F21")) Is Nothing Then
    With Worksheets(2)
    Set Liste2 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    End With
    With Worksheets(3)
    Set Liste3 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    End With
    With Worksheets(4)
    Set Liste4 = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    End With
 
  Set Cible = Liste2.Find(Range("F21"))
    i = 2
    If Cible Is Nothing Then
        Set Cible = Liste3.Find(Range("F21"))
        i = 3
        ElseIf Cible Is Nothing Then
        Set Cible = Liste4.Find(Range("F21"))
        i = 4
 
 
   End If
    If Cible Is Nothing Then
    MsgBox "Pont inconnu du site !"
 
 Else: Worksheets(i).Activate
 
 
Cible.Activate
End If
End If
 
End Sub