Condition IF dans deux feuilles différentes

Version imprimable

04/01/2013, 10h28
zazrun

Condition IF dans deux feuilles différentes

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.

Bonjour,

Quelque chose comme ça:

Code:

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

04/01/2013, 11h23
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 ?
04/01/2013, 11h32
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:

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

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:

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

Comme ça par exemple:

Code:

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

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

Code:

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.

04/01/2013, 14h35
issoram

Sauf qu'avec ton code la procédure se déclenche quelque soit la cellule (de la feuille 1) modifiée.