Bonsoir à tous,
j'ai créé un tableau dans la feuille "sheet1" qui se remplit automatiquement avec les données de la feuil1 dès que l'on clique sur le bouton essai :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function trouvefincol(nlig As Integer, ncol As Integer) As Integer
While (Len(Trim(Cells(nlig, ncol))) <> 0)
     nlig = nlig + 1
Wend
trouvefincol = nlig
End Function
 
Public Sub premiervide()
Dim nlig As Integer, ncol As Integer
       ncol = 1
       nlig = 4
       i = (trouvefincol(nlig, ncol))
       sheet1.Cells(i, 1) = Feuil1.Cells(1, 3)
       sheet1.Cells(i, 2) = Feuil1.Cells(6, 4)
       sheet1.Cells(i, 4) = Feuil1.Cells(8, 4)
       sheet1.Cells(i, 6) = Feuil1.Cells(10, 4)
       sheet1.Cells(i, 8) = Feuil1.Cells(12, 4)
       sheet1.Cells(i, 10) = Feuil1.Cells(14, 4)
       sheet1.Cells(i, 12) = Feuil1.Cells(16, 4)
       sheet1.Cells(i, 14) = Feuil1.Cells(18, 4)
       sheet1.Cells(i, 16) = Feuil1.Cells(20, 4)
       sheet1.Cells(1, 5) = sheet1.Cells(i, 1)
End Sub
Jusque là pas de problème.
Mais je voudrais maintenant supprimer le bouton "essai" et que ces données apparaissent directement lorsque je clique sur "ENREGISTRER" dans mon userform dont voici le début du code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub ENREGISTRER_Click()
ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\All Users\bureau\FIN_RECEP.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
J'espere avoir été a peu près compréhensible car mon idée est un peu tordu je sais lol ....
Merci de votre aide !