Bonjour,

Je suis peu expérimenté dans la création de macro Excel et je rencontre un problème lié au collage spécial (données et format) dans une macro, pour éviter ce problème, j'ai trouvé une solution qui consiste à interrompre l'exécution d'une macro par un message demandant l'intervention de l'utilisateur pour le collage manuel du tableau.

Pourriez-vous, svp, comment programmer cet affichage afin qu'une fois que l'utilisateur à réalisé l'action, il puisse valider par un clique pour relancer la suite de la macro.

EXCEL 365 Pro
Windows 7
Chrome 71.0.3578.98

Bonjour et bienvenue sur PC Astuces ,

Si ce n'est pas indiscret, peux-tu joindre ton fichier (avec la macro) via www.cjoint.com.

Indique aussi ce que tu veux coller exactement quelles cellules, où et comment :

@ +

Bonjour Poussebois,

Tout d'abord merci de t'intéresser à mon problème. Pour répondre à ta demande tu trouveras ci-joint une partie de mon fichier à titre d'exemple.

Pour résumer la problématique originale, j'ai créé plusieurs macros via le menu "enregistrer une macro" puis ensuite, j'ai généré une macro principale qui enchaîne ces différentes macros préalablement créées.

Là où j'ai un souci, c'est que pour créer la macro de collage spécial (Valeurs et Format uniquement) tout s'enregistre et se réalise très bien, mais lorsque j'exécute cette même macro (Macro2) elle bug au niveau du collage. Malgré de multitudes recherches sur le web et différents essais, je ne suis pas arrivé à trouver la solution.

J'ai donc décidé de passer par une solution intermédiaire, qui serait de réaliser la macro principale jusqu'à la copie du tableau source, puis de faire apparaître un message demandant à l'utilisateur de faire le collage spécial manuellement, à savoir uniquement les valeurs et le format. Une fois l'opération réalisée, je souhaiterais faire apparaître un autre message pour qu'une fois le collage réalisé, l'utilisateur cliquerait afin de continuer l'exécution de la macro principale.

Détail des 3 macros jointes:

Macro1= Copie du tableau source.

Macro2= Collage automatique des valeurs et du format (c'est la macro qui bug ! ).

Macro3= Alternative, Apparition d'un message demandant de faire le collage manuellement.

En espérant avoir été clair, merci d'avance pour le temps que tu m'accordes.

XairteX

,

C'est clair dans tes explications ... mais ça le sera encore plus avec le fichier que tu as oublié de joindre.

En attendant, je viens de vérifier avec une petite macro toute simple, le collage spécial se fait sans problème !

Désolé, Voici le fameux fichier ... Ci-joint le fichier

J'ai eu quelques difficultés à trouver la procédure pour joindre le fichier

J'espère avoir enfin réussi, dis-moi si ça à fonctionné ou pas, merci.

XairteX

,

Non, y'a rien .

Voici la procédure :

• Tu cherches ton fichier par Parcourir,
• tu coches 21 jours,
• tu renseignes ton email,
• tu cliques sur Créer le lien Cjoint.

Aussitôt après, l'URL du lien s'affiche. Tu cliques droit dessus, puis Copier le lien et c'est ça que tu colles dans ton post.

Ok merci pour ton précieux conseil,ci-joint le lien: https://www.cjoint.com/c/IBlniBOCGNL

,

Cette fois, c'est bon .

Je dois m'absenter quelques heures, je regarde ça après.

,

Il y a des erreurs dans ton tableau et tes macros :

Tableau : Les lignes 40 et 41 sont en double, j'en ai supprimé une.

Macros ;: Tu sélectionnes A37 à B66 pour copier (30 lignes), puis A3 à B31 (29 lignes) pour coller. Y'a un blème ! Pour coller, sélectionner la 1ère cellule suffit !

Le plus simple est ici, et ça marche, j'ai testé !

Sub Macro4()

Sheets("4-Commits History").Select 'Optionnel
Range("A37:BX65").Select 'ligne 41 supprimée.
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Bonjour Poussebois,

Merci pour ta correction et pour le temps que tu m'as accordé. Je vais la tester de ce pas.

XairteX