XL 2010 Gestion de commandes

  • Initiateur de la discussion Initiateur de la discussion bodegue
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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..
 
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
 
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?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
13
Affichages
347
Réponses
5
Affichages
210
Réponses
8
Affichages
758
Réponses
5
Affichages
235
Retour