VBA: Insérer un "mois" dans toute la colonneA
Résolu
Ludivine
-
Ludivine -
Ludivine -
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 !!
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 !!
A voir également:
- VBA: Insérer un "mois" dans toute la colonneA
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Dépassement de capacité vba ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
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
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
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
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
