Copier des lignes

Question

Bonjour,

Dans une feuille Facture , je rentre des items

Je souhaite que en appuyant sur le bouton valider, cela copie les lignes de la facture vers une autre feuille Facturation.

Mon soucis est que cela ne copie que la premiere ligne de la facture. facture 148 voir photo

J'en suis a 149 essais, pourriez vous m'aider s'il vous plait.

Merci

Private Sub CommandButton1_Click()
Dim nombre_ligne As Integer
Dim ligne As Integer
Dim dlt As Integer
'controler si toute les informations besoin sont la

    For ligne = 0 To nombre_ligne
            Sheets("Facturation").ListObjects(1).ListRows.Add
            dlt = Sheets("Facturation").Range("b9999").End(xlUp).Row

    Sheets("Facturation").Range("c" & dlt) = Range("d5")
    Sheets("Facturation").Range("d" & dlt) = Range("b16")
    Sheets("Facturation").Range("e" & dlt) = Range("c16")
    Sheets("Facturation").Range("f" & dlt) = Range("a16")
    Sheets("Facturation").Range("g" & dlt) = Range("d16")
    Sheets("Facturation").Range("h" & dlt) = Range("e16")
    Sheets("Facturation").Range("i" & dlt) = Range("d8")
    Next ligne
    Range("D8") = ""

    Sheets("Config").Range("d22") = Sheets("Config").Range("d22") + 1

    'savegarder le fichier
    ActiveWorkbook.Save

End Sub

Private Sub Worksheet_Activate()
    'Range("d4") = ""
End Sub

3GB · Answer

Votre variable nombre_ligne ne parait pas initialisée. De plus, vous affectiez toujours la ligne 16 (statique) au lieu d'appliquer une incrémentation (15 + ligne) sur les lignes du corps de facture également. Voici un code à adapter avec vos vrais noms et références. Je commence la boucle à 1. Je vous conseille par ailleurs de nommer toutes les cellules D5, D6, D8, ... et de nommer "CorpsFacture" la zone avec les lignes (ou de nommer 5 zones comme dans le code ci-dessous) et également vos cellules de totaux. Ce sera plus simple. Private Sub CommandButton1_Click() Dim nombre_ligne As Integer Dim ligne As Integer Dim dlt As Integer nombre_ligne = application.counta(Range("ZoneDescription")) 'compte nombre valeurs dans la colonne description de la facture 'REMPLACER "Zone..." par nom plage ou zone concernée For ligne = 1 To nombre_ligne 'de 1 à Nb ligne with Sheets("Facturation") 'sur facturation .ListObjects(1).ListRows.Add 'ajoute ligne au tableau with .Range("NOMDUTABLEAU") 'sur les données du tableau (remplacer nom) dlt = .Rows.Count 'dernière ligne tab 'si tableau commence en colonne C comme supposé 'ICI, ON CONSIDERE LES PLAGES NOMMEES 'LES RANGE QTÉ À HT NE CONTIENNENT PAS LE TITRE ! .cells(dlt, 1).value = Range("DateFC") '!!! CE SONT DES EXEMPLES AVEC LES PLAGES NOMMEES (ICI, D5) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.cells(dlt, 2).value = Range("NumFC").cells(ligne) 'D4 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.cells(dlt, 3).value = Range("Client") 'D8 .cells(dlt, 4).value = Range("Quantité").cells(ligne) 'A16, 17, ... .cells(dlt, 5).value = Range("Code").cells(ligne) .cells(dlt, 6).value = Range("ZoneDescription").cells(ligne) .cells(dlt, 7).value = Range("Prix").cells(ligne) .cells(dlt, 8).value = Range("HT").cells(ligne) end with end with Next ligne Range("Client") = "" Sheets("Config").Range("d22") = Sheets("Config").Range("d22") + 1 'savegarder le fichier 'ActiveWorkbook.Save End Sub Cdlt...

jonyboy · Answer

Je pense que le problème vient du fait que vous utilisiez des valeurs fixe au lieu de variable: Sheets("Facturation").Range("d" & dlt) = Range("b16") Du coup toute la colonne C de la feuille Facturation sera égale à la cellule b16 de la feuille active il faut jouer sur le Range("b16") Sheets("Facturation").Range("d" & dlt) = Range("B" & variable) edit: la réponse de 3GB est quand même beaucoup plus précise que la mienne ^^...

3GB · Answer

Oui, c'est une erreur de ma part... J'ai édité mon commentaire et fait un copier / coller sans faire attention.

Donc pour résumer, ton tableau sur la feuille facturation se nomme "Facture".

