VBA parcourir et remplir les cellule vide

Résolu/Fermé

icecube - 8 mars 2018 à 11:10
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.

A voir également:

Cellule vide vba
Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
Excel compter cellule couleur sans vba - Guide
Aller à la ligne dans une cellule excel - Guide
Coeur vide ✓ - Forum Facebook
Si cellule contient texte alors ✓ - Forum Excel

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 8 mars 2018 à 11:51

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

icecube
8 mars 2018 à 17:56

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

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

Excel VBA : Derniere colonne utilisée

Excel VBA : Récupérer la valeur d'une cellule

Formaté mais pas de connexion Internet ?

Discussions similaires

Newsletters