Sujet Précédent Sujet Suivant

Excel VB

Résolu/Fermé
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024 - 11 nov. 2008 à 19:02
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 22 nov. 2008 à 13:50
Bonsoir à tous, voilà j'ai créé un Userform avec quelques textbox dans un classeur excel, tout va bien sauf quand je les enregistrer la feuille2 cela ne se fait, elle s'enregistre sur la feuille1, je dois garder cette feuille pour mon menu.
voici l'exemple de mon code. Si quelqu'un peut m'aidé. Merci


Private Sub cmdOK_Click()
'on teste la saisie date...'
If Me.TextBox1.Text = "" Then
MsgBox "entrer la date."
Me.TextBox1.SetFocus
Exit Sub
End If

Sheets("feuil2").Range("A3").Value = Me.TextBox1
Sheets("Feuil2").Range("B3").Value = Me.TextBox2
Sheets("Feuil2").Range("C3").Value = Me.TextBox3
Sheets("feuil2").Range("D3").Value = Me.CheckBox1
Sheets("Feuil2").Range("E3").Value = Me.CheckBox5
Sheets("Feuil2").Range("F3").Value = Me.CheckBox8
Sheets("feuil2").Range("G3").Value = Me.CheckBox6
Unload Me

'Mise en place des valeurs saisies'

Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox2
Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox3
Range("D65536").End(xlUp).Offset(1, 0).Value = CheckBox1
Range("E65536").End(xlUp).Offset(1, 0).Value = CheckBox5
Range("F65536").End(xlUp).Offset(1, 0).Value = CheckBox8
Range("G65536").End(xlUp).Offset(1, 0).Value = CheckBox6
Onload Me

End Sub

6 réponses

Réponse 1 / 6
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 708
12 nov. 2008 à 09:29
bonjour


Ne serais-ce pas plus judicieux ainsi ?

Sheets("feuil2").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
etc
0
Réponse 2 / 6
jh50160
12 nov. 2008 à 13:29
Salut gbinforme

Je te remercie pour ta réponse. Impécable.
0
Réponse 3 / 6
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 293
12 nov. 2008 à 14:22
c'est normal !
d'après ton code

tu écris une premiere fois directement sur la feuille2
avec ce code Sheets("feuil2").Range("A3").Value = Me.TextBox1

puis

tu veux quitter ta procédure qui ne vois pas end sub par Unload Me
elle continue et écris le code suivant

Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
et comme je pense qu'initialement tu étais sur la feuille1 ( ton menu) , tu écris sur ton menu.

puis tu fais un faute "d'orthographe " "syntaxe" en écrivant "Onload Me "

tu avanceras dans ton problème avec

sheets("feuil2").select

application.screenupdating=false
'ton code
sheets("feuil1").select ' ton menu
application.screenupdating=true
unload me
0
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024
22 nov. 2008 à 12:44
Salut, je te remerci pour ton aide. C'est OK. Merci.
0
Réponse 4 / 6
ahmede
22 nov. 2008 à 13:09
cours d' Excel VB
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
ahmede
22 nov. 2008 à 13:17
Bonjour, Je travaille sur Excel/VBA. Sur Excel je sais que les fonction min et max existe. Mais sur VBA, Est ce qu'il y a une fonction qui trouve le minimum et une fonction qui trouve le maximum, ou bien c'est à moi de créer ces fonctions? Merci
0
Réponse 6 / 6
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 293
22 nov. 2008 à 13:50
pour un tableau "Array" il y a ubound et lbound
pour les valeurs je n'en connais pas
personnellement je ferai une fonction

mais pour information, la fonction .formulaR1C1 reprend Min et Max

ce peut être une solution
0