[XL-2007] Erreur au lancement Macro [Résolu]

[chris09300]

Bonjour

j'ai le code suivant:

Code :

1
2
3
Sub Lance_consultant()
consultant.Show
End Sub

et quand je le lance il m'envoie l'erreur suivante:
erreur d'execution '70'
et se bloque sur consultant.Show
quelqu'un peux t'il me dire d'ou cela viens
merci
cris

[mercatog]

Quel est le code dans ton Userform_Initialize de ton usf consultant?

Supprime la propriété RowSource de ta combobox Numero

[chris09300]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_initialize()
 
DTPicker1.Value = Date
DTPicker2.Value = Date
 
Dim WsS As Worksheet
Dim DerLigS As Long, R As Long
Set WsS = Sheets("AR-Base")
DerLigS = WsS.Cells(Columns(21).Cells.Count, 25).End(xlUp).Row
For R = 21 To DerLigS 'Boucle sur les lignes de la col. U
   consultant.Numero.AddItem WsS.Cells(R, 21) 'Ajout des N° au Combobox
Next R
End Sub

je ne peux pas Supprime la propriété RowSource de la combobox Numero , car j'y est la liste que j'utilise en dans la colonne U

[patricktoulon]

bonjour
j'ai l'impression que tu t'ai emmelé les pinceaux

tu ne differencie pas les colonnes des lignes

essaie ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub UserForm_initialize()
 Dim WsS As Worksheet'variable object representant le sheets
Dim DerLigS As Long, i As Long'variable de type long(numerique) (derniereligne et compteur 
Set WsS = Sheets("AR-Base")'on attribue a la variable wss le sheet concerné
DerLigne = WsS.Range("U" & Rows.Count).End(xlUp).Row 'on trouve la derniereligne utilisée dans la colonne "u"
 
DTPicker1.Value = Date
DTPicker2.Value = Date
 
 
'en partant du principe que ta liste commence par la donné en  cellule u1 sinon tu remplace le 1 par le numero de ligne ou commence la liste
For i = 1 To DerLigne 'Boucle sur les lignes de la col. U jusque a derligne
   consultant.Numero.AddItem WsS.Cells(i, 21) 'Ajout des valeurs dans delacellule(i,colonne21) au Combobox
Next i
End Sub

Voila
au plaisir

[chris09300]

ca fonctionne tres bien
merci
cris