VBA passer a la ligne suivante
marc07
Messages postés
630
Statut
Membre
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
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
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
-
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
