XL 2013 Vba

[Guismo33]

Bonjour a tous;

Une fois un résultat obtenue, je voudrais sauter une ligne en Vba

Sub Macro1()

Application.ScreenUpdating = False

Range("Nombre") = Range("Nombre") + 1


Sheets("Presse").Select
Cells(1, 3).Select
Sheets("Résultat").Select
Cells(1, 1).Value = Cells(1, 3).Value



End Sub

Merci a tous

 

[Modeste geedee]

Re : Vba

Bonsour®

- eviter l'utilisation de select
d'autant plus inutile dans le cas de :Application.ScreenUpdating = False

préciser en début de proc :
la ligne de départ
la ligne de fin ou bien déterminer le nombre de décalage

Sub Macro1()
Application.ScreenUpdating = False
CurLigne=1
LigneFin=50
Range("Nombre") = Range("Nombre") + 1 ' ???????

While Curligne<=LigneFin
Sheets("Résultat").Cells(Curligne, 1).Value = Sheets("Presse").Cells(Curligne, 3).Value
Curligne=Curligne+1
Wend

End Sub

 

[Guismo33]

Re : Vba

Bonjour,

merci, "nombre" correspond a un compteur car dans feuil "Presse" il y a des infos et cela chaque jour et apres avoir effacer mes infos
je voudrais passer a l'autre ligne pour le jour suivant.

Bien a vous