TextBox

Bonjour,

J'ai une petite question.

J'ai un classeur Excel avec plusieurs feuilles.

Dans une feuille j'ai un document qui se remplie en fonction du numéro de ligne que je remplie grâce à un textBox.

J'ai donc cette ligne pour lier la valeur à ma variable.

lig = TextBox2.Value

Je souhaiterais placer le textBox dans une autre feuille. Mais lorsque je le change de feuille il me dis que le textBox est introuvable.

Avez-vous une solution ?

Merci beaucoup

Bonjour Wallentyne, bonjour le forum,

Cela dépend de où est écrit le code (dans quel composant VBA) et où se trouve la TextBox2. Donc, à défaut du fichier qui va bien, il nous faudrait le code complet qui concerne la Textbox2...

Le code ci-dessous se trouve dans la feuille "mail" où se trouve le document.

Dans la feuille "mail" se trouve aussi la listBox mais je souhaiterais la mettre dans une autre.

Je ne sais pas si c'est plus clair...

Sub notif()

    Dim F As Worksheet
    Set F = Worksheets("Données personnelles")
    Dim G As Worksheet
    Set G = Worksheets("Cursus")
    Dim H As Worksheet
    Set H = Worksheets("Etudes")
    Dim i As Worksheet
    Set i = Worksheets("Examens")

    Dim nblig As Long
    nblig = F.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Dim lig As Integer
    Dim col As Integer

 lig = TextBox1.Value

 'Créationn de la notification
    Cells(3, 3).Value = F.Cells(lig, 1).Value & " " & F.Cells(lig, 2).Value   'Nom et Prénom
    Cells(3, 7).Value = F.Cells(lig, 6).Value      'Numéro étudiant
    Cells(4, 3).Value = G.Cells(lig, 7).Value & " " & G.Cells(lig, 8).Value 'Inscrit en...
    Cells(5, 2).Value = G.Cells(lig, 5).Value     'Collège
    Cells(5, 6).Value = F.Cells(lig, 3).Value     'Campus
    Cells(7, 4).Value = i.Cells(lig, 21).Value       'Période

End sub

Re,

Wallentyne a écrit :

Le code ci-dessous se trouve dans la feuille "mail" où se trouve le document.

Dans la feuille "mail" se trouve aussi la listBox mais je souhaiterais la mettre dans une autre.

Non c'est pire !... Un code, si ce n'est pas une macro événementielle, doit se trouver dans un module standard et pas dans un composant VBA d'onglet. Par quelle opération du saint esprit, la TextBox se transforme en ListBox ?... Ensuite, dans :

Cells(3, 3).Value = F.Cells(lig, 1).Value & " " & F.Cells(lig, 2).Value   'Nom et Prénom
Cells(3, 7).Value = F.Cells(lig, 6).Value      'Numéro étudiant
Cells(4, 3).Value = G.Cells(lig, 7).Value & " " & G.Cells(lig, 8).Value 'Inscrit en...
Cells(5, 2).Value = G.Cells(lig, 5).Value     'Collège
Cells(5, 6).Value = F.Cells(lig, 3).Value     'Campus
Cells(7, 4).Value = i.Cells(lig, 21).Value       'Période

Spécifie l'onglet ! J'imagine que c'est H :

H.Cells(3, 3).Value = F.Cells(lig, 1).Value & " " & F.Cells(lig, 2).Value   'Nom et Prénom
H.Cells(3, 7).Value = F.Cells(lig, 6).Value      'Numéro étudiant
H.Cells(4, 3).Value = G.Cells(lig, 7).Value & " " & G.Cells(lig, 8).Value 'Inscrit en...
H.Cells(5, 2).Value = G.Cells(lig, 5).Value     'Collège
H.Cells(5, 6).Value = F.Cells(lig, 3).Value     'Campus
H.Cells(7, 4).Value = i.Cells(lig, 21).Value       'Période

Mais comme maintenant tu parles d'une feuille mail, j'avoue que je comprend plus rien...

Un peu plus de rigueur si tu veux de l'aide...

J'ai refais une demande dans un autre post qui j'espère sera plus clair