erreur de compilation:variable non définieRésolu

Question

bonjour à tous,

Je travaille avec Excel2007 et VBA,j'ai créé deux feuilles Excel:Feuil1, et Feuil2.
Dans Feuil1 j'ai inséré une liste:ListBox1, je voulais récupérer l'élément sélectionné dans cette liste:
[i]Dim portNAME As String
    Dim j As Integer
    Dim portNbr As Long
For j = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(j) Then
              portNAME = ListBox1.List(j)
              portNbr = Len(portNAME)
          End If
      Next j/i
Mais là il s&#8217;arrête au niveau de ligne en vert et m'affiche le message suivant: Erreur de compilation: Variable non définie !
Il ne reconnait la ListBox1 ?!
Quelqu'un pourrait m'aider???
Merci d'avance

rv83toulon · Accepted Answer

Bonjour, 
dans ta feuil1 si tu ta listbox est un contrôle activeX alors ceci suffit:
Dim portNAME As String
Dim portNbr As byte

portNAME = Sheets("Feuil1").ListBox1.Value
portNbr = Len(portNAME)

pas besoin de boucle
@+

fabiendag · Answer

Bonjour,
ce code est enregistré ou ? un module, un userform ... ?

Fabien

acive · Answer

Bonjour,
1) je ne ne t'envois pas de code tant que tu n'utilises pas les balises de code VB, comme ça:
Dim portNAME As String 
Dim j As Integer 
Dim portNbr As Long 
For j = 0 To ListBox1.ListCount - 1 
If ListBox1.Selected(j) Then 
portNAME = ListBox1.List(j) 
portNbr = Len(portNAME) 
End If 
Next j 

2) En résumant: tu fais une boucle qui va de 0 à ListBox1.ListCount - 1 
En suite tu lui demandes: si le item est sélectionné ....

Pourquoi ne pas utiliser la sub 
Private Sub ListBox1_Click()???

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

fabiendag · Answer

ta listbox tu l'as créée à partir de quel barre d'outils ? "boite à outils controle" ou "formulaires" ?


Fabien

ucfoutu · Answer

Bonjour, rv83toulon,
Pourquoi, selon toi, vais-je te demander de corriger ton code ou de le compléter ? (ne réponds pas trop vite. Réfléchis d'abord)



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

mimi09jn · Answer

j'ai crée ma listbox depuis:développeur=>insérer=>controles Activex=>zone de liste
j'enregistre ce code dans un module.
Merci rv83toulon, j'ai du faire commme toi Sheets("Feuil1").ListBox1.Value
et non pas ListBox1.Value tout court

rv83toulon · Answer

Bonjour ucfoutu,
je pense que c'est parce que si aucune valeur n'est sélectionnée dans la listbox j'aurai une erreur.
Donc je devrais rajouter un test pour savoir si une valeur est sélectionnée et afficher un msgbox si ce n'est pas le cas.
C'est çà ?

si oui alors:
Dim portNAME As String
Dim portNbr As Long


If Sheets("Feuil1").ListBox1.ListIndex <> -1 Then
portNAME = Sheets("Feuil1").ListBox1.Value
portNbr = Len(portNAME)
Else
MsgBox ("Merci de sélectionner une valeur!")
End If

@+

ucfoutu · Answer

Voilà ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

rv83toulon · Answer

ucfoutu, merci de ta remarque 


@+

Erreur de compilation:variable non définie

9 réponses

Votre réponse

Discussions similaires