Bonjour,
j'ai deux feuilles dans mon classeur,Interface_cde avec des données concernantune commandes et une Hist_cde avec sur chaqueligne les données d'une commande.
je souhaiterais que ma macro copie les données sur une nouvelles lignes à chaque fois mais our l'instant ça me met les valeur uniquement sur la première ligne, je n'arrive pas à ce que ça se mette sur la première ligne du tableau où il n'y a rien.
voila mon code:
Private Sub CommandButton1_Click()
Dim largeur_motif3 As Integer, longueur_motif3 As Integer, date_cde As Date, client As String, largeur_cadre As Integer, longueur_cadre As Integer, type_motif As String, num_cde As Integer, montant As Currency, maille As Integer, num_plan As String, face As String, tension_ecran As Integer, quatre_mm As String, nb_ligne As Integer
largeur_motif3 = Worksheets("Interface_cde").Range("A36:A36").Value
longueur_motif3 = Worksheets("Interface_cde").Range("E45:E45").Value
date_cde = Worksheets("Interface_cde").Range("C53:C53").Value
client = Worksheets("Interface_cde").Range("E10:E10").Value
largeur_cadre = Worksheets("Interface_cde").Range("C12:C12").Value
longueur_cadre = Worksheets("Interface_cde").Range("E12:E12").Value
type_motif = Worksheets("Interface_cde").Range("D16 16").Value
num_commande = Worksheets("Interface_cde").Range("F6:F6").Value
montant = Worksheets("Interface_cde").Range("C14:C14").Value
'num_plan = Worksheets("Interface_cde").Range("C12:C12").Value
'face = Worksheets("Interface_cde").Range("C12:C12").Value
tension_ecran = Worksheets("Interface_cde").Range("G19:G19").Value
'quatre_mm = Worksheets("Interface_cde").Range("C12:C12").Value
qtite = Worksheets("Interface_cde").Range("E18:E18").Value
For I = 3 To 200
Worksheets("Hist_cde").Range("A" & I).Value = num_commande
Worksheets("Hist_cde").Range("B" & I).Value = date_cde
Worksheets("Hist_cde").Range("D" & I).Value = qtité
Worksheets("Hist_cde").Range("C" & I).Value = client
Worksheets("Hist_cde").Range("E" & I).Value = montant
Worksheets("Hist_cde").Range("F" & I).Value = largeur_motif3
Worksheets("Hist_cde").Range("G" & I).Value = longueur_motif3
Worksheets("Hist_cde").Range("H" & I).Value = type_motif
Worksheets("Hist_cde").Range("I" & I).Value = largeur_cadre
Worksheets("Hist_cde").Range("J" & I).Value = longueur_cadre
Worksheets("Hist_cde").Range("K" & I).Value = maille
Worksheets("Hist_cde").Range("N" & I).Value = tension_ecran
I = 200
Unload Me
Next I
Unload Me
end sub
j'ai aussi sur ma feuille Interface_cde des checkbox et je ne sais pas comment faire un lien du type si la checkbox est cochée mettre oui dans une colonne de mon tableau Hist_cde.
en vous remerciant d'avanc pour votre aide
cdlt
j'ai deux feuilles dans mon classeur,Interface_cde avec des données concernantune commandes et une Hist_cde avec sur chaqueligne les données d'une commande.
je souhaiterais que ma macro copie les données sur une nouvelles lignes à chaque fois mais our l'instant ça me met les valeur uniquement sur la première ligne, je n'arrive pas à ce que ça se mette sur la première ligne du tableau où il n'y a rien.
voila mon code:
Private Sub CommandButton1_Click()
Dim largeur_motif3 As Integer, longueur_motif3 As Integer, date_cde As Date, client As String, largeur_cadre As Integer, longueur_cadre As Integer, type_motif As String, num_cde As Integer, montant As Currency, maille As Integer, num_plan As String, face As String, tension_ecran As Integer, quatre_mm As String, nb_ligne As Integer
largeur_motif3 = Worksheets("Interface_cde").Range("A36:A36").Value
longueur_motif3 = Worksheets("Interface_cde").Range("E45:E45").Value
date_cde = Worksheets("Interface_cde").Range("C53:C53").Value
client = Worksheets("Interface_cde").Range("E10:E10").Value
largeur_cadre = Worksheets("Interface_cde").Range("C12:C12").Value
longueur_cadre = Worksheets("Interface_cde").Range("E12:E12").Value
type_motif = Worksheets("Interface_cde").Range("D16
num_commande = Worksheets("Interface_cde").Range("F6:F6").Value
montant = Worksheets("Interface_cde").Range("C14:C14").Value
'num_plan = Worksheets("Interface_cde").Range("C12:C12").Value
'face = Worksheets("Interface_cde").Range("C12:C12").Value
tension_ecran = Worksheets("Interface_cde").Range("G19:G19").Value
'quatre_mm = Worksheets("Interface_cde").Range("C12:C12").Value
qtite = Worksheets("Interface_cde").Range("E18:E18").Value
For I = 3 To 200
Worksheets("Hist_cde").Range("A" & I).Value = num_commande
Worksheets("Hist_cde").Range("B" & I).Value = date_cde
Worksheets("Hist_cde").Range("D" & I).Value = qtité
Worksheets("Hist_cde").Range("C" & I).Value = client
Worksheets("Hist_cde").Range("E" & I).Value = montant
Worksheets("Hist_cde").Range("F" & I).Value = largeur_motif3
Worksheets("Hist_cde").Range("G" & I).Value = longueur_motif3
Worksheets("Hist_cde").Range("H" & I).Value = type_motif
Worksheets("Hist_cde").Range("I" & I).Value = largeur_cadre
Worksheets("Hist_cde").Range("J" & I).Value = longueur_cadre
Worksheets("Hist_cde").Range("K" & I).Value = maille
Worksheets("Hist_cde").Range("N" & I).Value = tension_ecran
I = 200
Unload Me
Next I
Unload Me
end sub
j'ai aussi sur ma feuille Interface_cde des checkbox et je ne sais pas comment faire un lien du type si la checkbox est cochée mettre oui dans une colonne de mon tableau Hist_cde.
en vous remerciant d'avanc pour votre aide
cdlt