Bonjour,
J'ai une base de 16 magasins et je veux indiquer la fermeture ou pas de ces derniers à l'aide de l'outil MsgBox.
La localisation des magasins est dans la colonne "E" et l'information de fermeture (Covid) est dans la colonne "G".
J'ai écris le code de la manière suivante :
""
Dim nomdep As String
nomdep = InputBox("Entrez le nom de votre département", "Magasin - Info Covid")
If nomdep = (Range("E2")) Then
nom2 = (Range("G2"))
MsgBox nom2, vbExclamation, "Info Covid-19"
ElseIf nomdep = (Range("E3")) Then
nom3 = (Range("G3"))
MsgBox nom3, vbExclamation, "Info Covid-19"
§...... de la même manière jusqu'à la ligne 17.§
"
Comment puis-je optimiser cela à l'aide de la fonction (for i = i to n) i = i + 1, Next ?
Je serais très reconnaissant pour votre aide !
Merci
Yanis