Boucle remplissage interlignes
Résolu/Fermé
A voir également:
- Boucle remplissage interlignes
- Excel remplissage conditionnel - Guide
- Excel remplissage automatique selon valeur ✓ - Forum Excel
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
- Remplissage génératif photoshop grisé - Forum Photoshop
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
12 nov. 2013 à 13:30
12 nov. 2013 à 13:30
Bonjour,
A adapter au besoin.
:0)
A adapter au besoin.
Sub CompleteCelVide()
Dim ws As Worksheet
Dim lig As Long
Set ws = Worksheets(1)
lig = 1
While ws.Range("A" & lig).Value <> ws.Range("B7").Value
If ws.Range("A" & lig + 1) = "" Then
ws.Range("A" & lig + 1) = ws.Range("A" & lig)
End If
lig = lig + 1
Wend
End Sub
:0)
12 nov. 2013 à 13:58
Après des heures de torture, cela fonctionne nicquel en sachant que j'ai adapaté, car en fait, sur ma feuille "A" et en fait "B" et "B" est en fait "C", et que je ne sais pas à l'avance sur quelle ligne de la colonne "C" sera située la valeur spécifiée déclanchant la fin de ma boucle.
Sub CompleteCelVide()
Dim ws As Worksheet
Dim lig As Long
Set ws = Worksheets(1)
lig = 1
Range("b3").Select
Do While ws.Range("B" & lig).Offset(0, 1).Value <> "Pages 1/1"
If ws.Range("B" & lig + 1) = "" Then
ws.Range("B" & lig + 1) = ws.Range("B" & lig)
End If
lig = lig + 1
Loop
End Sub