Copier coller en vba

[obyone]

bonjour
j'ai fais une macro mais elle ne fonctionne pas comme je veux,
elle copie bien les lignes "virement" du tableau cic mais je voudrais qu'elle copie les lignes du deuxieme tableau dans la feuille ldd, à la suite des premieres copies ?
quelqu'un peut il m'aider cordialement?

 

[Paritec]

Re : Copier coller en vba

Bonjour obyone le forum,
moi j'ai ouvert ton fichier, j'ai regardé et refermé, ton deuxième tableau il est ou?
En plus l'userform ne s'ouvre pas enfin chez moi cela ne marche pas!!
des explications dans le fichiers seraient les bienvenues
a+
papou 🙂

 

[JNP]

Re : Copier coller en vba

Bonjour le fil 🙂,
@ Papou : Peut-être une imcompatibilité avec 2003 😕. Pas de soucis avec 2007.
@ Obyone : Si j'ai compris, tu veux remplir les 2 tableaux simultanément

Private Sub CommandButton1_Click()
With Sheets("CIC")
    ligne = .[a65000].End(xlUp).Row + 1  ' positionnement de la base sur la
    'feuille Caisse de la premiere ligne vide à partir de la colonne A
If Form1.OB_debit Then
    .Cells(ligne, 1) = CDate(TB_Date.Value) '--- Transfert Date
    .Cells(ligne, 2) = Me.LB_Cat
    .Cells(ligne, 3) = Me.LB_SousCat
    .Cells(ligne, 4) = Me.TB_obs
    .Cells(ligne, 6) = Val(TB_Montant) 'tranfert montant dans debit en nombre
Else
    .Cells(ligne, 1) = CDate(TB_Date.Value) '--- Transfert Date
    .Cells(ligne, 2) = Me.LB_Cat
    .Cells(ligne, 3) = Me.LB_SousCat
    .Cells(ligne, 4) = Me.TB_obs
    .Cells(ligne, 7) = Val(TB_Montant) 'tranfert montant dans credit en nombre
End If
End With
With Sheets("LDD Laurent")
    ligne = .[a65000].End(xlUp).Row + 1  ' positionnement de la base sur la
    'feuille Caisse de la premiere ligne vide à partir de la colonne A
If Form1.OB_debit Then
    .Cells(ligne, 1) = CDate(TB_Date.Value) '--- Transfert Date
    .Cells(ligne, 2) = Me.LB_Cat
    .Cells(ligne, 3) = Me.LB_SousCat
    .Cells(ligne, 4) = Me.TB_obs
    .Cells(ligne, 6) = Val(TB_Montant) 'tranfert montant dans debit en nombre
Else
    .Cells(ligne, 1) = CDate(TB_Date.Value) '--- Transfert Date
    .Cells(ligne, 2) = Me.LB_Cat
    .Cells(ligne, 3) = Me.LB_SousCat
    .Cells(ligne, 4) = Me.TB_obs
    .Cells(ligne, 7) = Val(TB_Montant) 'tranfert montant dans credit en nombre
End If
End With
End Sub

Bonne journée 😎

 

[mutzik]

Re : Copier coller en vba

bonjour le forum, le fil
en simplifiant le code de JNP

Private Sub CommandButton1_Click()
With Sheets("CIC")
ligne = .[a65000].End(xlUp).Row + 1 ' positionnement de la base sur la
'feuille Caisse de la premiere ligne vide à partir de la colonne A
If Form1.OB_debit Then
.Cells(ligne, 6) = Val(TB_Montant) 'tranfert montant dans debit en nombre
Else
.Cells(ligne, 7) = Val(TB_Montant) 'tranfert montant dans credit en nombre
End If
.Cells(ligne, 1) = CDate(TB_Date.Value) '--- Transfert Date
.Cells(ligne, 2) = Me.LB_Cat
.Cells(ligne, 3) = Me.LB_SousCat
.Cells(ligne, 4) = Me.TB_obsEnd With
With Sheets("LDD Laurent")
ligne = .[a65000].End(xlUp).Row + 1 ' positionnement de la base sur la
'feuille Caisse de la premiere ligne vide à partir de la colonne A

If Form1.OB_debit Then
.Cells(ligne, 6) = Val(TB_Montant) 'tranfert montant dans debit en nombre
Else
.Cells(ligne, 7) = Val(TB_Montant) 'tranfert montant dans credit en nombre
End If
.Cells(ligne, 1) = CDate(TB_Date.Value) '--- Transfert Date
.Cells(ligne, 2) = Me.LB_Cat
.Cells(ligne, 3) = Me.LB_SousCat
.Cells(ligne, 4) = Me.TB_obs
End With
End Sub

 

[obyone]

Re : Copier coller en vba

merci de vos réponses, ma demande n'était pas tres claire mais grace à votre aide cela fonctionne comme je veux
cordialement à bientot sur le forum