juke89
Messages postés2Date d'inscriptionmercredi 13 avril 2011StatutMembreDernière intervention 5 mai 2011
-
5 mai 2011 à 20:07
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
5 mai 2011 à 22:32
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
juke89
Messages postés2Date d'inscriptionmercredi 13 avril 2011StatutMembreDernière intervention 5 mai 2011 5 mai 2011 à 22:07
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
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 5 mai 2011 à 22:32
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 Sub
et 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.