Macro copie
a
bonjour,
je souhaiterais avoir une macro qui me rescopie automatiquement les données remplies et me réinitialise mon formulaire.
J'ai décris ma demande dans le fichier joint :
https://www.excel-pratique.com/~files/doc2/classeur.xls
j'espère que vous pourrez m'aider,
A+
N
Bonjour et bienvenue,
Avec ces 2 codes à placer en VBA dans un module :
Sub Copier()
'Macro Dan pour ana68 - XLP le 04/06/09
Dim dlg As Integer
Dim i As Byte
With Sheets("Feuil2")
dlg = .Range("C65536").End(xlUp).Row + 1
For i = 3 To 7
If IsEmpty(Sheets("Feuil1").Range("A" & i)) Then End
Sheets("Feuil1").Range("D" & i).Copy Destination:=.Cells(dlg, 2)
.Cells(dlg, 3) = Sheets("Feuil1").Range("A" & i)
.Cells(dlg, 4) = Sheets("Feuil1").Range("C" & i)
.Cells(dlg, 5) = Sheets("Feuil1").Range("B11")
dlg = dlg + 1
Next
End With
End SubSub efface()
'Macro Dan pour ana68 - XLP le 04/06/09
Sheets("Feuil1").Range("A3:D7", "B11").ClearContents
End SubChaque code à associer à un bouton comme tu l'as demandé (Clique droite sur le bouton puis choisir "Affecter à une macro"
Amicalement
Dan
PS : si ton pb est terminé, n'oublie pas de mettre RESOLU sur le fil. Explications ici --> https://forum.excel-pratique.com/viewtopic.php?t=13
Merci de ta participation.
a
merci beaucoup pour votre aide et bon WE