Même programme pour les autres feuilles

Bonjour,

Svp comment je fais pour appliquer le même programme ( formulaire ) pour les autres feuilles du classeur ?

Merci d'avance

Bonjour,

avec si peu de précisions, je dirais .... en utilisant une boucle For Next sur les feuilles du classeur....??

le code est le suivant :

Je suis encore débutante , je sais pas comment faire la boucle

Dim Ref

Private Sub UserForm_initialize()
For i = 2 To 7
Controls("Label" & i) = Feuil2.Cells(9, i)
Next i
Me.ComboBox1.List = Range(Feuil2.[B10], Feuil2.[B65000].End(xlUp)).Value
Me.ComboBox2.List = Range(Feuil6.[A2], Feuil6.[A65000].End(xlUp)).Value
Me.ComboBox3.List = Range(Feuil6.[B2], Feuil6.[B65000].End(xlUp)).Value
CommandButton3_Click
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1 = "" Then CommandButton3_Click: Exit Sub
Ref = Me.ComboBox1.ListIndex + 10
Me.TextBox1 = Feuil2.Cells(Ref, 2)
Me.TextBox2 = Feuil2.Cells(Ref, 3)
Me.ComboBox2 = Feuil2.Cells(Ref, 4)
Me.ComboBox3 = Feuil2.Cells(Ref, 5)
Me.TextBox3 = Feuil2.Cells(Ref, 6)
Me.TextBox4 = Feuil2.Cells(Ref, 7)
Me.TextBox5 = Feuil2.Cells(Ref, 8)
End Sub
Private Sub CommandButton1_Click()
On Error GoTo err
Set sh = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
lien = Me.TextBox5
Set fich = fs.getfile(lien)
lien = fich.shortpath
sh.Run lien
Exit Sub
err:
MsgBox "Erreur à l'ouverture du fichier. Vérifiez que le fichier n'a pas été renommé, déplacé ou supprimé.", vbCritical, "Erreur"
End Sub

Private Sub CommandButton2_Click()
For i = 2 To 3
If Controls("combobox" & i) = "" Then MsgBox "Merci de remplir tous les champs", vbInformation, "Validation": Exit Sub
Next i
For i = 1 To 5
If Controls("textbox" & i) = "" Then MsgBox "Merci de remplir tous les champs", vbInformation, "Validation": Exit Sub
Next i
If Not IsDate(Me.TextBox3) Then MsgBox "Format date incorrecte", vbInformation, "Erreur": Exit Sub
Feuil2.Cells(Ref, 2) = Me.TextBox1
Feuil2.Cells(Ref, 3) = Me.TextBox2
Feuil2.Cells(Ref, 4) = Me.ComboBox2
Feuil2.Cells(Ref, 5) = Me.ComboBox3
Feuil2.Cells(Ref, 6) = Me.TextBox3
Feuil2.Cells(Ref, 7) = Me.TextBox4
Feuil2.Cells(Ref, 8) = Me.TextBox5
MsgBox "Données sauvegardées avec succès !", vbInformation, "Enregistrement"
UserForm_initialize
End Sub
Private Sub CommandButton3_Click()
For i = 1 To 3
Controls("combobox" & i) = ""
Next i
For i = 1 To 5
Controls("textbox" & i) = ""
Next i
Ref = Feuil2.Range("B65000").End(xlUp).Row + 1
End Sub
Private Sub CommandButton4_Click()
If Me.ComboBox1 = "" Then Exit Sub
MSG = MsgBox("Confirmez-vous la suppression de " & Me.TextBox1 & " ?", vbCritical + vbYesNo, "Suppression")
If MSG = vbYes Then Feuil2.Cells(Ref, 1).EntireRow.Delete: UserForm_initialize
If MSG = vbNo Then Exit Sub
End Sub
Private Sub CommandButton5_Click()
Unload Me
End Sub
Private Sub CommandButton6_Click()
fileToOpen = Application.GetOpenFilename
If fileToOpen <> False Then
Me.TextBox5 = fileToOpen
End If
End Sub
Private Sub Label9_Click()
Me.TextBox3 = Format(CDate(Now), "dd/mm/yyyy")
End Sub

Sans savoir ce que vous voulez écrire dans toutes les feuilles, si elles ont la même structure des données, le même N° de dernière ligne ...

Pour boucler sur toutes les feuilles:

Dim Feuil as WorkSheet
.../...
For Each Feuil in WorkSheets
     Feuil.Cells(Ref, 2) = Me.TextBox1
     Feuil.Cells(Ref, 3) = Me.TextBox2
     Feuil.Cells(Ref, 4) = Me.ComboBox2
Next

A+

d'accord mercii beaucouuup .