J'ai un petit souci avec une macro qui est en réalité "collage spécial
valeur".
Bon je vais essayer d'expliquer :
j'ai dans le fichier "diner.xls" des données au maximum dans la plage de
cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage puis la
copie dans le presse papier.
j'ai dans la feuille 1 du fichier "déjeuner" des données au maximum dans la
plage de cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage
puis la copie dans le presse papier.
Suivant mon choix, donc je vais où cliquer sur le bouton copier du fichier
"diner" ou sur le bouton copier du fichier "déjeuner".
Là pas de problème. Ensuite, les valeurs de cette page de cellules doit être
coller (collage spécial valeur) dans la feuille 2 dans la plage ou (A21 :
F20) ou (J21 : O200).
Donc là j'ai fais (avec l'enregistreur de macro) 2 macros associé à 2
boutons avec par exemple pour la première sélection de la cellule A21 puis
collage spé valeur.
idem pour la seconde; donc je choisis la cellule où je souhaite coller A21
ou J21 puis je clique sur un bouton. et là ma macro plante!!!
Voici le code de la macro "coller spécial valeur" :
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Jack43,
Voici une façon de faire,
Tu dois adapter le nom des feuilles de la procédure et des plages si elles sont différentes dans ton application.
'------------------------------ Sub Copier_Coller() Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With Worksheets("Feuil1") 'Feuille source .Range("B17:G196").Copy With Worksheets("Feuil2") 'Feuille de destination .Activate With .Range("A21") .PasteSpecial xlValues .Select End With End With End With Sheets(Nom).Select End Sub '------------------------------
Salutations!
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
J'ai un petit souci avec une macro qui est en réalité "collage spécial valeur".
Bon je vais essayer d'expliquer :
j'ai dans le fichier "diner.xls" des données au maximum dans la plage de cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage puis la copie dans le presse papier.
j'ai dans la feuille 1 du fichier "déjeuner" des données au maximum dans la plage de cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage puis la copie dans le presse papier.
Suivant mon choix, donc je vais où cliquer sur le bouton copier du fichier "diner" ou sur le bouton copier du fichier "déjeuner".
Là pas de problème. Ensuite, les valeurs de cette page de cellules doit être coller (collage spécial valeur) dans la feuille 2 dans la plage ou (A21 : F20) ou (J21 : O200).
Donc là j'ai fais (avec l'enregistreur de macro) 2 macros associé à 2 boutons avec par exemple pour la première sélection de la cellule A21 puis collage spé valeur.
idem pour la seconde; donc je choisis la cellule où je souhaite coller A21 ou J21 puis je clique sur un bouton. et là ma macro plante!!!
Voici le code de la macro "coller spécial valeur" :
Tu dois adapter le nom des feuilles de la procédure
et des plages si elles sont différentes dans ton application.
'------------------------------
Sub Copier_Coller()
Dim Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
With Worksheets("Feuil1") 'Feuille source
.Range("B17:G196").Copy
With Worksheets("Feuil2") 'Feuille de destination
.Activate
With .Range("A21")
.PasteSpecial xlValues
.Select
End With
End With
End With
Sheets(Nom).Select
End Sub
'------------------------------
Salutations!
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de news:
03AEE46E-1816-47BB-BEBF-0E9FF907FB33@microsoft.com...
Bonsoir,
J'ai un petit souci avec une macro qui est en réalité "collage spécial
valeur".
Bon je vais essayer d'expliquer :
j'ai dans le fichier "diner.xls" des données au maximum dans la plage de
cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage puis la
copie dans le presse papier.
j'ai dans la feuille 1 du fichier "déjeuner" des données au maximum dans la
plage de cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage
puis la copie dans le presse papier.
Suivant mon choix, donc je vais où cliquer sur le bouton copier du fichier
"diner" ou sur le bouton copier du fichier "déjeuner".
Là pas de problème. Ensuite, les valeurs de cette page de cellules doit être
coller (collage spécial valeur) dans la feuille 2 dans la plage ou (A21 :
F20) ou (J21 : O200).
Donc là j'ai fais (avec l'enregistreur de macro) 2 macros associé à 2
boutons avec par exemple pour la première sélection de la cellule A21 puis
collage spé valeur.
idem pour la seconde; donc je choisis la cellule où je souhaite coller A21
ou J21 puis je clique sur un bouton. et là ma macro plante!!!
Voici le code de la macro "coller spécial valeur" :
Tu dois adapter le nom des feuilles de la procédure et des plages si elles sont différentes dans ton application.
'------------------------------ Sub Copier_Coller() Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With Worksheets("Feuil1") 'Feuille source .Range("B17:G196").Copy With Worksheets("Feuil2") 'Feuille de destination .Activate With .Range("A21") .PasteSpecial xlValues .Select End With End With End With Sheets(Nom).Select End Sub '------------------------------
Salutations!
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
J'ai un petit souci avec une macro qui est en réalité "collage spécial valeur".
Bon je vais essayer d'expliquer :
j'ai dans le fichier "diner.xls" des données au maximum dans la plage de cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage puis la copie dans le presse papier.
j'ai dans la feuille 1 du fichier "déjeuner" des données au maximum dans la plage de cellules B17 : G196 ; j'ai fait une macro qui sélectionne la plage puis la copie dans le presse papier.
Suivant mon choix, donc je vais où cliquer sur le bouton copier du fichier "diner" ou sur le bouton copier du fichier "déjeuner".
Là pas de problème. Ensuite, les valeurs de cette page de cellules doit être coller (collage spécial valeur) dans la feuille 2 dans la plage ou (A21 : F20) ou (J21 : O200).
Donc là j'ai fais (avec l'enregistreur de macro) 2 macros associé à 2 boutons avec par exemple pour la première sélection de la cellule A21 puis collage spé valeur.
idem pour la seconde; donc je choisis la cellule où je souhaite coller A21 ou J21 puis je clique sur un bouton. et là ma macro plante!!!
Voici le code de la macro "coller spécial valeur" :
