Aide bouton bascule
Résolu
silver.beach
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
silver.beach -
silver.beach -
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
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
-
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 ... ! -
