double clique cellule/combobox/TextBox

[Jessssss]

Bonjour le forum!
N'ayant pas une grande maîtrise des codes VBA, je viens faire appel à vous pour m'aider à résoudre un problème. J'ai un fichier avec une colonne A bien remplie!
- je souhaiterais qu'à chaque fois que l'on clique sur une cellule de la colonne A elle ouvre un userform avec des TextBox et des ComboBox (liées à une feuille de fichier).
- par défaut, je voudrais pouvoir modifier et allonger à souhaits les données des Combobox.
- ensuite, je voudrais que les données saisies dans les TExtBox et ComboBox remplissent des cellules sur la même ligne que la cellule sur laquelle on a double cliqué. (si on double clique sur A1, l'userform s'ouvre, on remplit les champs et en fermant l'userform, cela remplit des cellules sur la ligne 1 et ainsi de suite...)

pour être plus claire, je joins ce fichier...

Merci à ceux qui prendront le temps de me répondre

 

[tototiti2008]

Re : double clique cellule/combobox/TextBox

Bonjour Jessss,

une base de départ :

 

[Jessssss]

Re : double clique cellule/combobox/TextBox

Tototiti, décidément, tu m'aide vraiment beaucoup!
ça marche très bien!

au fait, comment fais-tu pour connaître tous ces codes? cela pourrait m'aider pour les prochaines fois...


je te remerice bien sincèrement.

Cordialement!

 

[tototiti2008]

Re : double clique cellule/combobox/TextBox

comment fais-tu pour connaître tous ces codes?

eh bien, comme tout le monde, j'ai ramé au début, j'ai finalement trouvé un code qui marchait et puis je m'en souvient ou je le garde dans ma "bibliothèque" de codes intéressants... Ne te décourage pas, ça finira par venir 🙂

 

[Jessssss]

Re : double clique cellule/combobox/TextBox

j'ai juste un petit soucis. j'ai adapté le code suivant à ma véritable feuille:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Application.Intersect(ActiveSheet.Range("f1:f65536"), Target) Is Nothing) Then
Cancel = True
NomRaisonSociale = Target.Value
LigneRaisonSociale = Target.Row
UserForm1.Show
End If
End Sub


j'ai pourtant attribuer le code à la bonne feuille, le "range" est bon, j'ai reefait un userform1 contenant un multipage1.
pourtant, lorsque je double clique sur une cellule de la colonne F, j'ai le code erreur 380 qui me surligne la ligne 'UserForm1.Show'...
je ne vois vraiment pas quelle erreur j'aurais pu faire...

 

[tototiti2008]

Re : double clique cellule/combobox/TextBox

lorsqu'il bugge, continue en pas à pas pour voir sur quelle ligne de Userform_Initialize ça plante, ça nous donnera un indice...

 

[Jessssss]

Re : double clique cellule/combobox/TextBox

Merci, j'ai fait ce que tu m'as dit et en fait le pas à pas détaillé a ouvert le code du userform en question, je n'avais pas mis le "1" à userform1... tout est rentré dans l'ordre. ouf! merci de m'avoir corrigée...