Excel VB

Résolu
jh50160 Messages postés 103 Statut Membre -  
Bidouilleu_R Messages postés 1209 Statut Membre -
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
Configuration: Windows XP
Internet Explorer 7.0
Office 2000

6 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Ne serais-ce pas plus judicieux ainsi ?

    Sheets("feuil2").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1
    etc
    0
  2. jh50160
     
    Salut gbinforme

    Je te remercie pour ta réponse. Impécable.
    0
  3. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    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
    1. jh50160 Messages postés 103 Statut Membre
       
      Salut, je te remerci pour ton aide. C'est OK. Merci.
      0

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

    Posez votre question
  6. ahmede
     
    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
  7. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    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