VBA: Insérer un "mois" dans toute la colonneA Résolu/Fermé

Question

Bonjour à tous !!

Je viens solliciter votre aide:

J'aimerais faire une macro VBA pour excel 2007 qui, lorsque je la lance, m'ouvre une fenêtre me demandant quel "mois" je souhaite indiquer colonne A 

Je saisi le mois à indiquer colonne A ("Décembre" par ex) dans la fenêtre: Le mois s'affiche dans le tableau, en coll A pour toutes les lignes non vides colonnes B (sauf ligne 1).

Pour info, en colonne B ce sont des dates qui sont indiquées, dès fois que ça soit utile.

Merci d'avance beaucoup !!

eljojo_e · Answer

Bonjour, 

essaye ce code :

sub mois()

aa:
a = inputbox("Entrer le mois")
if a ="" then goto aa:

for b = 1 to 20000
if range("b" & a).value <> "" then range("a" & a).value = a
next

end sub

Ludivine · Answer

Merci pour ta réponse Eljojo_e mais ça me met erreur 400 lorsque je lance la macro :/

D'avance merci de ton aide !

eljojo_e · Answer

Désolé ^^

Sub mois()

aa:
a = InputBox("Entrer le mois")
If a = "" Then GoTo aa:

For b = 1 To 20000
If Range("b" & b).Value <> "" Then Range("a" & b).Value = a
Next

End Sub

Ludivine · Answer

Merci beaucoup, c'est parfait !!!

VBA: Insérer un "mois" dans toute la colonneA

4 réponses

Discussions similaires