XL 2010 Gestion de commandes

bodegue

XLDnaute Nouveau
Bonjour,

Je voudrais savoir si il est possible à l'aide d'un bouton "Enregistrement de cde", de recopier les données saisies en jaunes de la feuille "Bon de cde" sur la feuille "Suivi de cde".

Merci pour vos suggestions
 

Pièces jointes

  • Suivi cde 2016.xlsx
    29.1 KB · Affichages: 95

vgendron

XLDnaute Barbatruc
Hello

avec ce code à mettre dans un module standard
VB:
Type commande
BL As String
jour As Date
NumAffaire As String
RefI As String
Designation As String
qte As Integer
End Type

Sub recopie()

Dim tablo() As commande
NbCommandes = Range("A" & Rows.Count).End(xlUp).Row - 7
ReDim tablo(1 To NbCommandes)

For i = LBound(tablo) To UBound(tablo)
    tablo(i).BL = [E1]
    tablo(i).jour = [E3]
    tablo(i).NumAffaire = [B5]
    tablo(i).RefI = Range("A7").Offset(i, 0)
    tablo(i).Designation = Range("B7").Offset(i, 0)
    tablo(i).qte = Range("E7").Offset(i, 0)
Next i
   
With Sheets("Suivi cde")
    For i = LBound(tablo) To UBound(tablo)
        .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).BL
        .Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).jour
        .Range("C" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).RefI
        .Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).Designation
        .Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).NumAffaire
        .Range("F" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).qte
    Next i
End With
End Sub

PS: il faut réduire la table dans la feuille de suivi
en règle générale. ne jamais "prévoir" de lignes vides dans une table. puisque
1) ca perturbe la detection de fin de ligne
2) Par principe, une table s'adapte automatiquement au nombre de lignes saisies..
 

bodegue

XLDnaute Nouveau
Bonjour,

Merci pour votre réactivité.
J'ai plusieurs problèmes.
Les données ne sont pas recopiées correctement dans le fichier "suivi de cde".
Il faudrait que les commandes s'enregistrent les unes en dessous des autres.
Je peux enregistrer deux fois le même numéro de commande
 

vgendron

XLDnaute Barbatruc
Bonjour
il va falloir donner plus de détails..

Les données ne sont pas recopiées correctement
c'est à dire?

Il faudrait que les commandes s'enregistrent les unes en dessous des autres.
il me semble pourtant que c'est ce que la macro fait..??

Je peux enregistrer deux fois le même numéro de commande
effectivement, la macro ne va pas voir si la commande existe déjà dans le tableau..
c'est un souhait ou un état de fait?
 

Discussions similaires

Réponses
8
Affichages
541
Réponses
12
Affichages
208
Réponses
18
Affichages
868

Statistiques des forums

Discussions
314 017
Messages
2 104 582
Membres
109 083
dernier inscrit
Stef06