activer cellule feuille active après sélection USF

[Manon Perron]

Bonsoir le forum et Joyeux Noel à tous.

Je fais encore appel à vos connaissances.

Comment faire pour activer une cellule de la feuille active après avoir fait une sélection dans un USF:

J' ai un listbox alimenté par une autre feuille dans le même classeur (Fourn!a1:a100)
Lorsque je click dans une cellule de la collonne B, elle prend la valeur choisie dans la liste.
je déplace ensuite à la colonne suivante dans laquelle je veux taper une valeur.

Dans cet exemple, je clique dans cellule A2 , Claude dans listbox 1, puis bouton OK.
Je passe à la cellule suivant (C1). Je dois absolument clicker dans la cellule C1 pour insérer une valeur car le USF a le focus.

Comment donner le focus à C1

Ex: listbox

André
Marcel
Claude
etc...

Feuille

Col A Col B Col C Col D
Claude

Mon code:

Private Sub CommandButton1_Click()
ActiveCell.Value = UserForm2.ListBox1.Value
ActiveCell.Next.Select
End Sub

Merci d'avance

Manon

 

[kiki29]

Re : activer cellule feuille active après sélection USF

Jour Bon et Noyeux Joel
UserForm2.Show 0 ou UserForm2.Show vbModeless

 

[Manon Perron]

Re : activer cellule feuille active après sélection USF

Bonjour à tous

Désolée, ça ne fonctionne que pour la première sélection choisie.
Lors des autres sélections je dois clicquer dans la cellule suivante pour l'activer et taper l'info.

dans ma feuille j'avais déja le code:

Private Sub CommandButton2_Click()
Load UserForm2 'Bouton pour charger boîte fournisseurs
UserForm2.Show 0
End Sub

 

[bqtr]

Re : activer cellule feuille active après sélection USF

Bonjour Manon Perron, kiki29

Si j'ai bien compris ton problème :

-Ouvre VBA (Alt F11)
-Affiche ton Userform2 et sélectionne le
-Dans les propriétés du userform dans la fenêtre en bas à gauche,
recherche : ShowModal et place la valeur à False ( pour ouvrir la fenêtre de propriété fait F4 )
-retourne sur ta feuille de travail et ouvre le.

Dorénavant quand ton UserForm sera ouvert, tu pourras, sans le refermer, travailler sur ta feuille et sélectionner les cellules que tu veux. Il restera ouvert et tu pourras faire la navette entre ta feuille et lui.

Modifie le code du bouton 2 comme suit pour ouvrir ton UserForm2 :

Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

Bonne journée

P.O

 

[Manon Perron]

Re : activer cellule feuille active après sélection USF

Bonjour à tous

Merci bqtr,

mais voici mon problème:

Je click dans la cellule C8,
click dans le listbox pour choisir la texte,
click bouton OK ce qui copie la valeur du list box,
saut à la colonne suivante (ActiveCell.Next.Select) D8
et je tape quelque chose. (la cellule de feuille a pris le focus)
Jusque là tout va bien.

Ici ça bug:
Je click dans une autre cellule de la même colonne,C9
click valeur dans list box,
bouton OK, copie dans cellule, saut à D9
je ne peux pas taper dans la cellule D9 à moins de faire un click dans dans cette cellule........LE FOCUS RESTE DANS USF

Je voudrais que la cellule de la feuille en cours prenne le focus

Toutes mes feuilles du classeur sont basées sur une feuille modèle dans ce même classeur

Je n'ai pas ce probème si le USF est refermé et réouvert à chaque entrée mais je voudrais éviter cette action.

Merci
Manon

 

[Mytå]

Re : activer cellule feuille active après sélection USF

Erreur de poste désolée

Mytå

 

[kiki29]

Re : activer cellule feuille active après sélection USF

Jour Bon
Un fichier qui devrait satisfaire ta demande, en fait il faut passer par les API de Windows

 

[Pierrot93]

Re : activer cellule feuille active après sélection USF

Bonjour à tous

pourquoi ne pas tout simplement utiliser le méthode "Activate" sur la cellule concernée...

Code à mettre peut être dans l'évènement click ou autre de ta ListBox...

bonne journée
@+

 

[kiki29]

Re : activer cellule feuille active après sélection USF

Jour Bon
>> Pierrot93 : Parce que cela ne fonctionne pas comme Manon le demande tout simplement

 

[Manon Perron]

Re : activer cellule feuille active après sélection USF

Bonjour le forum

Merci à tous de vous être arrêter à mon problème.

Super !

C'est exactement ce que je voulais. Tu es un ASk kiki29. Avec tout ce code, je n'aurais jamais trouvé la solution par moi-même.


Manon