Excel Macro
bogossdu51
Messages postés
606
Date d'inscription
Statut
Membre
Dernière intervention
-
bogossdu51 Messages postés 606 Date d'inscription Statut Membre Dernière intervention -
bogossdu51 Messages postés 606 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je dois faire un travail pour mon stage.
et je dois faire une macro mais j'y arrive pas.... svpp
Je vous explique simplement :
un fichier excel.
2 tableaux dedans
je rempli ce que je veux dans le premier, je clic sur un bouton et le 2eme tableau dois etre le meme que le 1er.
Si vous pouviez m'aider s'il vous plait sa serait gentil
Merce de vos réponses
je dois faire un travail pour mon stage.
et je dois faire une macro mais j'y arrive pas.... svpp
Je vous explique simplement :
un fichier excel.
2 tableaux dedans
je rempli ce que je veux dans le premier, je clic sur un bouton et le 2eme tableau dois etre le meme que le 1er.
Si vous pouviez m'aider s'il vous plait sa serait gentil
Merce de vos réponses
A voir également:
- Excel Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
6 réponses
Salut,
Alors si tu sais faire un copier coller ça n'est pas très compliqué.
Tu affiches la boîte à outils contrôles (Affichage/barre d d'outils/boîte à outils contrôles).
Tu cliques sur l'icône Bouton de commande.
Tu dessines ton bouton de commande.
Tu va dans : Outils/Macro/Nouvelle Macro.
Tu nommes ta macro (ou laisse le nom par défaut "Macro1" ...) et cliques sur OK
A partir de maintenant toutes tes actions sont enregistrées.....
Sélectionnes les cellules de ton tableau à copier ; Edition/copier
Cliques sur le "Range" équivalant dans l'autre tableau : Coller.
Va dans : Outils/Macro/Arrêter l'enregistrement.
double clic sur ton bouton.
Sur la gauche de l'écran cherche Modules/module1 --> double clic, le code apparait à droite, copie le
Ferme cette fenêtre de code tu as maintenant à l'écran le code de ton bouton : colle entre les 2 lignes (avant End Sub) le code de ta macro et ferme la fenêtre.
Dans la barre d'outils contrôle clique sur "mode création" pour le désactiver et essaie ça doit fonctionner...
Alors si tu sais faire un copier coller ça n'est pas très compliqué.
Tu affiches la boîte à outils contrôles (Affichage/barre d d'outils/boîte à outils contrôles).
Tu cliques sur l'icône Bouton de commande.
Tu dessines ton bouton de commande.
Tu va dans : Outils/Macro/Nouvelle Macro.
Tu nommes ta macro (ou laisse le nom par défaut "Macro1" ...) et cliques sur OK
A partir de maintenant toutes tes actions sont enregistrées.....
Sélectionnes les cellules de ton tableau à copier ; Edition/copier
Cliques sur le "Range" équivalant dans l'autre tableau : Coller.
Va dans : Outils/Macro/Arrêter l'enregistrement.
double clic sur ton bouton.
Sur la gauche de l'écran cherche Modules/module1 --> double clic, le code apparait à droite, copie le
Ferme cette fenêtre de code tu as maintenant à l'écran le code de ton bouton : colle entre les 2 lignes (avant End Sub) le code de ta macro et ferme la fenêtre.
Dans la barre d'outils contrôle clique sur "mode création" pour le désactiver et essaie ça doit fonctionner...
En fait je dois pas prendre toutes les colonnes... Je dois en prendre que certaines et il se peut que des lignes soit rajoutées entre-temps :s
et comme tu m'as dit sa marche pas oO je connais mais c'est comme si je pissais dans l'oreille d'un sourd :s
et comme tu m'as dit sa marche pas oO je connais mais c'est comme si je pissais dans l'oreille d'un sourd :s
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
la première partie : copier le 1er range de ton tableau :
supposons que la partie à copier commence en B5 :
ActiveSheet.Range("B5").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
lig = ActiveCell.Row
ActiveSheet.Range("B5").Select
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(0, -1).Select
col = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
ActiveSheet.Range("B5:" & col & lig).Select
Selection.Copy
supposons que la partie à copier commence en B5 :
ActiveSheet.Range("B5").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
lig = ActiveCell.Row
ActiveSheet.Range("B5").Select
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(0, -1).Select
col = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
ActiveSheet.Range("B5:" & col & lig).Select
Selection.Copy
