XL 2019 Recherche présence de valeurs

[ced91300]

Bonjour à tous,

le code ci-dessous me permet de rechercher la présence de valeurs sur une plage de données, mais je ne trouve pas la combinaison pour la même recherche mais sur 2 plages. ( C4:C50 et G4:G20 )

Merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
     Set c = Range("C4:C50")
     If Intersect(Target, c) Is Nothing Then Exit Sub

     Range("A1").Value = -(WorksheetFunction.CountA(c) > 0)     'valeurs numériques et textes
End Sub

 

[sylvanu]

Bonsoir Ced,
Pourquoi pas simplement :

Private Sub Worksheet_Change(ByVal Target As Range)
     Set c = Range("C4:C50,G4:G20 ")
     If Intersect(Target, c) Is Nothing Then Exit Sub
     Range("A1").Value = -(WorksheetFunction.CountA(c) > 0)
End Sub

 

[Phil69970]

Bonjour @ced91300

Edit : Bonjour Sylvain ...grillé !!! 🤣

Je te propose ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Set c = Range("C4:C50,G4:G20")
If Intersect(Target, c) Is Nothing Then Exit Sub

Range("A1").Value = -(WorksheetFunction.CountA(c) > 0)     'valeurs numériques et textes
End Sub

 

[ced91300]

Bonsoir,
je me suis peut-être mal exprimé, en fait c'est pour rechercher si une valeur se trouve dans C4:C50 et également une dans G4:G20. si présence que dans une seule plage alors ne rien faire

 

[sylvanu]

Re,
PJ à tester avec :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C4:C50,G4:G20")) Is Nothing Then Exit Sub
Dim Plage As Range, L%
Set Plage = Range("G4:G20"): [A1] = ""
For L = 4 To 50
    If Cells(L, 3) <> "" And Application.CountIf(Plage, Cells(L, 3)) > 0 Then [A1] = Cells(L, 3)
Next L
End Sub

Comme non précisé, si plusieurs valeurs sont trouvées, seule la dernière est remontée en A1.