Bonton contrôle de formulaire (RESOLU)

Fred0o

XLDnaute Barbatruc

• 5 Septembre 2012

• #2

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 :

VB:

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

A+

 

Vote positif 0 Vote négatif

B

Bambi35

XLDnaute Occasionnel

• 5 Septembre 2012

• #3

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 5 Septembre 2012

• #4

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¨+

 

Vote positif 0 Vote négatif

B

Bambi35

XLDnaute Occasionnel

• 5 Septembre 2012

• #5

Re : Bonton contrôle de formulaire

Re-bonsoir, FredOo

Super ça fonctionne (erreur de ma part)

Merci encore

@+++

 

Vote positif 0 Vote négatif

B

Bambi35

XLDnaute Occasionnel

• 6 Septembre 2012

• #6

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 @+++

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 6 Septembre 2012

• #7

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.

VB:

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+

 

Vote positif 0 Vote négatif

B

Bambi35

XLDnaute Occasionnel

• 6 Septembre 2012

• #8

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

@ +++

 

Vote positif 0 Vote négatif