Forums XLPages

Excel & VBA Forum principal [résolu] Ecrire a l'aide d'un seul code dans une feuille choisie par option Button

Ecrire a l'aide d'un seul code dans une feuille choisie par option Button
#1
floka61
Débutant XLPages

Inscription: 19/09/2011

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-02-2012 20h27
 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
Hors Ligne
 Rapport   Haut 

Re: Ecrire a l'aide d'un seul code dans une feuille choisie par option Button
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 19-02-2012 23h11
Bonsoir floka61,

Avant de poster un nouveau sujet, tu serais gentil de bien vouloir mettre en pratique sur ton sujet précédent ce qui est inscrit au bas de ma signature et répété un peu partout dans ce forum...

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Ecrire a l'aide d'un seul code dans une feuille choisie par option Button
#3
floka61
Débutant XLPages

Inscription: 19/09/2011

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 20-02-2012 15h25
bonjour le Forum bonjour didier

c'est bon j'ai bien trouver la solution encore une fois merci et surtout pour l'accueil

bonne journée
 

 
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes