VBA chercher non vide et compléter
Résolu
NateBarca
Messages postés
36
Statut
Membre
-
NateBarca Messages postés 36 Statut Membre -
NateBarca Messages postés 36 Statut Membre -
Bonjour,
Je cherche un code VBA qui permet de répéter la valeur au dessus de la ligne jusqu'à elle rencontre une valeur non nulle.
Exemple
Cellule A1 = valeur X1
Cellule A2 = vide
Cellule A3 = vide
Cellule A4 = valeur X2
Cellule A5 = vide
Cellule A6 = valeur X3
Après Macro :
Cellule A1 = valeur X1
Cellule A2 = valeur X1
Cellule A3 = valeur X1
Cellule A4 = valeur X2
Cellule A5 = valeur X2
Cellule A6 = valeur X3
Idéalement sur une boucle For
Merci
Je cherche un code VBA qui permet de répéter la valeur au dessus de la ligne jusqu'à elle rencontre une valeur non nulle.
Exemple
Cellule A1 = valeur X1
Cellule A2 = vide
Cellule A3 = vide
Cellule A4 = valeur X2
Cellule A5 = vide
Cellule A6 = valeur X3
Après Macro :
Cellule A1 = valeur X1
Cellule A2 = valeur X1
Cellule A3 = valeur X1
Cellule A4 = valeur X2
Cellule A5 = valeur X2
Cellule A6 = valeur X3
Idéalement sur une boucle For
Merci
A voir également:
- VBA chercher non vide et compléter
- Supprimer page word vide - Guide
- Caractere vide - Guide
- Coeur vide - Forum Facebook
- Formate pour taxer client frigo vide ✓ - Forum Matériel & Système
- Taxe foncière pour locataire - Forum Vos droits sur internet
1 réponse
Bonjour,
cela suppose que A1 n'est jamais vide
cela suppose que A1 n'est jamais vide
Sub test()
With Worksheets("feuil1")
derlig = .Range("A" & Rows.Count).End(xlUp).Row 'derniere cellule non vide colonne A
TInfos = .Range("A1:A" & derlig).Value 'mise en memoire plage
End With
Nb = UBound(TInfos) 'longueur tableau
'boucle sur tableau
For N = 2 To Nb
If TInfos(N, 1) = "" Then TInfos(N, 1) = TInfos(N - 1, 1) 'si vide mettre infos-1
Next N
Worksheets("feuil1").Range("A1").Resize(Nb) = TInfos 'ecriture plage cellules
End Sub
NateBarca
Messages postés
36
Statut
Membre
Excellent, très propre