Discussion :

[ThSPB]

Bonjour,

Je suis novice en boucle et je pense que je cale sur une formulation.
mon objectif;
Dans la page nommée "PA"
Dans les cellules de la colonne B
De la ligne 10 à 520
Dans certaines cellules j'ai une valeur "Surface couverte" par exemple
Puis sur les X lignes qui suivent je n'ai pas de valeur (Vide)
Puis sur la ligne suivante une autre valeur "Eléments" par exemple
Puis encore du vide,
Etc.
Je souhaite renseigner les cellules vides par la valeurs de la ligne précédente, sans effacer la valeur de celles qui sont déjà renseignées

Je vais essayer de joindre un fichier pour clarifier ma demande, mais je ne suis pas sûr que cela fonctionne

Exemple pour boucle.xls

Merci

[Fvandermeulen]

Salut,

Il te suffit de tester la cellule sur laquelle tu es lors de ta boucle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Boucle()
Dim R as long
 
For R = 10 to 520
If sheets("PA").cells(R,2)="" then sheets("PA").cells(R,2)=sheets("PA").cells(R-1,2) 
next r
 
end sub

A+

[ThSPB]

Merci beaucoup,
j'étais parti sur une usine à gaz, alors que c'est si simple.
mais Félicitations