VBA passer a la ligne suivanteFermé

Question

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 

Configuration: Windows 7 / Internet Explorer 8.0

melanie1324 · Answer

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

VBA passer a la ligne suivante

1 réponse

Discussions similaires

Newsletters