XL 2013 Vba

Guismo33 · 11 Décembre 2015

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 · 11 Décembre 2015

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

VB:

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 · 11 Décembre 2015

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

XL 2013 Vba

Guismo33

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Guismo33

XLDnaute Occasionnel

Discussions similaires