Problème de transfert de données [Résolu] - VB / VBA

A voir également:Problème de transfert de donnéesTransfert de données blackberry vers android - Conseils pratiques - Blackberry Transfert de données entre 2 pc par cable usb - Conseils pratiques - USB Transfert de données samsung vers pc - Conseils pratiques - Android Transfert de données iphone - Conseils pratiques - Apple Transfert de données d'un disque dur interne à un autre - Conseils pratiques - Disque dur

bonjour,
je trouve un problème lors de saisie de données sur mon classeur, le prob c'est que je veux affecter la valeur d'un combobox sur une cellule, cela ne marche pas, en raison de mon code est sur un userform4 et le combobox est sur userform1
" Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then
Cells(derligne, 1) = UserForm1.ComboBox1.Value
End If
End Sub"
que dois-je faire?? aidez moi svp ???

Forum

A voir également:Problème de transfert de donnéesTransfert de données blackberry vers android - Conseils pratiques - Blackberry Transfert de données entre 2 pc par cable usb - Conseils pratiques - USB Transfert de données samsung vers pc - Conseils pratiques - Android Transfert de données iphone - Conseils pratiques - Apple Transfert de données d'un disque dur interne à un autre - Conseils pratiques - Disque dur

Web: www.shapebootstrap.net

2 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

bonsoir, que dois-tu faire? peut-être expliquer ce qui se passe, as-tu un message d'erreur?
ensuite, partager ton fichier.

Reply
réponses:
  • auteur

  • auteur

    bonjour,
    mon probléme est que j'ai plusieurs userfoms( usf1, usf2, usf3)
    Dans USF3, il y a un commande bouton pour enregistrer les données, mais ces données sont dans USF1,USF2,USF3, et il doivent étre transferer à un classeur excel.
    mais je sais pas comment la faire
    aidez-moi svp


    Private Sub CommandButton1_Click()
    Dim derligne As Integer
    If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then
    derligne = Sheets("capitaliser").Range("A456541").End(xlUp).Row + 1
    Cells(derligne, 1) = TextBox1.Value
    Cells(derligne, 2) = UserForm3.ComboBox1.Value
    Cells(derligne, 3) = UserForm3.ComboBox2.Value
    end if
    end sub

  • auteur

    as-tu un message d'erreur?
    peux-tu partager ton fichier?

  • auteur

    non je ne l'ai pas mais
    Cells(derligne, 2) = UserForm3.ComboBox1.Value
    Cells(derligne, 3) = UserForm3.ComboBox2.Value
    ne s'affichent pas dans ma feuille

  • auteur

    peux-tu partager ton fichier?

  • auteur

    oui mais je sais pas comment le partager ici

  • auteur

    tu le publies sur internet (cjoint, google drive, ...) et puis tu partages le lien ici.

  • auteur

    le voilà:
    https://drive.google.com/open?id=1CR1HnOxdWJTxalVnHgGHi-e9cpL_VnDv

  • auteur

    le lien est protégé...

  • auteur

    oui, je suis désolée..
    le voilà: https://drive.google.com/open?id=1CR1HnOxdWJTxalVnHgGHi-e9cpL_VnDv

  • auteur

    tout me semble bien fonctionner.

  • auteur

    non mais dans USF3, quand je clique sur enregistrer, je veux que tous mes données insérés sur les 3 USFs soient chargés sur excel

  • auteur

    je ne vois pas de code VBA qui fait cela.

  • auteur

    Private Sub CommandButton1_Click()
    Dim derligne As Integer
    If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then
    derligne = Sheets("capitaliser").Range("A456541").End(xlUp).Row + 1
    Cells(derligne, 1) = .TextBox1.Value
    Cells(derligne, 2) = UserForm1.TextBox3.Value

    End If
    End Sub



    ce qui est en gras; est le textbox existé sur un autre userform1, et que je veux le charger sur excel, atravers le bouton de usf3

  • auteur

    dans le fichier que tu as partagé, je vois ceci dans USF3:

    Private Sub CommandButton1_Click() Unload UserForm3 ' userform à cacher UserForm4.Show End Sub

  • auteur

    ce code est dans USF1, ce que j'ai partagé moi, il existe sur USF4

  • auteur

    merci de prendre le temps de partager un fichier ayant le problème, et d'expliquer où est le problème dans le fichier partagé.

  • auteur

    j'ai partagé le fichier ou existe le problème....

  • auteur

    et ce fichier ne contient pas le code VBA que tu décris.

  • auteur

    c bon j'ai arrivé à résoudre le problème mercii

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Unload UserForm3 ' userform à cacher UserForm4.Show 

Unload vide tout l'UF, contente-toi de
UserForm3.Hide

eric

Reply
réponses:
  • auteur

    d'accord merci

  • auteur

    mercii infiniment Eric, j'ai arrivé à résoudre mon problème :D

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed