Problème de boucle

[Animus]

Bonsoir,
Je commence en VBA, et j'ai un souci. Le but est de regarder sur la feuille Récap Mois, si la cellule C1 est vide, si oui il me copie la sélection de la feuille Présence, sinon il avance de 4 colonnes et regarde à nouveau si la cellule est vide. La macro fonctionne mais qu'une seule fois. J'ai forcément oublié de lui dire quelque chose mais quoi ? Quelqu'un peut m'expliquer ?
Merci

Sheets("Récap Mois").Select
Range("C1").Select

Do While ActiveCell.Value = ""
ActiveCell.Offset(0, 4).Select

Sheets("Présence").Select

Range("C1:F80").Select
Selection.Copy
Sheets("Récap Mois").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Loop

End Sub

 

[Cousinhub]

Re : Problème de boucle

Re-,

maintenant que j'ai vu le fichier du demandeur....

Euh, cela risque de prendre du temps....

De plus, je pense que ton fichier manque un peu de précisions.....

Onglet présence : tu n'as qu'un journée?

Tu n'as pas mis tes codes, cela pourrait aider....

Si tu pouvais faire un fichier le plus proche (donc sans les noms des élèves, ou du moins des noms bidons), on pourrait t'aider plus efficacement

 

[Animus]

Re : Problème de boucle

Yes Lii ! C'est ce que cherche à faire... j'essaye ça tout de suite...

 

[Animus]

Re : Problème de boucle

Oh FABULEUX ça marche ! Merci merci merci the boys ! Grand respect à votre égard et à votre savoir !