Encore un Problème de ComboBox...^^

[kinkalero]

Bonjour, inutil de tourner autour du pot, j'ai un petit souci....

voila j'ai 2 feuilles et un combobox
Sur la feuille "base", grace à cette combobox je souhaite selectionner une ligne et les champs de cette ligne ce repercutent sur la feuille "imp" à différents endroits et la g sèche un peu... j'ai commencé avec sa:

Private Sub CommandButton1_Click()

k = ComboBox1.Value
Sheets("imp").Visible = True
Sheets("imp").Select
Range("J2") = k
Range("G5") = ???
Range("A2") = ????

et pour la suite (???) je ne connais pas pour dire "Je veux la cellule D2 de la ligne selectionner en "base" sur la feuille "imp" en G5"

Merci
Kinkalero

 

[PascalXLD]

Re : Encore un Problème de ComboBox...^^

Bonjour

excuse moi moi je ne comprends pas cette phrase

"Je veux la cellule D2 de la ligne selectionner en "base" sur la feuille "imp" en G5"

 

[pierrejean]

Re : Encore un Problème de ComboBox...^^

bonjour kinkalero

sans tourner autour du pot

un petit fichier exemple sans données confidentielles et tu auras la solution


mes excuses Pascal pour cette colision

 

[kinkalero]

Re : Encore un Problème de ComboBox...^^

Voila voila...
Donc comme je l'ai déjà dis, g souhaite remplir ma feuille2 en fonction de mon userform de ma feuille 1
Merci

 

[Hervé]

Re : Encore un Problème de ComboBox...^^

bonjour

pour jouer comme dirais monique, un code minimum syndical:

Private Sub CommandButton1_Click()
Dim i As Byte

For i = 3 To 7
    Sheets("feuil2").Range(Array("b4", "c8", "f12", "c17", "h6")(i - 3)) = Cells(ComboBox1.ListIndex + 6, i)
Next i
End Sub

salut

 

[kinkalero]

Re : Encore un Problème de ComboBox...^^

Merci Hervé mais je ne comprend pas tout....
c quoi "For i = 3 To 7" , "Cells(ComboBox1.ListIndex + 6, i)"???

Peux-tu m'expliquer ce que tu as fait??, je l'ai à appliquer sur 30 cellules et je souhaiterai comprendre ce que je fait

Merci
Kinkalero

 

[Hervé]

Re : Encore un Problème de ComboBox...^^

re

c'etait un code un peu exotique, voici une version plus conventionnelle et plus explicite.

Private Sub CommandButton1_Click()
Dim c As Range
Dim ligne As Integer

'recherche dans la colonne c la valeur de la combobox1
'et stocke dans la variable c son "emplacement"
Set c = Range("c6:c" & Range("c65536").End(xlUp).Row).Find(ComboBox1)

'si c est vide, alors
If c Is Nothing Then
    'on envoi un message et on sort de la macro
    MsgBox "donnée non trouvée.": Exit Sub
End If

'stocke dans la variable ligne le numéro de ligne de l'emplacement
ligne = c.Row

'renvoi les données
With Sheets("feuil2")
    .Range("b4") = Cells(ligne, 3)
    .Range("c8") = Cells(ligne, 4)
    .Range("f12") = Cells(ligne, 5)
    .Range("c17") = Cells(ligne, 6)
    .Range("h6") = Cells(ligne, 7)
End With
End Sub

salut

 

[kinkalero]

Re : Encore un Problème de ComboBox...^^

C'est fabuleux sa fonctionne trop bien
Merci beaucoup je n'ai plus qu'a l'adapter à mon travail

@ une autre requette...
kinkalero