transfert de données dans VBA

[coco1969]

Bonjour à tous,
J'ai créer un fichier me permettant d'effectuer le classement d'un concours de pêche ==>Challenge1-2-3-4 et Générale.
J'ai également créer un userform et voudrait pouvoir transférer mes données "données challenge N°1" ainsi de suite dans mon userform:

Quelqu'un pourrait-il me donné un coup de pouce 😕

 

[RENAUDER]

Re : transfert de données dans VBA

Bonjour,

je t'ai mis sur la piste

 

[coco1969]

Re : transfert de données dans VBA

Cool,
un grand merci

 

[coco1969]

Re : transfert de données dans VBA

🙁 Désolé chef mais je ne vois pas où les modifications ont été faites,
peux-tu juste me donner une briève explication????

 

[RENAUDER]

Re : transfert de données dans VBA

Bonjour,

Tu vas dans le code du formulaire et tu vas voir ceci

Private Sub ComboBox1_Change()
    Sheets("Challenge N°1").Activate
    Range([B4], [B65536].End(xlUp)).Select
    For Each cell In Selection
        If cell.Value = Me.ComboBox1.Text Then
            Me.TextBox1.Text = cell.Offset(0, 1).Value
            Me.TextBox2.Text = cell.Offset(0, 2).Value
            Me.TextBox3.Text = cell.Offset(0, 3).Value
        Else
        End If
    Next cell
End Sub

 

[coco1969]

Re : transfert de données dans VBA

Désolé de vous importuner encore 1 fois mais que dois-je en relation avec
l'entrée: CHALLENGE 2 ==> Nbre de poissons???? car si je change ("Challenge N°1") en ("Challenge N°2"), cela ne fonctionne pas
Private Sub ComboBox1_Change()
Sheets("Challenge N°2").Activate
Range([B4], [B65536].End(xlUp)).Select
For Each cell In Selection
If cell.Value = Me.ComboBox1.Text Then
Me.TextBox1.Text = cell.Offset(0, 1).Value
Me.TextBox2.Text = cell.Offset(0, 2).Value
Me.TextBox3.Text = cell.Offset(0, 3).Value
Else
End If
Next cell

 

[coco1969]

Re : transfert de données dans VBA

Rem: J'ai peut-être fait une erreur lorsque j'ai créé l'userform en faisant un copier/coller des zones d'entrées CHALLENGE1 ==> CHALLENGE2 ; CHALLENGE 1-2 ==> CHALLENGE 3-4 etc.... afin d'avoir les mêmes dimensions pour toutes les cases ?????

 

[RENAUDER]

Re : transfert de données dans VBA

Bonjour,
Pour chaque feuille, les txtbox n'ont pas les mêmes noms donc,

Private Sub ComboBox1_Change()
    Sheets("Challenge N°1").Activate
    Range([B4], [B65536].End(xlUp)).Select
    For Each cell In Selection
        If cell.Value = Me.ComboBox1.Text Then
            Me.TextBox1.Text = cell.Offset(0, 1).Value
            Me.TextBox2.Text = cell.Offset(0, 2).Value
            Me.TextBox3.Text = cell.Offset(0, 3).Value
        Else
        End If
    Next cell
    Sheets("Challenge N°2").Activate
    Range([B4], [B65536].End(xlUp)).Select
    For Each cell In Selection
        If cell.Value = Me.ComboBox1.Text Then
            Me.TextBox17.Text = cell.Offset(0, 1).Value
            Me.TextBox5.Text = cell.Offset(0, 2).Value
            Me.TextBox6.Text = cell.Offset(0, 3).Value
        Else
        End If
    Next cell
    Sheets("Challenge N°3").Activate
    Range([B4], [B65536].End(xlUp)).Select
    For Each cell In Selection
        If cell.Value = Me.ComboBox1.Text Then
            Me.TextBox18.Text = cell.Offset(0, 1).Value
            Me.TextBox8.Text = cell.Offset(0, 2).Value
            Me.TextBox9.Text = cell.Offset(0, 3).Value
        Else
        End If
    Next cell
End Sub

et idem pour les autres feuilles et textBox

 

[coco1969]

Re : transfert de données dans VBA

Bonjour chef,
tout d'abord un grand merci car j'ai réalisé 8/10 de ce que je voulais maintenant, pourriez-vous me dire ce qu'il cloche dans mon TOTAL en sachant que je vais chercher les valeurs dans l'onglet Générale en AD4,AE4,etc.;

 

[coco1969]

Re : transfert de données dans VBA

Désolé la taille de fichier est devenu trop gros car j'ai augmenté mes données d'où pourrions-nous prendre la valeur en X4 du fichier ici plus haut toujours dans l'onglet Générale

 

[coco1969]

Re : transfert de données dans VBA

Next cell
Sheets("Générale").Activate
Range([B4], [B65536].End(xlUp)).Select
For Each cell In Selection
If cell.Value = Me.ComboBox1.Text Then
Me.TextBox20.Text = cell.Offset(0, 26).Value
Me.TextBox14.Text = cell.Offset(0, 27).Value
Me.TextBox15.Text = cell.Offset(0, 28).Value
Me.TextBox16.Text = cell.Offset(0, 29).Value
Me.TextBox21.Text = cell.Offset(0, 30).Value
Else
End If

 

[RENAUDER]

Re : transfert de données dans VBA

Bonjour,
Tu utilsies le site Accueil de Cjoint.com, tu as droit un 500 ko
Mais elles sont où les données de la feuille Générale ? chez moi elle est vide.
Tu peux faire le cumul directement dans le formulaire
pour la première ligne :

 Me.TextBox20.Value = Val(Me.TextBox1.Value) + Val(Me.TextBox17.Value) + _
        Val(Me.TextBox18.Value) + Val(Me.TextBox19.Value)

 

[coco1969]

Re : transfert de données dans VBA

http://cjoint.com/?eessOojlZd

 

[coco1969]

Re : transfert de données dans VBA

http://cjoint.com/?eesxsaNE2c

 

[coco1969]

Re : transfert de données dans VBA

Si vous cliquer dans le titre Challenge N°1 2-3 ou 4, vous revenez sur le bouton résultat qui ouvre le userform