Discussion :

[phal2ip]

Bonjour à tous,

Voilà mon petit souci:
j'ai une combobox avec une listrows de 10 lignes.
Lors de la sélection de l'une des entrées de la combobox, je vérifie si cette condition n'a pas déjà eté faite auparavent.
Si oui je voudrais remettre le focus sur ma combobox et remettre la listrows qur la 1ère ligne qui est celle qui est vide mais cela ne marche pas.
Voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub selectmatch_AfterUpdate()
 
    If sexejoueurs.Value = "Masculin" Then
        Sexe = " M"
        Else
        Sexe = " F"
    End If
    onglet = selectmatch.Value & Sexe
    If Sheets(onglet).Range("c2").Value <> "" Then
        MsgBox ("Match déjà entrer! Veuillez sélectionner un autre match.")
        selectmatch.SetFocus
        selectmatch.ListRows = 1
        Exit Sub
    End If
 
End Sub

Et donc quand la condition est vraie la msgbox s'affiche mais la suite ne marche pas c'est à dire que le UserForm continu avec le focus suivant.
J'espère avoir été clair dans mes explications...

Quelqu'un pourrait il m'aider...
Merci

[laetitia]

bonjour phal2ip le forum tu as essaye avec listindex !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selectmatch.ListIndex = 0

[phal2ip]

Bonjour
oui j'ai essayé mais le combobox ne réagit pas, c'est pour cela que je voulais essayé de lui remettre le focus d'abord puis mettre l'index sur 0.
Je ne comprends pas...

[jfontaine]

Bonjour,

Pour donner le focus a un object dans excel je n'ai pas trouver d'autre solution que de mettre tous les object Enabled = False puis les remettre a true en commencant par l'object devant avoir le focus

[laetitia]

bonjour phal2ip jfontaine le forum si quand tu ouvres ton user dans ordre de tabulation par defaut la combobox a le focus sans connaitre ton programme on peut s'orienter avec se style de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Sheets(onglet).Range("c2").Value <> "" Then
        MsgBox ("Match déjà entrer! Veuillez sélectionner un autre match.")
       unload me:userform1.show
     End If

[mercatog]

Je ne comprends pas ou je suis loin de la plaque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Me.ComboBox1.SetFocus
        Me.ComboBox1.ListIndex = 0

Ceci fonctionne chez moi
Sauf si la combo est sur la feuille excel et non dans un userform (j'ai pas testé)

une autre question, pourquoi ne pas mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selectmatch.Value=""

Edit:
Je viens de tester sur une feuille et l'évènement ComboBox_AfterUpdate n'existe pas!