Range ne marche plus ??

Résolu

varach Messages postés 225 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 29 septembre 2016 - 14 nov. 2005 à 11:43
varach Messages postés 225 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 29 septembre 2016 - 14 nov. 2005 à 12:05

j utilise code chez moi sous VB6SP6 et au travail sur VB6SP6 aussi , et au travail j ai une erreur de compilation Procedure sub ou function non definie..
merci de vos lumieres

Private Sub Form_Load()
'=================================================
'rempli le combo BOX
Workbooks.Open FileName:="\base.xls", Editable:=True

Range("C1").Activate ' case de depart
Do While Not ActiveCell.Value = ""
Combo1.AddItem ActiveCell.Value
'on ajoute l element de la cellule active dans combo1
ActiveCell.Offset(1, 0).Activate
'activecell.offset(1,0)=increment de 1 la ligne de la cell active
Loop
Workbooks.Close
'=================================================
End Sub

A voir également:

Range ne marche plus ??
La méthode pastespecial de la classe range a échoué ✓ - Forum Visual Basic 6
Range feuille ✓ - Forum Visual Basic 6
Subscript out of range ✓ - Forum Visual Basic 6
Fonction range vba ✓ - Forum Visual Basic 6
Random range delphi - Forum Delphi / Pascal

2 réponses

Réponse 1 / 2

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
14 nov. 2005 à 11:55

Bonjour,

Au travail, la références à Excell n'est peut-être pas cochées ??

jpleroisse

Réponse 2 / 2

varach Messages postés 225 Date d'inscription vendredi 14 janvier 2005 Statut Membre Dernière intervention 29 septembre 2016
14 nov. 2005 à 12:05

MERCI !

Discussions similaires

il me dit: vector subscript out of range!!!

La méthode paste spéciale de la classe range a échouée

La méthode PasteSpecial de la classe Range a échoué (1004)

La méthode PasteSpecial de la méthode Range a échoué

Probleme méthode PasteSpécial