Bouton de controle qui active les boutons antérieurs. [résolu]

[Angus]

Bonjour à tous,

Voilà tout au long de ma feuille il y a des calculs intermédiaire chacun exécutés par des boutons de contrôle active X.

Si l'utilisateur oublie d’exécuter un calcul intermédiaire, le calcul final sera faux.

Je voudrais qu'en plus de l’exécution de son propre calcul intermédiaire, chaque bouton exécute les tous les calculs intermédiaires le précédant.

Merci d'avance.

 

[Bebere]

Re : Bouton de controle qui active les boutons antérieurs.

bonjour Angus
bienvenue
un fichier .xls ou .zip - de 50k serait le bienvenu

 

[Angus]

Re : Bouton de controle qui active les boutons antérieurs.

Bonsoir Bebere,

Je ne vois pas en quoi cela aiderai.

Je demande si on peut ordonner le click d'un bouton par un code, ou si il existe autre chose...

 

[Staple1600]

Re : Bouton de controle qui active les boutons antérieurs.

Bonsoir Angus

Cela nous aiderait à t'aider de disposer d'une fichier exemple.

 

[Staple1600]

Re : Bouton de controle qui active les boutons antérieurs.

Bonsoir le fil



Comme l'indique d'ailleurs la charte du forum 😉

Allez un petit effort pour créer un petit fichier exemple 😉

EDITION: Bonsoir Victor21

 

[Victor21]

Re : Bouton de controle qui active les boutons antérieurs.

Bonsoir, Angus, Bebere


Bebere, 3238 messages sur ce forum, dit :

un fichier .xls ou .zip - de 50k serait le bienvenu

et toi, 6 messages sur ce forum, réponds :

Je ne vois pas en quoi cela aiderai.

Lien supprimé ?


EDITION: Bonsoir Staple1600

 

[Angus]

Re : Bouton de controle qui active les boutons antérieurs.

Peut-être qu'à 3238 reprises il à dit "un fichier .xls ou .zip - de 50k serait le bienvenu"?

 

[Bebere]

Re : Bouton de controle qui active les boutons antérieurs.

bonjour Angus,Victor,Staple
Angus aide toi et le ciel t'aidera
lis simplement les réponses et tu devrais comprendre
à bientôt

 

[Angus]

Re : Bouton de controle qui active les boutons antérieurs.

Je suis taquin!!!!

En parlant avec un ami, il m'a proposé la solution de rendre les contrôles "command_button" inactif.

Cette solution me convient. Je vais devoir chercher comment déclencher la procédure qui désactive le bouton à la suite de l’événement où la valeur d'une cellule est modifié.

J'ai vu que le changement de valeur d'un contrôle déclencher un évènement, mais les cellules d'une feuille de calcul ne sont pas un objet?

 

[Pierrot93]

Re : Bouton de controle qui active les boutons antérieurs.

Bonjour,

J'ai vu que le changement de valeur d'un contrôle déclencher un évènement, mais les cellules d'une feuille de calcul ne sont pas un objet?

sauf erreur, une cellule peut être définie et initialisée en tant qu'objet "Range"...

bonne soirée
@+

 

[Angus]

Re : Bouton de controle qui active les boutons antérieurs.

Bonjour Pierrot,

sauf erreur, une cellule peut être définie et initialisée en tant qu'objet "Range"...

Oui j'essai avec çà mais sans succes:

Private Sub Worksheet_Change(ByVal Target As Range)
Target = Range("A1:J10")

Dim cell As Range
cell = 4

End Sub

 

[Pierrot93]

Re : Bouton de controle qui active les boutons antérieurs.

Re,

ta variable "cell" n'est pas initialisée... pour l'initialiser :
Set Cell = Range("A1")
par exemple...

 

[Angus]

Re : Bouton de controle qui active les boutons antérieurs.

Oui merci!

en fait dans mon test je l'avais initialisé, mais dans une autre procedure et je pensé que la portée allait dans tout le module...

çà marche!

Par contre : Comment stopper une boucle infinie?😱

 

[Pierrot93]

Re : Bouton de controle qui active les boutons antérieurs.

Re,

touche "ECHAP" devrait fonctionner...

 

[Angus]

Re : Bouton de controle qui active les boutons antérieurs.

Dim terme1, terme2, term3 As Single
Dim etape1, etape2 As Single

'Procedure 1
Private Sub CommandButton1_Click()

terme1 = Range("A1").Value
terme2 = Range("B1").Value
etape1 = terme1 + terme2

MsgBox (etape1)

CommandButton2.Enabled = True

End Sub

'Procedure 2
Private Sub CommandButton2_Click()

terme3 = Range("C1").Value
etape2 = etape1 + terme3

MsgBox (etape2)

End Sub

'Procedure de securité
Private Sub Worksheet_Change(ByVal Target As Range)
Target = Range("A1:B1")

CommandButton2.Enabled = False

End Sub

Ceci semble fonctionné, mais au changement de valeur de la cellule A1 ou B1, celle ci s'efface!? 😕