Titre du sujet : Ecrire a l'aide d'un seul code dans une feuille choisie par option Button
par floka61 le 19/02/2012 20:27:06
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 a l'optionbutton coché 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
End Sub
Merci d'avance de votre aide
|
Didier FOURGEOT