VBA: Insérer un "mois" dans toute la colonneA
Résolu/Fermé
A voir également:
- VBA: Insérer un "mois" dans toute la colonneA
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
152
6 déc. 2011 à 11:34
6 déc. 2011 à 11:34
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
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
152
6 déc. 2011 à 11:26
6 déc. 2011 à 11:26
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
