problème avec un contrôle userform

Question

Bonjour,

 Je dois créer un sudoku en vba pour mon cours d'informatique.
Il est presque fini mais un dernier problème se pose.J'ai un bouton nouvelle grille dans mon userform .Quand la première grille est lancée les cases avec les chiffres ne sont pas accessibles et les vides sont accessibles pour écrire la réponse.Jusque là tout va bien.Le problème se pose quand je lance une deuxième fois nouvelle grille.
Les cases qui étaient accessibles le sont toujours et les cases inaccesibles pareil qu'il y est un chiffre ou non.
Comment faire pour que ma commande soit acutalisée à chaque nouvelle grille?
 For g = 1 To 81
    If grille.Controls("c" & g).Value "" Then grille.Controls("c" & g).Locked False
        
        next



Merci d'avance
juke89

cs_Jack · Answer

Salut

Il te faut simplement utiliser un Else :
If grille.Controls("c" & g).Value = "" Then 
    grille.Controls("c" & g).Locked = False
Else
    grille.Controls("c" & g).Locked = True
End If
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

juke89 · Answer

Merci beaucoup!!
Si je peux me permettre d'abuser de votre connaissance un dernier problème se pose.
Je veux réduire la fenêtre excel en ouvrant le fichier et laisser ouvert l'userform
j'ai donc écris:

Private Sub workbook_open()
    Application.WindowState = xlMinimized
    frmacceuil.Show
    
End Sub

mais l'userform ne s'ouvre pas.Que puis-je faire?
merci d'avance

juke89

cs_Jack · Answer

Je ne sais pas.
Chez moi, cela fonctionne.
Fait l'essai dans un nouveau classeur :
Ajoute une simple UserForm et dans son coe, tu mets
Private Sub UserForm_Click()
    Unload Me
End Sub
Dans ThisWorkbook, ajoute cette Sub :
Sub xxx()
    Me.Activate
    Application.WindowState = XlWindowState.xlMinimized
    Dim mForm As UserForm1
    Set mForm = New UserForm1
    mForm.Show
    Set mForm = Nothing
    Application.WindowState = XlWindowState.xlNormal
End Subet exécute-la (F5 quand ton curseur est à l'intérieur) :

L'interface de Excel (application) passe bien en icone et la forme s'affiche.
En cliquant sur la forme, elle se ferme et le classeur revient.

Problème avec un contrôle userform

3 réponses

Votre réponse

Discussions similaires