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

Problème de transfert de données Transfert de données entre 2 Pc [Résolu] (Résolu) » Forum - Windows Transfert de données d'un système PS3 a un autre [Résolu] » Forum - PS3 Transfert de données mac sur disque dur externe (Résolu) » Forum - MacOS TRANSFERTS DES DONNEES d'un mobile à l'autre (Résolu) » Forum - Samsung Comment ne pas perdre de qualité pendant le transfert de données (Résolu) » Forum - Vidéo / TV / BoxTV

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

Problème de transfert de données Transfert de données entre 2 Pc [Résolu] (Résolu) » Forum - Windows Transfert de données d'un système PS3 a un autre [Résolu] » Forum - PS3 Transfert de données mac sur disque dur externe (Résolu) » Forum - MacOS TRANSFERTS DES DONNEES d'un mobile à l'autre (Résolu) » Forum - Samsung Comment ne pas perdre de qualité pendant le transfert de données (Résolu) » Forum - Vidéo / TV / BoxTV

Web: www.shapebootstrap.net

23 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

  • nouhaaa1995

    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

  • yg_be

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

  • nouhaaa1995

    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

  • yg_be

    peux-tu partager ton fichier?

  • nouhaaa1995

    oui mais je sais pas comment le partager ici

  • yg_be

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

  • nouhaaa1995

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

  • yg_be

    le lien est protégé...

  • nouhaaa1995

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

  • yg_be

    tout me semble bien fonctionner.

  • nouhaaa1995

    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

  • yg_be

    je ne vois pas de code VBA qui fait cela.

  • nouhaaa1995

    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

  • yg_be

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

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

  • nouhaaa1995

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

  • yg_be

    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é.

  • nouhaaa1995

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

  • yg_be

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

  • nouhaaa1995

    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:
  • nouhaaa1995

    d'accord merci

  • nouhaaa1995

    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