VBA passer a la ligne suivante [Fermé]

Signaler
Messages postés
597
Date d'inscription
dimanche 3 avril 2011
Statut
Membre
Dernière intervention
18 octobre 2014
-
Messages postés
1513
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
-
Bonjour,
Voila j'ai un souci en exel 2007, peut etre pouvez-vous m'aider
je fait a l'aide d'une macro qui fait une selection de cellules que je recopie sur un tableau d'une autre feuille ex(b11:f11) jusque la tout va bien
mais je voudrais qu'a la prochaine action les cellules ce copie en b12:f12

Sheets("Consultation").Select
Range("A16").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A2:F2").Select
Selection.Copy
Sheets("Feuil-Entrée").Select
ActiveWindow.SmallScroll Down:=-18
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Consultation").Select
si quelqu'un pouvais m'aider suis encore a mes debut en VBA
merci d'avance
marc

1 réponse

Messages postés
1513
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
123
Bonjour,

sheets("Consultation").Select
Range("A16").Select
ActiveCell.FormulaR1C1 = ""
Range("A2:F2").Select
Selection.Copy
Sheets("Feuil-Entrée").Select
i=1
do while cells(i,1)<>""
i=i+1
loop
i=i-1
cells(i,1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Consultation").Select