Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 impossible d'ecrire cette equation

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 !

Patrickblancseau

XLDnaute Nouveau
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

quelqu'un a une idée




End Select
 
Bonjour aux 2 Patrick(s),

Peut-être que ça marchera mieux si le « End Select » est placé
avant le texte « quelqu'un a une idée » ? non, je plaisante,
lis la suite de ce post.

---------------------------------------------------------------------------

Je propose le fichier ci-dessous.

fais Ctrl e ➯ affichage du message attendu
VB:
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.

---------------------------------------------------------------------------

Dans le post #4, job75 te propose une solution avec formule,
que j'ai complétée dans mon post #5.

Sauf s'il te faut absolument utiliser VBA, je te recommande
de prendre la solution avec formule.

---------------------------------------------------------------------------

@patricktoulon : et la marmotte, elle mange le papier d'alu ? 😀

(c'est comme ça, avec les formules publicitaires : ça finit par
rentrer dans l'inconscient collectif ! 😉)


soan
 

Pièces jointes

Dernière édition:
Bonjour job75, le fil,

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.


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

Réponses
12
Affichages
1 K
Réponses
4
Affichages
2 K
G
Réponses
4
Affichages
9 K
Guillaume
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…