copier une cellule d'une à une autre après selection dans combobox

Question

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

http://cjoint.com/data/hkjfHa8z1I.htm
http://cjoint.com/data/hkjhfdsHgl.htm
http://cjoint.com/data/hkoQCJzWQ0.htm

je suis sur une piste mais cela ne marche pas :

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 veu transférer de la fauille "stockexcel" à "feuil1"

merci de m'aider

fripoti · Answer

j'ai du nouveau j'ai réussi mais pour une ligne, je n'arrive pas à mettre ma variable i :

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

bonjourcheval · Answer

Vous êtes ici : [infomsg.aspx Thèmes]/ [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] /
[infomsgt_DIVERS_220.aspx Divers] / [infomsgt_GENERAL_222.aspx General] /

Juste pour dire qu'il y a une section toute faite pour le VBA.
Excell utilise le VBA et non VB6.

Il est probable que tu te fasses répondre plus vite à des qestions d'excel dans la bonne section du forum.

Voilà ;)

Molenn · Answer

Pour mettre le numéro de ligne en variable, tu as deux options équivalentes, étant acquis que le n° de ligne se trouve dans la variable i, tu peux au choix :

- Range("A" & i).value
- Cells (i,j).value où j est le n° de la colonne (un entier donc)

Molenn

NHenry · Answer

Bonjour,

Ou encore : Range("C1).Offset(y,x)

http://nhen0039.chez-alice.fr/index.php

Copier une cellule d'une à une autre après selection dans combobox

4 réponses

Votre réponse

Discussions similaires