Menu

VBA parcourir et remplir les cellule vide [Résolu]

icecube - 8 mars 2018 à 11:10 - Dernière réponse :  icecube
- 8 mars 2018 à 17:56
Bonjour,

pour commencer il me faut une macro car je suis nul ne programmation

j'ai un fichier de 3 colonne A B et C

dans colonne A j'ai certaines cellule vide. par contre dans la colonne B il n'y a aucune cellule vide.

donc je cherche a parcourir la colonne A dès que il trouve une cellule vide et la rempli avec le contenu de la cellule précédente et ainsi de suite.

exemple : si A8 = "" alors A8 = A8 - 1
si A9 = "" alors A9 = A9 - 1

sachant que les données commencent a la ligne 10 (cette ligne n'est jamais vide)

sachant aussi que la macro doit arrêter son traitement a la dernière ligne de la colonne B

le but est et ne pas avoir de cellule vide dans la colonne A.

je vous remercie par avance de votre précieuse aide.
Afficher la suite 

Votre réponse

2 réponses

cs_Le Pivert 5186 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 23 juin 2018 Dernière intervention - Modifié par cs_Le Pivert le 8/03/2018 à 11:51
0
Merci
Bonjour,

Essaie ceci :

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne A
'commence à la 1ère ligne tu peux adapter en mettant 10
    For NoLig = 1 To Range("B" & Rows.Count).End(xlUp).Row 'dernière ligne colonne B
     Var = FL1.Cells(NoLig, NoCol)
  If FL1.Cells(NoLig, NoCol) = "" Then
             FL1.Cells(NoLig, NoCol).Value = FL1.Cells(NoLig - 1, NoCol).Value
             End If
            Next
    Set FL1 = Nothing
End Sub


bonjour,

oui effectivement j'ai pas eu de soucis j'ai pu l'adapter a mon besoin et ça marche nikel. je te remercie bcp d'ailleurs :) bonne soirée
Commenter la réponse de cs_Le Pivert