Commandbutton

Bonjour à tous

au secours , je sèche et je ne vois pas la solution:

je crée une sub qui me "gèle" toutes les combobox , textbox et command button:

Sub Gel()

Dim ctrl As Control

'Boucle sur la collection de contrôles

For Each ctrl In UserForm1.Controls

ctrl.Enabled = False

Next ctrl

End Sub

ca marche

J'ai la Sub Degel:

Sub Gel()

Dim ctrl As Control

'Boucle sur la collection de contrôles

For Each ctrl In UserForm1.Controls

ctrl.Enabled = True

Next ctrl

End Sub

ca marche

MAIS

si je ne veux reactiver que les boutons commanbutton 1 à 3 et laissés désactivés le reste,

je change la Sub Degel, je tape le code:

Sub Degel()

Dim I As Integer

For I = 1 To 3

UserForm1.Controls("CommandButton" & I).Enabled = True

Next I

End Sub

et là les boutons concernés ne sont plus grisés mais par contre, ils sont inactifs quand je clique dessus

QQN aurait une explication?

merci pour votre aide

Séb

La Sub Degel s'appelle bien Degel et non Gel

Bonjour

As tu un code derrière ces boutons ?

Ton fichier est souhaitable (voire indispensable)

La Sub Degel s'appelle bien Degel et non Gel

re

oui j'ai un code

je vais faire un fichier ressemblant car le mien est vraiment trop gros

re

oui j'ai un code

je vais faire un fichier ressemblant car le mien est vraiment trop gros

voila le fichier

Salut !

Bé ! Les boutons sont actifs !

en effet mais pas sur mon gris fichier

bon je cherche encore et je l'envoie en PV si qqn veut jeter un coup d'œil

incompréhensible

ca marche dans le fichier joint

mais pas dans mon fichier original

Bonsoir

Pour essayer de comprendre (sans garantie)

Tu vas chez un hébergeur de fichier (cjoint http://cjoint.com/index.php)

Tu y déposes ton fichier

Et tu m'envoies (tu cliques sur la petite enveloppe en dessous de mon pseudo) dans un mail l'adresse du lien de ton fichier

c fait

j'espère que c'est pas si évident car j'ai cherché longtemps

Bonjour

Je te réponds directement ici (si tu veux je peux te renvoyer ton fichier)

Quand tu appliques le "Gel" tu bloques tous les contrôles dans l'userform, et dans ce gel il y a la Frame1

Lors du "Dégel" tu ne dégèles pas la Frame1 et c'est pour ça que tes boutons restent inaccessibles

Modifies ta macro Degel

Sub Degel()

Dim I As Integer

'For I = 1 To 45

'                UserForm1.Controls("TB" & I).Enabled = True

'Next I
'For Each ctrl In UserForm1.Controls
'                                    ctrl.Enabled = True
'Next ctrl
UserForm1.Frame1.Enabled = True
For I = 1 To 3
UserForm1.Controls("CommandButton" & I).Enabled = True  'activation des 3 premiers boutons

Next I

wouahhhhhhhh

beh j'aurais jamais trouvé

Merci tout plein et tu as mis combien de temps pour trouver?

et sinon que penses tu du reste? bon ya bcp de choses a terminer mais bon ce qui reste

je vais aller vite car j'ai trouvé l'essentiel

merci encore

Séb

wouahhhhhhhh

beh j'aurais jamais trouvé

Merci tout plein et tu as mis combien de temps pour trouver?

et sinon que penses tu du reste? bon ya bcp de choses a terminer mais bon ce qui reste

je vais aller vite car j'ai trouvé l'essentiel

merci encore

Séb

Bonjour

Franchement je n'ai pas regardé ton codage, pas évident de comprendre le codage de quelqu'un d'autre

Pour trouvé je ne sais pas mais relativement vite (moins de 8 heures )

Bonne continuation

merci