Garder la zone active avant clic sur combobox

tototiti2008

XLDnaute Barbatruc

• 31 Octobre 2008

• #2

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 ?

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 31 Octobre 2008

• #3

Re : Garder la zone active avant clic sur combobox

Bonjour

Une piste

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

JP

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 31 Octobre 2008

• #4

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 🙁

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 31 Octobre 2008

• #5

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 31 Octobre 2008

• #6

Re : Garder la zone active avant clic sur combobox

Bonjour à tous,

un essai en utilisant la touche Echap (Escape)

 

Pièces jointes

• Classeur1.xls

  23.5 KB · Affichages: 75
• Classeur1.xls

  23.5 KB · Affichages: 65
• Classeur1.xls

  23.5 KB · Affichages: 72

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 31 Octobre 2008

• #7

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 !!

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 31 Octobre 2008

• #8

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.

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 31 Octobre 2008

• #9

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

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 !

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 31 Octobre 2008

• #10

Re : Garder la zone active avant clic sur combobox

essaye comme ça :

Code:

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

 

Vote positif 0 Vote négatif

J

jpmasclet

XLDnaute Occasionnel

• 31 Octobre 2008

• #11

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 !!

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 31 Octobre 2008

• #12

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...

 

Dernière édition: 31 Octobre 2008

Vote positif 0 Vote négatif