Discussion :

[nicogef]

bonjour,
je veux transformer cette formule matriciel {=EQUIV(E1&G1;'MAI JUIN'!2:2&'MAI JUIN'!4:4;0)} en code vba

ci-joint le code que j'ai essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim result As Variant
Dim rangeToSearch As Range
Set rangeToSearch = Sheets("MAI JUIN").Range("E2:BP2,E4:BP4")
Dim matchResult As Variant
matchResult = Application.Match(Range("E1").Value & Range("G1").Value, rangeToSearch, 0)
If IsError(matchResult) Or matchResult = CVErr(xlErrNA) Then
    result = "Valeur non trouvée"
Else
    result = Application.Index(rangeToSearch, matchResult)
End If

fichier exemple .xlsx

mais ne fonctionne pas erreur 2042
cordialement
Nicogef

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part, vous devez utiliser la propriété FormulaArray en passant comme valeur la chaîne "=MATCH(E1&G1,'MAI JUIN'!2:2&'MAI JUIN'!4:4,0)"

[jurassic pork]

Hello,
D'après ta formule et le résultat attendu, il me semble qu'en fait tu cherches la colonne où se trouve le jour du mois qui sont en paramètres. Alors pourquoi ne pas essayer un code comme celui-ci par exemple ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ChercherColonne()
Dim i As Integer
For i = Range("E1").Column To Range("BO1").Column
If Sheets("MAI JUIN").Cells(2, i) = Sheets("Feuil3").Range("E1").Value And _
   Sheets("MAI JUIN").Cells(4, i) = Sheets("Feuil3").Range("G1").Value Then
   Debug.Print i
End If
Next
End Sub

Ami calmant, J.P