Discussion :

[Goku.]

Bonjour à tous,

Voici le code suivant :

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 ToggleButton1_Click()
 
    With ToggleButton1
 
        If .Value = True Then
        ToggleButton1.BackColor = 5950882 'couleur verte
        Test "O2:P2"
 
        ElseIf .Value = False Then
        ToggleButton1.BackColor = 12701133 'couleur gris
 
        Dim Trouve As Range, PlageDeRecherche As Range
        Dim Valeur_Cherchee As String, AdresseTrouvee As String
 
        Valeur_Cherchee = Range(P2).Value '=> Génére une erreur
 
        Set PlageDeRecherche = ActiveSheet.Columns(3)
 
        Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
        If Trouve Is Nothing Then
            AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
        Else
 
        AdresseTrouvee = Trouve.Address
        End If
        MsgBox AdresseTrouvee
        Set PlageDeRecherche = Nothing  'vidage des variables
        Set Trouve = Nothing
 
        End If
 
    End With
 
End Sub

Une erreur apparaît sur la ligne Valeur_Cherchee = Range(P2).Value. Je cherche à comparer le contenu de Valeur_Cherchee au contenu de la cellule P2.

[jerome.vaussenat]

Salut,

Pour le Range, il y a besoin de mettre des "" ...

ton code doit ressembler à :

Code :

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

Valeur_Cherchee = Range("P2").Value

En espérant que cela te déloque.

[Goku.]

Merci jerome.vaussenat en effet cela résout mon problème.