Si je peux me permettre, je te conseille de :

- mettre le client en colonne 3 de ton tableau, c'est plus intuitif (Date - facture - client - .... - Totaux).

- et surtout nommer les cellules D4, D5, ..., A16:A27, .... via le gestionnaire de noms (ou définir un nom). C'est en général dans le volet excel Formules (ou données parfois).
Pourquoi ? Car, sinon, tes références dans ton code sont statiques et au moindre petit changement sur ta feuille (exemple : rajouter une adresse bis pour le client, une mention spéciale), ça décalerait tout et ça ne marcherait plus.

Cdlt,

3GB · Answer

En fait, il peut y avoir un plage nommée sur chaque feuille si elle s'applique uniquement à sa feuille. Sinon, si un nom s'applique à tout le classeur (et c'est le cas des tableaux structurés), il ne peut y avoir 2 fois le même nom.

Quand tu as copié ta feuille "Facturation", le nom du tableau de la feuille obtenue (Booking) est devenu quelque chose comme "Facture2".

Il faudrait renommer ce 2nd tableau (et dans le code également).

Cordialement,

3GB · Answer

Est-ce que tu peux essayer ceci tout d'abord :

Private Sub CommandButton1_Click()

Dim nombre_lignes%, ligne%, dlt%, DL%

nombre_lignes = Application.CountA(Range("a16:a27")) 'compte nombre valeurs dans la colonne description de la facture

For ligne = 1 To nombre_lignes 'de 1 à Nb ligne

    With Sheets("Facturation") 'sur facturation
        .ListObjects(1).ListRows.Add 'ajoute ligne au tableau
        With .Range("Facture") 'sur les données du tableau (remplacer nom)
            dlt = .Rows.Count 'dernière ligne tab
            'si tableau commence en colonne C comme supposé
            'ICI, ON CONSIDERE LES PLAGES NOMMEES
            'LES RANGE QTÉ À HT NE CONTIENNENT PAS LE TITRE !
            .Cells(dlt, 1).Value = Range("d4") '!!! CE SONT DES EXEMPLES AVEC LES PLAGES NOMMEES (ICI, D5)
            .Cells(dlt, 2).Value = Range("d5")
            .Cells(dlt, 3).Value = Range("b16").Cells(ligne)
            .Cells(dlt, 4).Value = Range("c16").Cells(ligne)
            .Cells(dlt, 5).Value = Range("a16").Cells(ligne)
            .Cells(dlt, 6).Value = Range("d16").Cells(ligne)
            .Cells(dlt, 7).Value = Range("e16").Cells(ligne)
            .Cells(dlt, 8).Value = Range("d8")

        End With
    End With

    with Sheets("Booking")
        .ListObjects(1).ListRows.Add
        with .Range("Stock") 'nom à adapter !!!<<<<<<<<<<<<--------------------------------------
            DL = .rows.count
            .Cells(DL, 1).Value = "Sortie"
            .Cells(DL, 2).Value = Range("d4")
            .Cells(DL, 2).Value = Range("d5")
            .Cells(DL, 2).Value = Range("a16").cells(ligne)
            .Cells(DL, 2).Value = Range("d16").cells(ligne)
            .Cells(DL, 2).Value = Range("e16").cells(ligne)
        end with
    end with

Next ligne

Range("D8") = ""

Sheets("Config").Range("d22") = Sheets("Config").Range("d22") + 1

'savegarder le fichier
ActiveWorkbook.Save

End Sub

RQ : IL FAUT ABSOLUMENT NOMMER TES RANGE D4, D5, D8, A16:A27, ..., E16:E27, AINSI QUE LES SOUS-TOTAUX (E28, E29, ...) !!!

3GB · Answer

Tu peux m'envoyer ton fichier si tu veux, je peux le faire...

3GB · Answer

Alors, je viens d'essayer de modifier ton fichier mais ça bloque (à cause d'un objet activeX) car je suis sur un mac...

3GB · Answer

Je viens de t'envoyer multitude de messages privés avec justement le code à jour . Le problème est le même que celui à l'origine de ton poste. Dans ta boucle, tu mets la référence statique, "B16" par exemple, au lieu de jouer sur l'incrémentation de la variable ligne. Il aurait fallu faire : Sheets("Booking").Range("G" & DL) = Sheets("Facture").Range("b" & 15 + ligne) ou comme je le préfère : Sheets("Booking").Range("G" & DL) = Sheets("Facture").Range("Codes").cells(ligne) &gt;&gt;&gt;&gt; des messages t'attendent ...