Utilisation des textboxs

[Nonosky]

Bonjour,

Je sollicite votre aide : J'aimerais écrire un code qui permeterai de récupérer le contenu de toutes les textbox d'un fichier A et le récopier ces contenus dans différentes celulles (en colonnes par exemple) dans un fichier B.

Mon objectif et d'ensuite de crée une liste avec différents choix possible, correspondant aux différentes cellules qui contient chacune le contenu d'un textbox.

Remarque, j'ai plusieurs onglet dans le fichier A avec plusieurs Textbox.


Merci de votre aide,
C'est un projet de recherche ....
Je suis a court d'idée.

Nonosky

 

[Pierrot93]

Re : Utilisation des textboxs

Bonjour,

peut être préciser s'il s'agit de textbox de type activeX ou formulaire...

bon après midi
@+

 

[Pierrot93]

Re : Utilisation des textboxs

Re,

si j'ai bien compris, un exemple à adapter pour des contrôles de type activeX :

Option Explicit
Sub test()
Dim ws As Worksheet, c As Object
For Each ws In Worksheets
    For Each c In ws.OLEObjects
        If TypeName(c.Object) = "TextBox" Then
            Workbooks("NomClasseur.xls").Sheets("NomFeuille").Cells(Rows.Count, 1).End(xlUp)(2) = c.Object.Value
        End If
    Next c
Next ws
End Sub

 

[Nonosky]

Re : Utilisation des textboxs

Re,

si j'ai bien compris, un exemple à adapter pour des contrôles de type activeX :

Option Explicit
Sub test()
Dim ws As Worksheet, c As Object
For Each ws In Worksheets
    For Each c In ws.OLEObjects
        If TypeName(c.Object) = "TextBox" Then
            Workbooks("NomClasseur.xls").Sheets("NomFeuille").Cells(Rows.Count, 1).End(xlUp)(2) = c.Object.Value
        End If
    Next c
Next ws
End Sub

Il s'agit d'une textbox issue du formulaire.
Je vais essayé le code : )
Un grand merci pour ton aide, tu me sauves !
Je te tiendrais au courant de mes avancé 🙂

 

[Pierrot93]

Re : Utilisation des textboxs

Re,

si tu entends par formulaire un userform....