Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Très rapidement (il faut parametrer toutes les bornes de fin des boucles ! et éventuellement les remplacer par des While/Wend)
VB:
Sub trouver_annee()
'le but de la macro est de trouver l'annee ou les vente dégringolent
seuil = 0.1
For ligne_obs = 3 To 4
For i = 2 To 13
If Cells(ligne_obs, i).Value < Cells(ligne_obs, i - 1).Value * seuil Then
'écrire l'année
Cells(ligne_obs, 15).Value = Cells(2, i).Value
Exit For
End If
Next i
Next ligne_obs
End Sub
- 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