Bonjour le but est de trouver sur quelle année nous nous situons
voila ma serie exemple nous sommes en A1 et en 2024 pareil
'A1 = 2020 -->2024
'A2 = 2021 -->2025
'A3 = 2022 -->2026
'A4 = 2023 -->2027
le résultat final devrait me dire en 2021 nous sommes en A2
impossible de creer ce case
'Select Case ValeurAVerifier
' Case A1=année en cours
' '2020
' Case A2=année en cours+1
' '2021
' Case A3=année en cours+1
' '2022
' Case A4=année en cours+1
' '2024
Case Else
'impossible
Sub Essai()
Dim cel As Range, An%
An = 2021 'valeur à vérifier (essaye ensuite avec 2028)
Set cel = Columns(1).Find(An, , -4163, 2, 1)
If Not cel Is Nothing Then
MsgBox "Pour " & An & ", nous sommes en A" & cel.Row & "."
Else
MsgBox "Année " & An & " non trouvée."
End If
End Sub
Si c'est OK, merci de cliquer sur « Marquer comme solution ».
Sinon, tu peux demander une adaptation.
Ta formule avec ADRESSE() et EQUIV() est très bien !
Je l'ai complétée avec du texte, selon que l'année est trouvée ou non,
et pour ce 2ème cas, SIERREUR() évite le message d'erreur #N/A.
Code:
=SIERREUR("Pour " & D1 & ", nous sommes en " & ADRESSE(EQUIV("*"&D1&"*";A:A;0);1;4) & ".";"Année " & D1 & " non trouvée.")
Comme l'énoncé de Patrick contient du code VBA, peut-être qu'il tient absolument à une macro ?
si oui, il pourra regarder le code VBA que je lui ai proposé, mais c'est vrai qu'une formule suffit.