XL 2021 Activer une cellule en fonctions de deux critères

Matt87

XLDnaute Nouveau
Bonjour à toute la communauté,

Je cherche tant bien que mal à activer une cellule en fonctions de deux critères.

J'ai parcouru plusieurs forums pour tenter de trouver chaussure à mon pied.

J'ai tenté d'adapter certaines options comme le VlookUp et Index/Match, mais sans succès.

J'aimerais utiliser VBA pour activer la cellule dans la colonne " C " en utilisant les critères contenus dans les cellules E2 et F2.

Merci à l'avance de l'attention portée à ma demande.

Cordialement,
 

Pièces jointes

  • Test.xlsm
    15.9 KB · Affichages: 3
Solution
Bonjour Matt87, le forum,
Est-ce que c'est quelque chose de faisable ?
Evidemment :
VB:
Sub Recheche()
Dim i As Variant
With [Test] 'tableau structuré
    .Columns(1).Name = "Colonne1" 'plage nommée
    .Columns(2).Name = "Colonne2" 'plage nommée
End With
i = [MATCH(E2&F2,Colonne1&Colonne2,0)]
If IsNumeric(i) Then
    [Colonne1].Cells(i, 3).Select 'cellule en 3ème colonne
    MsgBox "Trouvé ligne " & i + [Colonne1].Row - 1
Else
    MsgBox "Pas trouvé"
End If
End Sub
A+

job75

XLDnaute Barbatruc
Bonjour Matt87, le forum,
Est-ce que c'est quelque chose de faisable ?
Evidemment :
VB:
Sub Recheche()
Dim i As Variant
With [Test] 'tableau structuré
    .Columns(1).Name = "Colonne1" 'plage nommée
    .Columns(2).Name = "Colonne2" 'plage nommée
End With
i = [MATCH(E2&F2,Colonne1&Colonne2,0)]
If IsNumeric(i) Then
    [Colonne1].Cells(i, 3).Select 'cellule en 3ème colonne
    MsgBox "Trouvé ligne " & i + [Colonne1].Row - 1
Else
    MsgBox "Pas trouvé"
End If
End Sub
A+
 

Pièces jointes

  • Test.xlsm
    19.6 KB · Affichages: 0

Discussions similaires

Statistiques des forums

Discussions
313 276
Messages
2 096 761
Membres
106 743
dernier inscrit
sshkm16