Afficher la valeur de la cellule n-1 + appliquer la boucle
Bonsoir,
1. Je souhaite afficher la valeur de l'en-tête de la colonne après chaque résultat de "Application.Min"
Par exemple :
""
nomville = InputBox("Entrez le nom de la ville ", "La ville de déstination ")
If nomville = Range("F2") Then
nom2 = Application.Min(Range("G2:N2"))
MsgBox nom2
""
Dans ce cas, si la résultat affiché est la valeur de H2, je souhaite ajouter la valeur de F1 au MsgBox. De même pour les lignes suivantes (ex : si Application.Min = I6 ==> ajouter la valeur de I1)
2. Je souhaite appliquer la boucle pour les lignes 2 à 12 afin de ne pas répéter le code à chaque fois (fichier ci-joint).
Votre aide sera précieuse :)
Yanis
Bonsoir,
Comme je ne vois pas bien l'intérêt de l'utilisation de VBA dans ce cas, je vous retourne votre fichier avec une formule excel à droite du tableau.
Fichier remplacé...
Cdlt,
Bonjour,
C'est bien ce que je cherchais à faire, merci infiniment !
Yanis