IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

problème référence à textbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2010
    Messages
    68
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 68
    Par défaut problème référence à textbox
    Bonjour,

    j'essaye de remplir des cellules à partir de données contenues dans des textbox d'un userforn.


    Je n'y parviens pas comme je le souhaite.

    Ci-joint le fichier excel où figure le code que j'ai débuté et qui illustre ce à quoi je souhaiterai parvenir

    Merci d'avance pour votre aide
    Fichiers attachés Fichiers attachés

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2010
    Messages
    68
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 68
    Par défaut
    Finalement j'ai résolu mon problème !

    voici ma solution:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    Private Sub UserForm_Initialize()
    Dim tboextract As Variant
    Dim tboExtract2 As Variant
    Dim I
    Dim Unseul As New Collection
    Dim Unseul2 As New Collection
    Dim strElt As Variant
    Dim strElt2 As Variant
     
    Dim j
    Set f = ActiveSheet
     
    'LISTE DS TEXTBOX
     
    For n = 1 To 10
        If f.Cells(2, n) <> "" Then
        suite = suite & f.Cells(2, n) & ";"
        End If
    Next n
    tboextract = Split(suite, ";")
    On Error Resume Next
    For I = 0 To UBound(tboextract)
       Unseul.Add tboextract(I), tboextract(I)
    Next I
    For Each strElt In Unseul
    j = j + 1
    UserForm1.Controls("TextBox" & j).Value = strElt
    Next
    On Error GoTo 0
     
    'LISTE DE SUITE 3
     
    Dim tboextract3 As Variant
    Dim Unseul3 As New Collection
    Dim strElt3 As Variant
    k = 0
    CheckBox1 = True
     
    For j = 1 To 3
    Set Unseul3 = Nothing
    Set Unseul3 = New Collection
    suite2 = ""
    k = 0
    If UserForm1.Controls("checkbox" & j) = True And UserForm1.Controls("TextBox" & j).Value <> "" Then
    For n = 1 To 10
     
    If f.Cells(2, n) = UserForm1.Controls("TextBox" & j).Value Then
    suite2 = suite2 & f.Cells(1, n) & ";"
    End If
    Next n
    tboextract3 = Split(suite2, ";")
    On Error Resume Next
    For I = 0 To UBound(tboextract3)
       Unseul3.Add tboextract3(I), tboextract3(I)
    Next I
    Do Until Cells(6 + P, 2) = ""
    P = P + 1
    Loop
    For Each strElt3 In Unseul3
    k = k + 1
    f.Cells(5 + P + k, 2).Value = strElt3
    If f.Cells(5 + P + k, 2).Value <> "" Then
    f.Cells(5 + P + k, 1).Value = UserForm1.Controls("TextBox" & j).Value
    End If
    'If k = 1 Then
    'f.Cells(6 + p, 1).Value = UserForm1.Controls("TextBox" & j).Value
    'End If
    Next
     
    End If
    Next j
    On Error GoTo 0
     
     
     
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème onChange TEXTBOX
    Par actarus108 dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 25/05/2007, 21h15
  2. Problème avec Textbox
    Par Appwal dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 11/04/2007, 16h52
  3. Problème avec TextBox
    Par @yoyo dans le forum Windows Forms
    Réponses: 6
    Dernier message: 15/02/2007, 16h47
  4. Problème référence figure
    Par olivier1978 dans le forum Tableaux - Graphiques - Images - Flottants
    Réponses: 1
    Dernier message: 26/11/2006, 16h24
  5. [VB6] Problème de textbox multiligne qui génére une erreur
    Par bb62 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 20/02/2006, 16h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo