[Excel VBA] Autofill sur une colonne Résolu/Fermé

Question

Bonjour à tous,

Je vous écris car je rencontre un problème dans le cadre d'une macro que je tente de développer sur Excel.

Un petit schéma présentera mieux mon problème que de longues phrases alors voici comment se trouve mon tableau:
(Prénoms en A, dates en B)

   A                B
1 Pierre         01/02/09
2                  02/02/09
...                  ...
10 Paul           01/02/09
11                  02/02/09
...                  ...
52 Jacques      01/02/09
53                  ...

J'aimerai qu'une macro remplisse automatiquement les cellules de A2 à A9 avec Pierre, de A11 à A51 avec Paul, etc.
Le problème c'est que les prénoms ne se trouvent pas forcément au même endroit d'une semaine sur l'autre.
Je sais que la fonction autofill pourrait répondre à mon problème, mais je n'arrive pas à l'utiliser dans ce cas présent (j'arrive à remplir une colonne entière d'un même prénom seulement.).

Je vous remercie beaucoup de bien vouloir m'aider.

lermite222 · Answer

Bonjour,
Mais en A2 tu a déja une date ? Il faut la supprimer ? 
A+

Jgotheboss · Answer

Non non, le schéma est mal fait (problème lorsqu'il y a plusiquers espaces).

J'ai bien uniquement des prénoms dans la colonne A et uniquement des dates dans la colonne B.
Dans l'exemple que j'ai donné les cellules de A2 à A9 et de A11 à A51 sont bien vides. J'aimerai les remplir en "glissant" le prénom qui correspond.

Merci.

lermite222 · Answer

Avec une petite macros ?
Sub AddNom()
Dim Lig As Long
Dim Buff As String
    Sheets("Feuil1").Select
    For Lig = 1 To Range("A65536").End(xlUp).Row
        If Cells(Lig, 1) <> "" Then
            Buff = Cells(Lig, 1)
        Else
            Cells(Lig, 1) = Buff
        End If
    Next Lig
End Sub
A+

Jgotheboss · Answer

Formidable!

Ca fonctionne presque comme je le souhaite.
Le seul problème est pour le dernier prénom comme tu as mis Lig = 1 To Range("A65536").End(xlUp).Row, il considère la ligne de mon dernier prénom comme ma dernière, alors qu'elle ne l'est pas.
Du coup le dernier prénom ne se glissait pas.

J'ai changé A65536 en B65536 et c'est parfait.
Merci beaucoup!

[Excel VBA] Autofill sur une colonne

4 réponses

Discussions similaires