Garder la zone active avant clic sur combobox

[jpmasclet]

Bonjour à tous,

Je souhaiterai conserver l'adresse des cellules actives avant de cliquer dans un combobox.

J'ai tenter de faire : AdresseCible = Activecell.select mais cela ne marche pas car j'ia mis cela mon combobx_click.

A savoir que je me sert de cette adressse ensuite dans 10 autres macros, donc il faudra que je puisse faire appel à l'adresse dans plusieurs modules.

Avez vous une petite idée ?
Merci par avance !

 

[tototiti2008]

Re : Garder la zone active avant clic sur combobox

Bonjour jpmasclet,

ta combobox est dans la feuille de calcul ?
c'est une combobox de la barre d'outils Formulaire ou de la boite à outils contrôles ?

 

[jp14]

Re : Garder la zone active avant clic sur combobox

Bonjour

Une piste

Mettre l'adresse de la cellule dans une variable publique.

JP

 

[jpmasclet]

Re : Garder la zone active avant clic sur combobox

Merci JP14 pour ta réponse mais peut tu m'en dire plus, bien que je trifouille dans VBA, les termes ne me parlent pas forcement, et pour le coup j'ai rien compris

 

[jpmasclet]

Re : Garder la zone active avant clic sur combobox

Bonjour Tototiti2008, excuse moi j'avais pas vu ta réponse, ma combobox est dans la feuille et il s'agit d'une combobox de la boite à outil contrôles et en fonction du choix dans la liste , ça lance différente macro.

En gros selon le choix, ça me change le contenu et la couleur de la zone qui était selectionner avant que l'on clique la combobox.

 

[tototiti2008]

Re : Garder la zone active avant clic sur combobox

Bonjour à tous,

un essai en utilisant la touche Echap (Escape)

 

[jpmasclet]

Re : Garder la zone active avant clic sur combobox

C'est super tototiti excatement ce que je recherchaus !!! Je vais a présent vérifier que je peux incorporer ton code dans mes macros !!!

Par contre je n'ai pas compris l'histoire de touche echap ? qu'est est l'objectif ?

Encore merci !!

 

[tototiti2008]

Re : Garder la zone active avant clic sur combobox

Lorsque tu as choisi une valeur dans la combobox, si tu appuies sur Echap tu retrouves la sélection de tes cellules (essaye manuellement). C'est exactement ce que fait le macro.

 

[jpmasclet]

Re : Garder la zone active avant clic sur combobox

Je suis un gros naze !!
ça marche à moitié en faite, j'arrive à ecrire dans la 1ère celulle mais pas dans toutes les
cellules selectionnés.

Mon combobox appel certaine macro en fonction du mot choisis. Si CP est choisi on lance macro CP

mon code

Sub CP()

Dim x As Range
SendKeys "{ESC}"
x = ActiveCell.Select
x = "A"
With x.Interior
        .ColorIndex = 44
        .Pattern = xlSolid
End With
End Sub

et la je bug !!!
Merci encore !

 

[tototiti2008]

Re : Garder la zone active avant clic sur combobox

essaye comme ça :

Sub CP()
SendKeys "{ESC}"
Selection.Value = "A"
With Selection.Interior
        .ColorIndex = 44
        .Pattern = xlSolid
End With
End Sub

 

[jpmasclet]

Re : Garder la zone active avant clic sur combobox

Franchement tu es trop fort, j'aurai jamais pensé à escape ! et un grand merci pour la corection du code , j'avais essayé une 1ere fois comme toi, sauf que j'avais mis .select à la place .value mais carrement plus logique c'est vrai.

Une dernière chose à mon avis qui ne marchera pas mais au cas, est t'il possible de garder en surbrillance la selection ???

Merci encore et encore et encore pour ton aide !!

 

[tototiti2008]

Re : Garder la zone active avant clic sur combobox

je ne crois pas que l'on peut garder la sélection en surbrillance pendant que l'on déroule la liste...

Edit : à moins de passer par un liste déroulante de la barre d'outils Formulaire mais dans ce cas, il n'y a pas d'évènement Change, alors il faudrait ruser...