Récupérer variable dans une listbox pour nommer une feuille

[babylonzoo]

Bonjour à tous,

ci jooint un morceau de code qui me pose pbs.
je recupere dans la listbox2 une variable qui me sert pour rechercher des infos dans une feuille ( la variable est le nom de l'onglet de la feuille)

j'ai le message suivant " membre introuvable"

le code

For i = 1 To ListBox2.ListCount
        If ListBox2.Selected(i) = True Then
        Txt = ListBox2.List(i)
        End If
nbligne = Sheets(Txt).Range("A1").CurrentRegion.Rows.Count
nbcol = Sheets(Txt).Range("A1").CurrentRegion.Columns.Count

Merci a tous pour votre aide

bravo au forum ))🙂

babylonzoo

 

[mromain]

Re : Récupérer variable dans une listbox pour nommer une feuille

Bonjour babylonzoo,

Bizarre, essaye avec ce code :

Dim i As Long, txt As String
    For i = 0 To ListBox1.ListCount
        If ListBox1.Selected(i) Then
            txt = ListBox1.List(i)
        End If
    Next i
    MsgBox txt

a+

 

[babylonzoo]

Re : Récupérer variable dans une listbox pour nommer une feuille

Ok tout fonctionne en fait. Juste un pbs d 'espace "invisible" 😀 dans la déclaration de variable.
Résolu donc !

 

[mromain]

Re : Récupérer variable dans une listbox pour nommer une feuille

Ok tout fonctionne en fait. Juste un pbs d 'espace "invisible" 😀 dans la déclaration de variable.
Résolu donc !

Nikel,

Cela montre tout de même l'intérêt de l'instruction Ce lien n'existe plus.
Personnellement, j'ai modifié les options de l'éditeur VBA affin que cet Option Explicit soit inscrit de base dans chaque Module.

a+