Combobox integree a une feuille

[roby]

Bonjour le Forum

j'aimerai associer le choix d'une Combobox qui se trouve directement sur une feuille (pas de userform) une donnee dans une cellule precise.

mon exemple:

Onglet -> "Formulaire3"

Combo -> Combobox1

Cellule complémentaire -> "F16"

Cellule base de donnees -> "F50:K..." car la base est variable.

Mon code

Private Sub Worksheet_Activate() code ok
'Alimente la ComboBox
'--------------------
Me.ComboBox1.Value = ""
With Sheets("Formulaire3")
Me.ComboBox1.List = .Range("F50:F" & .Range("F65536").End(xlUp).Row).Value
End With
End Sub

Private Sub ComboBox1_GotFocus()
'cherche et affiche complement donnees en F16
'---------------------------------------------
With Sheets("Formulaire3")
Columns(6).Find(Me.ComboBox1, , , , , Previous).Select
Range("F16").Value = Selection.Offset(0, 1).Value
End With
End Sub

message d'erreur
erreur 13 imcompatibilite de type sur
Columns(6).Find(Me.ComboBox1, , , , , Previous).Select

merci d'avance

 

[Compte Supprimé 979]

Re : Combobox integree a une feuille

Bonjour Roby,

S'il ne trouve pas de valeur correspondante, tu auras effectivement une erreur !

Peut-être ici

Columns(6).Find(Me.ComboBox1).Select

A+

 

[roby]

Re : Combobox integree a une feuille

bonjour BrunoM45

j'ai remplace ton code et lorsque je clic sur ma combo la cellule selectionnee se trouve en F2 (vide)

cela ne fonctionne pas

a te relire

 

[roby]

Re : Combobox integree a une feuille

re

lorsque j'utilise une combo dans un userform j'attribue dans "rowSource" le bloc de donnees

mais la RowSource n'est pas dispo dans les proprietes de cette combo. y a t il une solution


merci d'avance

 

[Compte Supprimé 979]

Re : Combobox integree a une feuille

Salut,

Merci de joindre un fichier, si tu veux des réponses valable 😉

A+

 

[roby]

Re : Combobox integree a une feuille

Re

ci-joint un morceau de fichier.

A vous relire

 

[Fo_rum]

Re : Combobox integree a une feuille

Salut

à tester :

Dim plage As Range

Private Sub Worksheet_Activate()
  Me.ComboBox1.Value = "": [F16] = ""
  With Sheets("Formulaire3")
    Set plage = .Range("F50:F" & .Range("F65536").End(xlUp).Row)
    Me.ComboBox1.List = plage.Value
  End With
  With Sheets("Formulaire3")
    ActiveWorkbook.Names.Add Name:="BD_PPSMJ", RefersTo:=plage
  End With
End Sub
Private Sub ComboBox1_Click()
'cherche et affiche complement donnees en F16
'---------------------------------------------
  With Sheets("Formulaire3")
    plage.Find(ActiveSheet.ComboBox1).Select
    .[F16] = Selection.Offset(0, 1)
    .[F17].Select
  End With
End Sub

 

[roby]

Re : Combobox integree a une feuille

Bonjour le Forum, Fo Rum

Merci beaucoup, cela fonctionne bien


bonne journee a tous et bon Week end de 3 jours



Roby

 

[roby]

Re : Combobox integree a une feuille

Re Bonjour le Forum

une autre petite question concernant ma cellule F16
Peut on mettre a la ligne dans la meme cellule la donnee code postal et Ville

exemple:

1 rue du Forum
68000 Forum Ville


a vous relire

Roby

 

[roby]

Re : Combobox integree a une feuille

Re Bonjour le Forum

une autre petite question concernant ma cellule F16
Peut on mettre a la ligne dans la meme cellule la donnee code postal et Ville

exemple:

1 rue du Forum
68000 Forum Ville


a vous relire

Roby