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

  • Initiateur de la discussion Initiateur de la discussion Matt87
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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+
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour