Transfert de données

[kromitou]

BONJOUR

Je veux exporter ma ligne sur la feuille 2...Avec le code ci-dessous, ça fonctionne, mais je voudrais qu'a chaque fois, elle se décale pour ne pas écraser déja les lignes existantes.
Pour infos, je voulais faire Copier/insérer les formules copiées/décaler vers le bas .... mais le soucis c'est que la ligne contient des formules au départ.
Donc je copie/coller que les valeurs/...
et là je ne sais pas lui dire de décaler...

Private Sub CommandButton1_Click()

Range("A3:F3").Select
Range("F3").Activate
Selection.Copy
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil1").Select
End Sub


Merci...........

 

[Papou-net]

Re : Transfert de données

Bonjour kromitou,

Modifies ton code comme celà :

Private Sub CommandButton1_Click()

Range("A3:F3").Select
Range("F3").Activate
Selection.Copy
[COLOR="Red"]lg = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & lg).Select[/COLOR]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil1").Select
End Sub

Cordialement.

 

[Robert]

Re : Transfert de données

Bonjour Kromitou, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim dest As Range 'déclare la variable dest (DESTination)
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    If .Range("A1").Value = "" Then 'condition : si la cellule A1 est vide
        Set dest = .Range("A1") 'definit la variable dest (A1)
    Else 'sinon
        Set dest = .Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest (la première cellule vide rencontrée)
    End If 'fin de la condition
End With 'fin de la prise en compte de l'onglet "Feuil2"
Range("A3:F3").Copy 'copy la plage A3:F3
dest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'colle les valeurs
Application.CutCopyMode = False 'vide le presse-papiers (supprime le clignotement de la sélection)
Range("A3").Select 'sélectionne la cellule A3
End Sub

Édition :

Bonjour Papou-net on s'est croisés..

 

[kromitou]

Re : Transfert de données

Grand Merci à Vous 2 ....(Robert - Papou net)
C'est Nickel