VBA passer a la ligne suivante
marc07
Messages postés
593
Date d'inscription
Statut
Membre
Dernière intervention
-
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Aller à la ligne vba
- Aller à la ligne excel - Guide
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Comment aller a la ligne sur iphone ✓ - Forum iPhone
- Comment allé à la ligne sur Instagram ✓ - Forum iPhone
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
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