Discussion :

[zazrun]

Bonjour,

J'aimerai faire une macro me permettant d'afficher une MsgBox si la cellule A1 de la "feuill1" ne contient pas une valeur figurant dans la colonne A de la "feuill2".

Comment est-ce réalisable et où insérer la macro ? Dans la feuille 1 ou dans la feulle 2? Merci de votre aide.

Xavier.

[issoram]

Bonjour,

Quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub cherche()
 
    Dim val As Variant
    Dim plage As Range
 
    With ThisWorkbook
        val = .Worksheets("Feuil1").Range("A1").value
        Set plage = .Worksheets("Feuil2").Range("A:A")
    End With
    If plage.find(What:=val, LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
        MsgBox "Valeur " & val & "non trouvée"
    End If
 
End Sub

[zazrun]

Merci Issoram,

La macro fonctionne parfaitement. Par contre, comment faire en sorte qu'elle s'applique automatiquement dès que l'on rentre une valeur en A1 ?

[issoram]

Il faut que tu mettes la recherche dans la procédure événementielle qui gère la modification des cellules de ta feuille.
Dans le code de Feuil1 tu ajoutes ceci:

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "A1" Then
    ' faire ton traitement ici
    End If
End Sub

[zazrun]

Excuse moi de mon incompétence, j'ai fait ce que tu m'as dit mais ca ne fonctionne pas. Où est mon erreur ?

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "A1" Then Application.Run ("cherche")
 
End Sub

[issoram]

Comme ça par exemple:

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
     If Target.Address = "A1" Then
 
       Dim plage As Range
 
       With ThisWorkbook
          Set plage = .Worksheets("Feuil2").Range("A:A")
       End With
       If plage.find(What:=Target.Value, LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
           MsgBox "Valeur " & Target.Value & "non trouvée"
       End If
 
    End If
 
End Sub

[zazrun]

C'est bon j'ai réussi tout simplement avec ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range) 
       Dim plage As Range
 
       With ThisWorkbook
          Set plage = .Worksheets("Feuil2").Range("A:A")
       End With
       If plage.find(What:=Target.Value, LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
           MsgBox "Valeur " & Target.Value & "non trouvée"
       End If
 
    End If
 
End Sub

En tout cas, merci Issoram.