ajouter une linge

[hicham28]

bonjour, merci de me lire et de m'aider
svp j'aimerai ajouter a ce petit code
ajouter une linge en apres la derniere linge non vide, merci

Private Sub Enregister_Click()
If Cheque.Value = True Then
    Sheets("cheque").Activate
    Range("E1").Value = Montant.Value
    Range("B4").Value = Beneficaire.Value
    Range("G1").Value = Numero.Value
    Range("H1").Value = Cause.Value
    Sheets("Effet_emis").Activate 'Sélection de l'onglet Effets_emis
    Range("g3").NumberFormat = "[Red]-#,##0.00 """""
    Range("g3").HorizontalAlignment = xlRight
    Range("K3:Q3").Copy  'Copie des cellules K3 a Q3
    Sheets("bmce").Activate
    Range("A3").Offset.End(xlDown).Offset(1, 0).Select    'Sélection de la cellule en dessous du dernier enregistrement de la colonne A
               'Coller valeur
    Selection.PasteSpecial Paste:=xlValues, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("A3").CurrentRegion.Select  'Sélection de la zone en cours
    Range("A3").Select 'Sélection de la cellule A1
    End If

 

[soenda]

Re : ajouter une linge

Bonjour le fil, hicham28

Si j'ai bien compris.
La ligne suivante copie les cellules [K3:Q3] de la feuille "cheque",
et les ajoute à la suite de la feuille "bmce", à partir de la colonne A.

Sheets("cheque").[K3:Q3].Copy Sheets("bmce").[A3].End(xlDown)(2)

A plus

 

[hicham28]

Re : ajouter une linge

merci de ta reposer,
j'arrive pas a l'integrer sur le code!!!dsl