[Excel VBA] Autofill sur une colonne
Résolu
Jgotheboss
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
Jgotheboss Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
Jgotheboss Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
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.
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.
4 réponses
Avec une petite macros ?
A+
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+
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.
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.
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!
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!