Bonjour le forum
je travaille actuellement sur un petit projet sous Excel/VBA mais sincèrement je n'arrive pas a m'en sortir.
j'ai créer un userforme qui contiens 7 optionbuttons correspondant aux nombre de feuilles je voudrais qu'as chaque sélection il me transcris les données dans la feuille qui correspond actuellement il me transcris dans tous les feuilles et ce n'est pas mon but voici le code:
Private Sub CommandButton1_Click()
Dim L As Integer
Dim N As Integer
Dim I As Integer
Dim coche As Integer
Dim WS_Count As Integer
On Error Resume Next
WS_Count = ActiveWorkbook.Worksheets.Count
For N = 1 To 7
If Me.Controls("OptionButton" & N) True Then coche True
Next N
If Not coche Then
MsgBox "Veuillez Selectionner le Bureau Local !", , "ATTENTION !"
Exit Sub
End If
For I = 1 To WS_Count
If Me.OptionButton1.Value Then Sheets(I).Feuil1
If Me.OptionButton2.Value Then Sheets(I).Feuil2
If Me.OptionButton3.Value Then Sheets(I).Feuil3
'Sheets(I).Select
L = Sheets(I).Range("A65536").End(xlUp).Row + 1
With Sheets(I)
.Range("A" & L) = Format(TextBox1, "00/0/0/0000")
.Range("B" & L) = Format(TextBox2, "00/0/0/0000")
.Range("C" & L) = Application.Proper(TextBox3)
.Range("D" & L) = CDate(TextBox4)
.Range("E" & L) = Application.Proper(TextBox5)
.Range("F" & L) = Format(TextBox6, "000 000000 00000|00")
.Range("G" & L) = ComboBox1.Value
.Range("H" & L) = Format(TextBox7, "000 000000 00000|00")
End With
Next I
Ini
Merci d'avance de votre aide U DES CODES