Retour à la ligne sur macro

[Phil]

Bonjour le forum,
J'ai une macro qui par un bouton "validation" me copie des valeurs dans des cellules non contigues de la feuil1 vers la feuil2
ces même valeurs se retrouvent sur la même ligne et sur des cellules contugues.
à la fin j'efface les valeurs contenues dans les cellules de la Feuil1.
jusque là ok.
Comment lors du deuxième remplissage des valeurs Feuil1 puis validation faire passer sur la Feuil2 à la ligne en-dessous mes autres valeurs puis effacer Etc...
pour info mes valeurs sur une même ligne se termines en cellule K2 pour la première ligne donc en K3 pour la deuxième.
Quelqu'un peu me tuyauter sur le sujet . Merci

 

[@+Thierry]

Salut Phil, le Forum

J'ai d'abord compris que tu voulais écrire dans la même cellule de la Feuil2 mais à la ligne (ALT + Entrée) dans cette cellule, le résultat de deux passages, ce qui donnerait ceci :

Sub Test()
Dim OldValue As String
Dim NewValue As String

If Sheets("Feuil2").Range("A1") <> "" Then
OldValue = Sheets("Feuil2").Range("A1")
NewValue = Sheets("Feuil1").Range("A1")
Sheets("Feuil2").Range("A1") = OldValue & Chr(10) & NewValue
Else
Sheets("Feuil2").Range("A1") = Sheets("Feuil1").Range("A1")
End If
End Sub


Mais en te relisant, je crois que ce que tu cherches est bien plus simple (et plus logique lol), en fait, tu veux trouver la dernière ligne vide de ta Feuil2 pour y reporter les cellules de la Feuil1, çà donnerait ceci :

Sub Test2()
Dim L As Integer

L = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & L) = Sheets("Feuil1").Range("A1")
End Sub

Bonne soirée
@+Thierry

 

[Phil]

Bonjour @+Thierry
Je m'excuse de pas avoir répondu plus rapidement mais les déplacements coupent le fil.
Pour moi la solution semble la deuxième mais étant vraiment débutant dans cette partie je n'arrive pas à insérer cela dans la macro ci-dessous réalisée en enregistrement direct.

Sub Validation_article()
'
Range("C13").Select
Selection.Copy
Sheets("Tableau").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C19").Select
Selection.Copy
Sheets("Tableau").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C22").Select
Selection.Copy
Sheets("Tableau").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C24").Select
Selection.Copy
Sheets("Tableau").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C26").Select
Selection.Copy
Sheets("Tableau").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C28").Select
Selection.Copy
Sheets("Tableau").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C30").Select
Selection.Copy
Sheets("Tableau").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("G23").Select
Selection.Copy
Sheets("Tableau").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("G26").Select
Selection.Copy
Sheets("Tableau").Select
Range("K2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C22").Select 'effacer valeurs dans "dialogue"
Selection.ClearContents
Range("C24").Select
Selection.ClearContents
Range("C26").Select
Selection.ClearContents
Range("G26").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-3
Range("C15😀15").Select
End Sub