MACRO VBA
Résolu
thyroox
Messages postés
34
Date d'inscription
Statut
Membre
Dernière intervention
-
thyroox Messages postés 34 Date d'inscription Statut Membre Dernière intervention -
thyroox Messages postés 34 Date d'inscription Statut Membre Dernière intervention -
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
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:
- MACRO VBA
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour Thyroox, bonjour le forum,
Essaie comme ça :
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
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