MACRO VBA

Résolu/Fermé
thyroox Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 - 27 juil. 2017 à 11:48
thyroox Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 - 27 juil. 2017 à 12:48
Bonjour à tous,


je souhaite concevoir une macro me permettant de remplir chaque cellule vide de la colonne A avec la première cellule remplie du dessus (voir mon screen). Je débute en VBA, pouvez vous m'aider en décrivant chaque étape du programme.

PS : mon programme commencera toujours avec une cellule (9,1) remplie.

Merci de votre aide.

Cordialement

https://img-19.ccm2.net/qGpM0TudESq6_9ZUqLnZNoKd9hc=/d7082dc48726400eb674bd5793d5d212/ccm-ugc/VBA.PNG
A voir également:

1 réponse

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
27 juil. 2017 à 12:18
Bonjour Thyroox, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)

DL = Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne C
For I = 9 To DL 'boucle sur toutes les lignes I de 9 à DL
    'si la cellule ligne I, colonne A est vide récupère la valeur de la cellule au-dessus
    If Cells(I, "A").Value = "" Then Cells(I, "A").Value = Cells(I - 1, "A").Value
Next I 'prochaine ligne de la boucle
End Sub

0
thyroox Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 1
27 juil. 2017 à 12:48
Thautheme,


Merci beaucoup pour ta réactivité et la qualité de ta réponse.
C'est exactement ce qu'il me fallait.

PS : aurais tu des ouvrages à me conseiller afin de compléter ma formation en VBA.

Merci encore de ton aide.


Thyroox
0