Loop

[soline]

Bonjour,

J'essaie de faire une macro qui me permettrait de faire une macro qui me donnerait sur une même ligne la date de début et la date de fin présentement le tout est sur 2 lignes.

J'ai fait une macro est elle tourne sans s'arrêter.

Voici ma macro, pouvez vous m'aider. Merci


Dim xligne As Integer



xligne = 4

Range("E" & xligne).Select
For Each rw In Worksheets("Feuil1").Rows
xligne = ActiveCell.Row
Range("E" & xligne).Select
Selection.Copy
Range("F" & xligne - 1).Select
ActiveSheet.Paste
Rows(xligne & ":" & xligne).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
'xligne = xligne + 1

If Selection.Value = Null Then Exit For
Next rw
ActiveWorkbook.Save

End Sub

 

[kiki29]

Re : Loop

Salut,dans un 1er temps, ajouter

Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row

et faire une boucle For Next allant de la 1ere ligne à traiter à LastRow
puis supprimer ces Select inutiles

PS : je viens de voir que tu supprimes des lignes donc la boucle est à faire de la derniere ligne LastRow vers la 1ere à traiter For ... Next Step -1
Il serait bon que tu consultes et assimiles un cours d'algorithmique car visiblement c'est du vrac

 

[kjin]

Re : Loop

Bonjour et bienvenue,

J'essaie de faire une macro qui me permettrait de faire une macro....

😕
A fournir un fichier, tu pourrais y adjoindre une brève explication...
A+
kjin