Aide bouton bascule

Résolu/Fermé
silver.beach Messages postés 2 Date d'inscription vendredi 30 avril 2010 Statut Membre Dernière intervention 17 mai 2010 - 30 avril 2010 à 08:45
 silver.beach - 5 mai 2010 à 19:41
Bonjour à tous,

Je souhaiterai avoir un coup de main, voila mon problème (je vais essayer d'être le plus clair possible) :

Je réalise un fichier excel "base de données", en gros une feuille de saisie et une feuille base de données. Lorsque je rentre des données dans la feuille SAISIE je souhaite quelles soient automatiquement copier dans la feuille BASE DE DONNEES.

Pour cela dans la feuille SAISIE, j'ai mis des boutons bascules. Le problème que je rencontre est que je ne sais pas comment, en cliquant sur le bouton, copier du texte dans la feuille BASE DE DONNEES (dans une cellule bien précise). Tous cela en gardant le principe du bouton bascule.

En gros : Clique sur le bouton nommé "TOTO" = "TOTO" copié dans la feuille BASE DE DONNEE

En espérant avoir été clair !

Merci

2 réponses

funbreizhou Messages postés 76 Date d'inscription samedi 10 octobre 2009 Statut Membre Dernière intervention 3 novembre 2011 11
1 mai 2010 à 16:47
Bonjour,

Voilà un exemple :
Sub copie()

' Copier le contenu des cellules A1 à C20 de la feuille 1 dans les cellules A1 à C20 de la feuille 3
Sheets("Feuil1").Select
Range("A1:C20").Select
Selection.Copy
Sheets("Feuil3").Select
Range("A1:C20").Select
ActiveSheet.Paste

' Copier le contenu des cellules D1 à E25 de la feuille 2 dans les cellules D1 à E25 de la feuille 3
Sheets("Feuil2").Select
Range("D1:E25").Select
Selection.Copy
Sheets("Feuil3").Select
Range("D1:E25").Select
ActiveSheet.Paste


End Sub


Et ainsi de suite, à adapter et à relier à ton bouton ... !
0
silver.beach
5 mai 2010 à 19:41
Merci beaucoup
0
silver.beach
5 mai 2010 à 19:41
Parfait
0