Bonton contrôle de formulaire (RESOLU)

[Bambi35]

Bonjour

J'aimerai savoir comme configure un bonton contrôle de formulaire sur une feuille (1) pour faire afficher
dans la cellule A1 un mot provenant d'une matrice de la feuille (2)

Merci

 

[Fred0o]

Re : Bonton contrôle de formulaire

Bonsoir Bambi35,

Pour écrire la macro relative à ton bouton, tu fais sur le bouton : click-droit - Affecter une macro - Nouvelle. Ensuite, tu colles ceci :

Sub Bouton1_Cliquer()
    Sheets("Feuil1").Range("A1") = Sheets("Feuil2").Range("A1")
End Sub

A+

 

[Bambi35]

Re : Bonton contrôle de formulaire

Bonsoir Fred0o
Désolé
Je n'ai pas Affecter une macro
Quand je fais sourie droit
Mais j'ai visualiser le code

Merci

 

[Fred0o]

Re : Bonton contrôle de formulaire

Re-bonsoir,

C'est bizarre car dans ton fichier exemple, je m'attendais à avoir "Visualiser le code" mais j'ai "Affecter une macro".

En tout cas, ça ne change rien. tu cliques sur "Visualiser le code" puis tu colles la macro fourni.

A¨+

 

[Bambi35]

Re : Bonton contrôle de formulaire

Re-bonsoir, FredOo

Super ça fonctionne (erreur de ma part)

Merci encore

@+++

 

[Bambi35]

Re : Bonton contrôle de formulaire

Bonjour

Petit problème
Quand je protége la feuille
je ne peux plus itiliser les bontons

Erreur d’exécution 1004
La cellule ou graphique est protégé en lecture seule
Débogage
Or dans les commandes de protection rien indique les bontons

Merci @+++

 

[Fred0o]

Re : Bonton contrôle de formulaire

Bonjour,

A prioti, tu n'as pas déclaré ta cellule de destination en cellule non verrouillée (Click-droit - Format de cellule - Protection - décocher la case "Verrouilléeé).

Si tu veux qu'elle reste verrouillée, il faut déproitéger la feuille dans la mecro puis la reprotéger.

Sub Bouton1_Cliquer()
    ActiveSheet.Unprotect ("TOTO")
    Sheets("Feuil1").Range("A1") = Sheets("Feuil2").Range("A1")
    ActiveSheet.Protect ("TOTO")
End Sub

Bien ssûr, tu remplaces "TOTO" par ton mot de passe.

A+

 

[Bambi35]

Re : Bonton contrôle de formulaire

Re-Bonjour FredOo

Exact la cellule était vérrouillée
Et j'ai rentré
ActiveSheet.Protect ("xxxxx") dans la macro

Merci encore

@ +++