[Excel VBA] Autofill sur une colonne

Résolu/Fermé

Jgotheboss Messages postés 24 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 2 septembre 2009 - 27 févr. 2009 à 09:36
Jgotheboss Messages postés 24 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 2 septembre 2009 - 27 févr. 2009 à 14:46

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.

A voir également:

Autofil vba
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
27 févr. 2009 à 13:44

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+

Réponse 2 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
27 févr. 2009 à 11:30

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

Réponse 3 / 4

Jgotheboss Messages postés 24 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 2 septembre 2009 8
27 févr. 2009 à 13:39

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.

Réponse 4 / 4

Jgotheboss Messages postés 24 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 2 septembre 2009 8
27 févr. 2009 à 14:46

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!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters