Discussion :

[Surinox]

Bonjour ,

j'aurrais besoin de votre aide , je doit transferrer des données d'un tableau dans un autre tableau présent dans un formulaire d'impressions :

Ce tableau là :


Dans ce tableau là :



Sachant que je ne veut que copier Lot , quantité ,unité .
Et que si une ligne est pleine , on me créer une ligne automatiquement sur le formulaire d'impression et on y copie la ligne et si une est vide on passe à la suivante sans créer la ligne .

J'avais déjà créer un boue de code qui ne fonctionner pas du tout ( voir piece jointe ) , sa m'afficher bien la liste sauf quand une ligne était vide tout ce déforme .


J'ai réfléchie et penser à une méthode avec un FOR allant de 2 à 12 et qui regarde si la ligne est pleine ou non .
Mais je vous avoue que je suis un peut perdu actuellement je ne vois pas trop comment faire , quelqu'un pourrait m'aider ?

Si quelqu'un peut m'aider je suis vraiment perdu , Merci

[tamtam64]

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
Option Explicit
Option Base 1
 
Sub Position()
 
    Dim xlsheet As Worksheet
    Dim xlsheet2 As Worksheet
    Dim AllRange As Range, MyRange As Range
    Dim Ligne(1, 3), i As Long
    Set xlsheet = ThisWorkbook.Worksheets("Feuil3")
    Set xlsheet2 = ThisWorkbook.Worksheets("Feuil2")
    Set AllRange = xlsheet.Range("Product")
    i = 18
    For Each MyRange In AllRange
       If MyRange.Value <> "" Then
            'on rajoute une ligne
            i = i + 1
            xlsheet2.Rows(i).Insert shift:=xlDown
            Ligne(1, 1) = MyRange.Offset(, 2).Value 'lot
            Ligne(1, 2) = MyRange.Offset(, 3).Value 'qte
            Ligne(1, 3) = MyRange.Offset(, 4).Value 'ute
            xlsheet2.Range(Range("C" & i), Range("E" & i)).Value = Ligne
        End If
    Next MyRange
End Sub

tu nome ton range Product par exemple

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
Option Explicit
Option Base 1
 
Sub Position()
 
    Dim xlsheet As Worksheet
    Dim xlsheet2 As Worksheet
    Dim AllRange As Range, MyRange As Range
    Dim Ligne(1, 3), i As Long
    Set xlsheet = ThisWorkbook.Worksheets("Feuil3")
    Set xlsheet2 = ThisWorkbook.Worksheets("Feuil2")
    Set AllRange = xlsheet.Range("Product")
    i = 18
    For Each MyRange In AllRange
       If MyRange.Value <> "" Then
            'on rajoute une ligne
            i = i + 1
            xlsheet2.Rows(i).Insert shift:=xlDown
            Ligne(1, 1) = MyRange.Offset(, 2).Value 'lot
            Ligne(1, 2) = MyRange.Offset(, 3).Value 'qte
            Ligne(1, 3) = MyRange.Offset(, 4).Value 'ute
            xlsheet2.Range(Range("C" & i), Range("E" & i)).Value = Ligne
        End If
    Next MyRange
End Sub

pour les mettres a la suite dehaut en bas c'est tetre mieux

[joe.levrai]

Bonjour,

la demande est trop vague, et l'exemple trop trivial pour proposer quelque chose de réutilisable

voici ce que j'ai fais, avec une seule formule excel :

1) déjà, supprime la ligne vide dans ton tableau
2) insère des lignes au dessus du tableau, pour le faire commencer à la ligne 18 qui contiendra tes titres
3) dans ton bon de commande, écrit en C19 la formule suivante

Code :

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

=Tableau1[[#Données];[Lot]]

4) étire cette formule jusqu'en bas pour remplir tout tes lots
5) étire ensuite cette formule sur les colonnes d'à côté, ça va automatiquement modifier les formules pour afficher Unité et Quantité

Code :

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

=Tableau1[[#Données];[Unité]]

Code :

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

=Tableau1[[#Données];[Quantité]]

je te présente, les tableaux Excel !
A user et abuser sans modération
http://silkyroad.developpez.com/excel/tableau/

[Surinox]

joe.levrai > Tout d'abord merci à toi , cela fonctionne bien mais je veut créer des ligne automatiquement si la ligne est complète et ne rien faire si elle est vide hors là si je comprend bien je doit avoir toute les lignes de mon tableau déjà présente dans le bon de commande et cela même si elle sont vide ?

[Surinox]

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
Option Explicit
Option Base 1
 
Sub Position()
 
    Dim xlsheet As Worksheet
    Dim xlsheet2 As Worksheet
    Dim AllRange As Range, MyRange As Range
    Dim Ligne(1, 3), i As Long
    Set xlsheet = ThisWorkbook.Worksheets("Feuil3")
    Set xlsheet2 = ThisWorkbook.Worksheets("Feuil2")
    Set AllRange = xlsheet.Range("Product")
    i = 18
    For Each MyRange In AllRange
       If MyRange.Value <> "" Then
            'on rajoute une ligne
            i = i + 1
            xlsheet2.Rows(i).Insert shift:=xlDown
            Ligne(1, 1) = MyRange.Offset(, 2).Value 'lot
            Ligne(1, 2) = MyRange.Offset(, 3).Value 'qte
            Ligne(1, 3) = MyRange.Offset(, 4).Value 'ute
            xlsheet2.Range(Range("C" & i), Range("E" & i)).Value = Ligne
        End If
    Next MyRange
End Sub

pour les mettres a la suite dehaut en bas c'est tetre mieux

Tout d'abord merci d'avoir pris le temp de m'aider mais j'ai un soucis ,

Sa n'a pas l'air de fonctionner , j'ai mis le code dans le" Private Sub ButtonValider_Click()" pour qu'il s'execute une fois que l'on valide j'ai eu tort ? où ai je oublier de changer des valeur ? , sinon ça me donne l'erreur suivante et je clique sur ok sa me met "Option Explicit" en selectionner :

[tamtam64]

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
Option Explicit
Option Base 1
 
Sub Position()
 'definition des deux feuilles et range
    Dim xlsheet As Worksheet
    Dim xlsheet2 As Worksheet
    Dim AllRange As Range, MyRange As Range
     'ligne est un type tableau
    Dim Ligne(1, 3), i As Long
     ' on definit les deux feuilles , donc verifie que tes feuilles c'est bien Feuil2 et Feuil3
    Set xlsheet = ThisWorkbook.Worksheets("Feuil3")
    Set xlsheet2 = ThisWorkbook.Worksheets("Feuil2")
    'il faut nommer ton range "Product" ( sans les guillemets)
     ' en fait tu vas nommer seullement la premiere colonne de ton range pas le range entier
    Set AllRange = xlsheet.Range("Product")
    i = 18
    For Each MyRange In AllRange
       If MyRange.Value <> "" Then
            'on rajoute une ligne
            i = i + 1
            xlsheet2.Rows(i).Insert shift:=xlDown
            Ligne(1, 1) = MyRange.Offset(, 2).Value 'lot
            Ligne(1, 2) = MyRange.Offset(, 3).Value 'qte
            Ligne(1, 3) = MyRange.Offset(, 4).Value 'ute
            xlsheet2.Range(Range("C" & i), Range("E" & i)).Value = Ligne
        End If
    Next MyRange
End Sub

voila pour moi tu as oublié de definir le range c'est a dire que tu selectionne la premiere colonne de la partie qui t'interesse et tu remplace la valeur en haut a gauche par Product

[Surinox]

Je vais te montrer des screen cela serra peut être plus simple pour que tu m'explique :

Voilà la tableau de données :


Et voici le formulaire qui doit être remplis :




Donc j'ai essayer de faire ce que tu m'a dit même si sa reste floue , j'ai donc sélectionner la plage de cellule qui m’intéresser soit les 3 colonnes Lot , Unité et quantité avec toute les lignes du dessous comme ceci :



Puis ensuite dans Formule j'ai cliquer sur Ajouter un nom et je l'ai appeler Product ( sans les guillemets) .

Est ce que j'ai bon à partir de là ?

J'ai executer le programme mais visiblement sa ne fonctionne pas j'ai toujours la même erreur .

Je te met mon fichier en pièce jointe pour que tu regarde