Excel Macro

Fermé
bogossdu51 Messages postés 606 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 15 octobre 2010 - 9 juin 2009 à 14:48
bogossdu51 Messages postés 606 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 15 octobre 2010 - 9 juin 2009 à 15:47
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

6 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
9 juin 2009 à 15:05
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...
0
bogossdu51 Messages postés 606 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 15 octobre 2010 52
9 juin 2009 à 15:14
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
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
9 juin 2009 à 15:21
il n'y a pas de lignes vides entre deux?
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
9 juin 2009 à 15:20
"pisser dans l'oreille d'un sourd" dois je le prendre mal?
0
bogossdu51 Messages postés 606 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 15 octobre 2010 52
9 juin 2009 à 15:33
lol non c'est mon pere qui dit sa sa vise personne ^^'
et non pas de lignes vides
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
9 juin 2009 à 15:44
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
0
bogossdu51 Messages postés 606 Date d'inscription lundi 9 juin 2008 Statut Membre Dernière intervention 15 octobre 2010 52
9 juin 2009 à 15:47
Merci bien
je vais tester sa et je t'en dit plus
0