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
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
A voir également:
- Excel Macro
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
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
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...
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...
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
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
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
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
9 juin 2009 à 15:21
il n'y a pas de lignes vides entre deux?
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
9 juin 2009 à 15:20
"pisser dans l'oreille d'un sourd" dois je le prendre mal?
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
9 juin 2009 à 15:33
lol non c'est mon pere qui dit sa sa vise personne ^^'
et non pas de lignes vides
et non pas de lignes vides
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
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
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
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
9 juin 2009 à 15:47
Merci bien
je vais tester sa et je t'en dit plus
je vais tester sa et je t'en dit plus