Discussion :

[Nokho]

Bonjours à toutes et à tous!!! J'ai un un souci concernant un projet sur VBA. Dans celui-ci, il y a un UserForm qui contient quelques textbox et la feuille excel contient des chiffres. Mon probléme est que: je veux qu' à l'ouverture du UserForm, les chiffres viennent remplir les textbox. Le code que j'ai utilisé est:

Code :

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

1
2
3
4
Private Sub UserForm_Initialize() 'Au demarrage du UserForm
TextBox1 = Selection.Offset(1, 4)  'cellule D1
textbox2=selection.offset(2,4) 'celluleD2
End Sub

il y a d'autres textbox mais je n'ai mis que ces deux puisque si ça marche pour l'un je peux faire pour les autres.

Merci!!!

[mercatog]

évite les select et selection
directement

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()   'Au demarrage du UserForm
With Sheets("feuil1")   'adapte au nom de ta feuille
   Me.TextBox1.Value = .Range("D1").Value   'cellule D1
   Me.Textbox2.Value = .Range("D2").Value   'celluleD2
End With
End Sub

[Nokho]

Merci Mercatog!!! ça marche

Je n'avais même pas penser à une boucle With.
Je pense aussi qu'un des problémes est que je n'ai pas encore bien maîtrisé la manipulation des cellules et feuilles. Je cherchai un tutorial pour ça dans le site mais j'en vois pas. Si vous avez un site web qui fournit une telle documentation je serai ravi de le voir. Merci.

[mercatog]

Ce site est déjà assez complet, à part les sujets traités qui sont d'une utilité manifeste, tu peux consulter la FAQ et les divers tutoriels.

[AlainTech]

With n'est pas une boucle.
L'instruction With permet simplement de ne pas répéter la référence à un Objet (dans le cas présent, une feuille).

Code :

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

1
2
3
4
With Sheets("feuil1")   'adapte au nom de ta feuille
   Me.TextBox1.Value = .Range("D1").Value   'cellule D1
   Me.Textbox2.Value = .Range("D2").Value   'celluleD2
End With

Est strictement équivalent à

Code :

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

1
2
Me.TextBox1.Value = Sheets("feuil1").Range("D1").Value   'cellule D1
Me.Textbox2.Value = Sheets("feuil1").Range("D2").Value   'celluleD2

[Nokho]

Merci encore! je vais voir.

Merci Alain pour l'erreur!!! J'ai bien compris.