Discussion :

[Ihaben]

Bonjour,

J'ai des informations sur une feuille sous forme de Tableau que j'aimerais copier et coller la ligne quand la dénrnière colonne de cette ligne est bien remplie.

Normalement mon fichier fonctionnais correctement jusqu'à ce que je rajoute des lignes sur la feuil initial (j'ai l'erreur sur la ligne 27)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub Btn_CreationCommande()
 
'MessageBox de confirmation de création de commande
Dim Var_Answer_order As Integer
Var_Answer_order = MsgBox("Souhaitez-vous créer un bon de commande?", vbYesNo + vbQuestion, "Création de bon de commande")
'Start IF
If Var_Answer_order = vbNo Then _
    'do nothing
Else
 
    'Affichage feuille "COMMANDE"
    Sheets("COMMANDE").Visible = True
 
    'Suppression des données de la commande
    Sheets("COMMANDE").Rows("12:10000").Delete
 
    'Mettre les infos générales de la commande
    Sheets("COMMANDE").Range("B6").Value = Date
    Sheets("COMMANDE").Range("B8").Value = Sheets("Info").Range("A22").Value
    Sheets("COMMANDE").Range("E6").Value = Sheets("Info").Range("A10").Value
 
    'Boucle for n=1 à n=NbRow pour la gamme ALJADIDPRO
    Dim NbRow As Integer
        NbRow = Range("Table_ALJADIDPRO").Rows.Count
 
    Dim LastRow As Integer
        LastRow = Range("Table_COMMANDE").Rows.Count
        'Mettre "Produits ALJADID PRO" en en-tete de produits
        Range("table_COMMANDE").Cells(LastRow, 1) = "Produits ALJADID PRO"
             Range("table_COMMANDE").Cells(LastRow, 1).Font.Bold = True
 
    Dim i As Integer
    For i = 1 To NbRow 'or Range("Table_ALJADIDPRO").Cells(i, 6).Value
        If Range("Table_ALJADIDPRO").Cells(i, 6).Value Or Range("Table_ALJADIDPRO").Cells(i, 7).Value <> Empty Then _
 
                If Range("table_COMMANDE").Cells(LastRow, 1).Value <> Empty Then _
                    LastRow = LastRow + 1
                    Range("table_COMMANDE").Cells(LastRow, 1).Value = Range("Table_ALJADIDPRO").Cells(i, 1).Value
                    Range("table_COMMANDE").Cells(LastRow, 2).Value = Range("Table_ALJADIDPRO").Cells(i, 2).Value
                    Range("table_COMMANDE").Cells(LastRow, 3).Value = Range("Table_ALJADIDPRO").Cells(i, 6).Value
                    Range("table_COMMANDE").Cells(LastRow, 4).Value = Range("Table_ALJADIDPRO").Cells(i, 7).Value
                        Range("table_COMMANDE").Cells(LastRow, 1).Borders.Weight = xlThin
                        Range("table_COMMANDE").Cells(LastRow, 2).Borders.Weight = xlThin
                        Range("table_COMMANDE").Cells(LastRow, 3).Borders.Weight = xlThin
                        Range("table_COMMANDE").Cells(LastRow, 3).HorizontalAlignment = xlCenter
                        Range("table_COMMANDE").Cells(LastRow, 4).Borders.Weight = xlThin
                        Range("table_COMMANDE").Cells(LastRow, 4).NumberFormat = "0"" kg"""
                        Range("table_COMMANDE").Cells(LastRow, 5).Borders.Weight = xlThin
                End If
    Next

Merci pour votre retour.

[Philippe Tulliez]

Bonjour,
Tu écris

j'aimerais copier et coller la ligne quand la dénrnière colonne de cette ligne est bien remplie

or dans le code que tu publies, tu utilises une boucle qui part de la première à la dernière ligne d'une liste de données
J'avoue ne pas comprendre. Est-ce la copie de toute la liste ou d'une seule ligne ?

[Ihaben]

Bonjour,

Le but est : à partir d'une base de données "ALJADID-PRO" où la dernière colonne peut être remplie par l'utilisateur. On appuyant sur un bouton, il y a une nouvelle feuille qui s'affiche "Commande" avec toutes les lignes de la base où la cellule de la dernière colonne a été remplie, à partir de cette commande on va créer une fiche de préparation par la suite.

Mon script se bloque quand je veux passer de la base de données à la fiche commande.

[révèr]

Bonjour Philippe et Ihaben,

Je pense que la demande correspond à ...

Lorsque la cellule de la dernière colonne de n'importe quelle ligne est remplie, alors copier la cellule dans un tableau ne comprenant que les lignes dont la cellule de la dernière colonne est saisie...

Dans ce cas, ne serait-il pas plus adapté de faire un filtre automatique basé sur la dernière colonne ?
Au vu de ton code, je suppose qu'il s'agit de la colonne 7 où tu renseignes cette information.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim Wb As ThisWorkbook
Dim WbO As Worksheet, WbC As Worksheet
Dim tO As ListObject, tC As ListObject
 
Set WbO = Wb.Sheets("ADJADIDPRO")
Set WbC = Wb.Sheets("COMMANDES")
Set tO = WbO.ListObjects("Table_ADJADIDPRO")
Set tC = WbC.ListObjects("Table_COMMANDES")
'Peut-on pointer plusieurs objets de même type ? Je me pose la question
 
tC.Clear
 
Do
   tC.DataBodyRange.Rows(2).Delete
Loop Until tC.DataBodyRange.Rows.Count > 1
 
tO.AutoFilter
 
tO.ListColumns(7).DataBodyRange.SpecialCells(xlCellTypeConstants).AutoFilter
 
tO.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy Destination:=tC.DataBodyRange(1,1)

Je précise que je n'ai pas testé ce code, mais au niveau du fonctionnement escompté cela donnerait ...

Déclaration de Variables
2 Feuilles, 2 Tableaux (1 Tableau par Feuille)
Déclarer des variables pour chacune de ces feuilles et tableaux. (Nécessite la création de Tableau Structuré)

Vider tC et supprimer les lignes du tableau tant qu'il y en a plus que 2.

Réinitialiser les filtres sur tO

Effectuer un filtre sur tO basé sur la colonne 7. Ce filtre ne prendra que les lignes dont la cellule (n_Ligne,7) contient une valeur.

Copier le tableau ne comprenant que les cellules visibles et le colle dans la première cellule de la table de données du tableau tC.



En espérant que tu aies compris le fonctionnement de ce dernier et que tu saches l'adapter ou modifier le code si le résultat escompté ne correspond pas.

Il y a sûrement plus optimal, comme directement copier à partir du filtre ? Je ne sais pas si cela est possible...

Révèr