selection bien défini d'une feuille de calculRésolu

Question

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

aouaoua · Accepted Answer

Bonjour le Forum
c'est bon j'ai trouver la solution bonne journée a vous tous et merci
surtout pour l'accueil

bonne journée
FOU DES CODES

ucfoutu · Answer

Comme d'autres discussions ouvertes par toi (et qu'un administrateur a du déplacer), tu as ouverte celle-ci dans la section VB.Net, qui n'est pas ton outil de développement. CXette discussion aurait du être ouverte dans la section Langages dérivés > VBA. 

Ce non respect de la discipline de ce forum génère la nécessité d'une intervention d'un administrateur et gêne. Toute gêne est cause de lenteur.

Si la lenteur et la gêne ne te préoccupent pas, aucun problème ===>> tu attendras bien sagement, pour avoir ma réponse, qu'un administrateur ait eu le temps de repérer cette faute et l'envie de déplacer ta discussion. 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

aouaoua · Answer

bonjour ucfoutu
je m'excuse si ça peux causé un désagrément j'ai pas fais délibérément et tellement il y a tant de forum j'ai pas su ou mettre le sujet en question.
bonne journée
  
FOU DES CODES

ucfoutu · Answer

Tu viens de découvrir que, comme dans une auberge espagnole, chacun y trouve ce qu'il apporte. 

Pense à cela la prochaine fois et tu auras le bon accueil correspondant à ta bonne volonté. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Selection bien défini d'une feuille de calcul

4 réponses

Votre réponse