XL 2019 Recherche présence de valeurs

ced91300 · 22 Mai 2024

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

Code:

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 · 22 Mai 2024

Bonsoir Ced,
Pourquoi pas simplement :

VB:

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 · 22 Mai 2024

Bonjour @ced91300

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

Je te propose ceci :

VB:

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 · 22 Mai 2024

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 · 23 Mai 2024

Re,
PJ à tester avec :

Code:

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.

XL 2019 Recherche présence de valeurs

ced91300

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

ced91300

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires