VBA

Résolu
Usgpa -  
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   - 13 févr. 2010 à 14:21
Bonjour,
Je souhaiterais savoir si vous trouvez l'erreur dans cette procédure :
Private Sub UserForm_Initialize()

TextBox1 = UserForm5.ComboBox1.Value

Dim q As Integer
Dim cherche As Long
cherche = TextBox1.Value
q = Sheets("Archive Cessions").Cells.Find(what:=cherche, LookIn:=xlValues, Lookat:=xlWhole, searchorder:=xlNext).Row
TextBox2 = Sheets("Archive Cessions").Range("D", q)
TextBox3 = Sheets("Archive Cessions").Range("B", q)
TextBox4 = Sheets("Archive Cessions").Range("H", q)
TextBox5 = Sheets("Archive Cessions").Range("F", q)

L'userform en question refuse de s'afficher pour une erreur .

Merci d'avance..

3 réponses

Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
Bonjour,

Oui : Range("D" & q)
Pour les différentes lignes
0
Usgpa
 
Merci beaucoup
0
youness0225 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   3
 
bonjour j'ai installé vba mais quand j essai d'ouvrir VB un message me di(MSVBM60.dll n'a pas pu etres enregistrer sur le systemes) que dois je faire. merci de votre aide.
0
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
Bonjour youness0225,
Je ne pense pas que cette question fasse suite au problème posé par Usgpa.
Merci d'ouvrir une nouvelle discussion.
0