Bonjour,
j'ai créé un ficher avec plusieurs feuilles achats et une feuille synthèse. Le but est que des informations de la feuille achat soient regroupées dans la feuille synthèse. J'ai réussi à faire celà avec la macro suivante qui est présente dans chaque feuille achat et associée à un bouton. En cliquant sur le bouton j'ai donc une ligne qui se crée dans la feuille synthèse.
Ma macro est la suivante :
Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'enregistrement dans Base pour pointage annee
'ici je repère la dernière ligne vide pour la Collections des données
L = Sheets("Synthèse").Range("a65536").End(xlUp).Row + 1
'Pour voir se qui se passe je bascule sur la feuille
'Ici c'est le report de la saisie dans la feuille
With Sheets("Synthèse")
'Baker
.Range("a" & L).Value = ActiveSheet.Range("c9")
.Range("b" & L).Value = ActiveSheet.Range("c10")
.Range("c" & L).Value = ActiveSheet.Range("c11")
.Range("d" & L).Value = ActiveSheet.Range("j14")
.Range("e" & L).Value = ActiveSheet.Range("c14")
.Range("f" & L).Value = ActiveSheet.Range("c19")
.Range("g" & L).Value = ActiveSheet.Range("c18")
.Range("h" & L).Value = ActiveSheet.Range("k19")
.Range("i" & L).Value = ActiveSheet.Range("k18")
.Range("j" & L).Value = ActiveSheet.Range("a22")
.Range("k" & L).Value = ActiveSheet.Range("i22")
End With
End Sub
J'ai un deuxième problème qui ai que j'aimerais que quand on modifie des informations dans la fiche achat, la ligne dans la feuille synthèse se mette à jour automatiquement soit par une macro de mise à jour soit en créant la nouvelle ligne et en supprimant l'ancienne.
J'ai essayé des macros de mise à jour et de doublons mais cela ne fonctionne pas.
Si vous avez des idées.
Jevous remercie pour l'aide future.
Bonne journée
j'ai créé un ficher avec plusieurs feuilles achats et une feuille synthèse. Le but est que des informations de la feuille achat soient regroupées dans la feuille synthèse. J'ai réussi à faire celà avec la macro suivante qui est présente dans chaque feuille achat et associée à un bouton. En cliquant sur le bouton j'ai donc une ligne qui se crée dans la feuille synthèse.
Ma macro est la suivante :
Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'enregistrement dans Base pour pointage annee
'ici je repère la dernière ligne vide pour la Collections des données
L = Sheets("Synthèse").Range("a65536").End(xlUp).Row + 1
'Pour voir se qui se passe je bascule sur la feuille
'Ici c'est le report de la saisie dans la feuille
With Sheets("Synthèse")
'Baker
.Range("a" & L).Value = ActiveSheet.Range("c9")
.Range("b" & L).Value = ActiveSheet.Range("c10")
.Range("c" & L).Value = ActiveSheet.Range("c11")
.Range("d" & L).Value = ActiveSheet.Range("j14")
.Range("e" & L).Value = ActiveSheet.Range("c14")
.Range("f" & L).Value = ActiveSheet.Range("c19")
.Range("g" & L).Value = ActiveSheet.Range("c18")
.Range("h" & L).Value = ActiveSheet.Range("k19")
.Range("i" & L).Value = ActiveSheet.Range("k18")
.Range("j" & L).Value = ActiveSheet.Range("a22")
.Range("k" & L).Value = ActiveSheet.Range("i22")
End With
End Sub
J'ai un deuxième problème qui ai que j'aimerais que quand on modifie des informations dans la fiche achat, la ligne dans la feuille synthèse se mette à jour automatiquement soit par une macro de mise à jour soit en créant la nouvelle ligne et en supprimant l'ancienne.
J'ai essayé des macros de mise à jour et de doublons mais cela ne fonctionne pas.
Si vous avez des idées.
Jevous remercie pour l'aide future.
Bonne journée