Discussion :

[zazrun]

Salut,

Pour faire suite à ce post, comment faut il faire pour définir 2 plages de cellules ?

J'ai essayé cela, mais ça ne fonctionne pas.

Code :

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

Set plage = .Worksheets("Feuil2").Range("A:A")&.Worksheets("Feuil3").Range("C:C")

Qqn aurait-il une solution ?

[Marc-L]

Salut, voir l'aide de la méthode Union …

[zazrun]

J'ai l'impression que la méthode Union ne fonctionne pas pour deux feuilles différentes, et de tailles différentes... Pouvez-vous confirmer ?

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim val As Variant
    Dim plage1, plage2, plage3 As Range
 
 
    With ThisWorkbook
        val = .Worksheets("Feuil1").Range("E6").Value
        Set plage1 = .Worksheets("Feuil2").Range("A:A")
Set plage2=.Worksheets("Feuil3").Range("D:D")
Set plage3=union(plage1, plage2)
 
 
    End With
 
    If plage3.Find(What:=val, LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
        MsgBox "Erreur ", vbOKOnly + vbExclamation, "Erreur de saisie"
        Range("E6").Select
        Selection.ClearContents
        Range("E6").Select
    End If

[Marc-L]

Ce n'est pas un problème de taille mais bien de feuilles différentes …

Donc il faut scinder la recherche par plage, si la première ne trouve rien, déclencher alors la deuxième …

Il serait bien aussi de conditionner l'évènement par rapport à l'adresse de la cellule modifiée (Target.Address) et celle vérifiée, E6 …

Car sinon à chaque modification de n'importe quelle autre cellule la recherche s'effectue pour rien !

[zazrun]

Merci Marc-L, problème résolu 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
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim val As Variant
    Dim plage As Range
    Dim plage2 As Range
 
    With ThisWorkbook
        val = .Worksheets("formulaire saisie").Range("E6").Value
        Set plage = .Worksheets("Feuil2").Range("A:A")
        Set plage2 = .Worksheets("Feuil3").Range("D:D")
    End With
 
    If plage.Find(What:=val, LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
 
        If plage2.Find(What:=val, LookIn:=xlValues, lookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
        MsgBox "Erreur. ", vbOKOnly + vbExclamation, "Erreur de saisie"
        Range("E6").Select
        Selection.ClearContents
        Range("E6").Select
        End If
 
    End If
 
 
End Sub