Bonjour tout le monde,
J'ai trouvé la solution, je donne le code pour en faire profiter les "forumeuses et forumeurs"
Sub est_ce_enregistrer()
Dim tb, w As String, i As Long
tb = Feuil2.Range("C1:E" & Feuil2.Cells(Rows.Count, 1).End(3).Row)
w = Feuil1.Range("F1") & Feuil1.Range("C2") & Feuil1.Range("C3")
For i = 1 To UBound(tb)
If tb(i, 1) & tb(i, 2) & tb(i, 3) = w Then _
MsgBox "Combinaison existe, ligne " & i: Exit Sub
Next
MsgBox "Combinaison n'existe pas dans la BD!"
End Sub
Je suis très persévérant et j'ai honneur qu'on veuille m'imposer sa solution.
En effet, je voulais une macro et on m'a proposé une formule (très intéressante, j'en conviens).
Mais déçu, car depuis aucune solution ne m'a été proposée. C'est comme si on m'imposait quelque chose: " à prendre ou à laisser".
Malgré cela j'apprécie beaucoup ce forum.
Bonne continuation.