Discussion :

[fripoti]

Bonjour,
je cherche depuis 2 jours en vain
j'ai créé une combobox dans laquelle je selectionne une reference de produit
à coté j'ai mis un bouton commande, et l'idée c'est en cliquant de transferer les données de la ligne correspondant au produit sur une autre feuille dans un encadré qui fera office d'etiquette.
J'envoie des photos pour mieux me faire comprendre


sur http://cjoint.com/data/hkjfHa8z1I.htm [ Lien ]
sur http://cjoint.com/data/hkjhfdsHgl.htm [ Lien ]
sur http://cjoint.com/data/hkoQCJzWQ0.htm [ Lien ]

je suis sur une piste mais cela ne marche pas :

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
Private Sub CommandButton2_Click()
 
Dim i As Integer
 
For i = 0 To ComboBox1.ListCount - 1
 
If ComboBox1.List(i) = ComboBox1.Value Then
 
Sheets("stockexcel").Cells(Ai).Value = Sheets("Feuil1").Cells(B1).Value
 
End If
 
Next i
 
End Sub

je veux transférer de la feuille "stockexcel" à "feuil1"

merci de m'aider

[fripoti]

j'ai du nouveau j'ai réussi mais pour une ligne, je n'arrive pas à mettre ma variable i :

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
Private Sub CommandButton2_Click()
 
Dim i As Integer
 
    For i = 0 To ComboBox1.ListCount - 1
 
        If ComboBox1.List(i) = ComboBox1.Value Then
 
Worksheets("Feuil1").Range("B1") = Worksheets("stockexcel").Range("A8")
Worksheets("Feuil1").Range("B2") = Worksheets("stockexcel").Range("B8")
Worksheets("Feuil1").Range("B3") = Worksheets("stockexcel").Range("E8")
Worksheets("Feuil1").Range("B4") = Worksheets("stockexcel").Range("F8")
Worksheets("Feuil1").Range("B5") = Worksheets("stockexcel").Range("G8")
Worksheets("Feuil1").Range("B7") = Worksheets("stockexcel").Range("H8")
Worksheets("Feuil1").Range("B8") = Worksheets("stockexcel").Range("I8")
 
 
        End If
 
    Next i
 
Sheets("Feuil1").Select
 
End Sub

je voudrais remplacer le 8 à la fin par une variable qui varie en fonction de la ligne de la combo selectionnée
mais je sais pas comment ecrire le code

merci

[helios77]

tu fais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("Feuil1").Range("B1") = Worksheets("stockexcel").Range("A" & taLigne)

la variable taLigne est ta variable qui remplace le 8.. après, à toi de voir comment cette variable est alimentée et incrémentée

[fripoti]

merci pour la piste
c'est ce que j'ai essayé de faire au debut du programme avec le "i"
j'ai remplacé "i" par "maligne" mais il y a erreur 1004

une idée ?

[fripoti]

C'est bon ca marche !!!!
merci beaucoup

[helios77]

faut alimenter "maLigne"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("A0")

n'existe pas
initialise correctement ta variable et incrémente la comme çà t'arrange et çà devrait fonctionner

[fripoti]

en fait y'a un dernier petit probleme !
il me décale tout de 2 lignes au dessus
exemple : il fait la ligne 65 au lieu de 67

[helios77]

çà après, je ne peuxx pas t'aider
il y a sans doute un problème dans la valeur de tes variables.... à toit chercher pas à pas combien valent tse valeurs etvérifier que c'est bien la valeurque tu attendais

[fripoti]

oui mai je sai kil decale de 2
comment je peu lui demandé pour ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For maligne = 0 To ComboBox1.ListCount - 1
 
        If ComboBox1.List(maligne) = ComboBox1.Value Then

j'aimerai bien pour le if avoir ComboBox.value +2
tu comprend ?

[helios77]

Essaie en faisant ceci et vérifie pas à pas que les données qui t'intéressent ont bien les bonnes valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
msgbox ComboBox1.ListCount & " _  " & ComboBox1.Value
For maligne = 0 To ComboBox1.ListCount - 1
    msgbox maLigne & " _ " & ComboBox1.List(maligne)
        If ComboBox1.List(maligne) = ComboBox1.Value Then

Si t sur que c'est +2, tu rajoute +2 dans ton IF et çà devrait marcher

[fripoti]

je met ca ou ? je supprime des choses avan ?

[helios77]

c'est exactement le même bout de code que tu m'as donné, j'y ai juste rajouté des alertes de debuggage pour suivre le valeurs de tes variables

[fripoti]

ok j'ai compris
ça décale de 2 mais ce que je ne t'avais pas dit c'est que j'avais 4000 lignes

il y a un moyen de l'arreté ?

ok c'est bon
tu peux m'expliquer comment rajouter +2 au if

Ctrl + Pause ou Shift + Pause... me rappelle plus

c'est bon tout marche
merci beaucoup