Discussion :

[stargates]

bonjour,

En cliquant sur un bouton sur un userform ,je voudrais créer une nouvelle feuille excel et la renommer

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub cmdAjouter_Click()
Dim nom As String
nom = txtNom.Text
 
ActiveWorkbook.Sheets("Monballiu").Copy After:=Worksheets(Worksheets.Count)
ActiveWorkbook.ActiveSheet.Name = nom
ActiveWorkbook.ActiveSheet.Select
End Sub

mon problème c'est qu'il crée la feuille lorsque je quitte mon userform
et moi je voudrais qu'i la crée lorsque je clique sur le bouton ajouter

code du bouton quitter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub cmdQuitter_Click()
End
End Sub

une idée merci

[Jeannot45]

Bonjour,

Regarde du coté de l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do Events

[stargates]

je n'ai jamais utilisé l'instruction Do Events et l'aide (F1)
ne me donne pas beaucoup d'éclaircissement.
Dans ce cas comment peut-on l'utiliser?


merci

[ouskel'n'or]

Sinon, tout peut s'expliquer si tu as un "Application.screenUpdating = false" quelque part dans ton code. Auquel cas, après création de ta feuille, tu peux ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.screenUpdating = True
DoEvents
'et si tu en as besoin plus loin, remettre
Application.screenUpdating = false

A+

[stargates]

ok cela fonctionne avec ton code ouskel'n'or

merci à tous les deux