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

Résolu
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 !!

4 réponses

  1. eljojo_e Messages postés 1255 Statut Membre 155
     
    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
    1
  2. eljojo_e Messages postés 1255 Statut Membre 155
     
    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
    0
  3. Ludivine
     
    Merci pour ta réponse Eljojo_e mais ça me met erreur 400 lorsque je lance la macro :/

    D'avance merci de ton aide !
    0
  4. Ludivine
     
    Merci beaucoup, c'est parfait !!!
    0