XL 2019 Recherche présence de valeurs

ced91300

XLDnaute Occasionnel
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
 
Dernière édition:

Phil69970

XLDnaute Barbatruc
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Classeur1 .xlsm
    13.4 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
313 197
Messages
2 096 115
Membres
106 501
dernier inscrit
axtion