> Tous les forums > Forum Bureautique
 Macro Excel Afficher message d'intervention
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
XairteX
  Posté le 11/02/2019 @ 11:29 
Aller en bas de la page 
Nouvel astucien

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

Publicité
poussebois
 Posté le 11/02/2019 à 11:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

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 :

@ +

XairteX
 Posté le 11/02/2019 à 12:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

poussebois
 Posté le 11/02/2019 à 12:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

,

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 !

XairteX
 Posté le 11/02/2019 à 13:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

poussebois
 Posté le 11/02/2019 à 13:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

,

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.

XairteX
 Posté le 11/02/2019 à 14:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

poussebois
 Posté le 11/02/2019 à 14:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

,

Cette fois, c'est bon .

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

poussebois
 Posté le 11/02/2019 à 16:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

,

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

XairteX
 Posté le 13/02/2019 à 17:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bonjour Poussebois,

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

XairteX

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Amazon Fire TV Stick 4K Max à 39,99 €
39,99 € 64,99 € -38% @Amazon
SSD Transcend 220S 2 To (M.2, NVMe, TLC, 3500 Mo/s) à 124,43 € livré
124,43 € 150 € -17% @Amazon Allemagne
SSD Crucial P3 1 To (NVMe, PCIe, M.2, 3500 Mo/s) à 69,48 €
69,48 € 80 € -13% @Amazon
Carte mémoire Samsung 512 Go MicroSDXC Evo Select U3 (130 Mo/s) à 66,31 €
66,31 € 75 € -12% @Amazon
PC portable 15.6 pouces Lenovo (FHD IPS, Ryzen 5, 8 Go de RAM, SSD 512 Go, RTX 3060) à 749,99 €
749,99 € 1100 € -32% @Cdiscount
Jusqu'à 20% de remise en Superpoints sur Rakuten
-20% @Rakuten
Processeur AMD Ryzen 5 4500 (AM4, ventilateur Wraith Stealth) à 81,68 €
81,68 € 99 € -17% @Amazon
Processeur AMD Ryzen 5 5500 à 110,49 € livré
110,49 € 145 € -24% @Amazon Allemagne
Clé HDMI Fire TV Stick (Prime Video, Netflix, Disney+, Molotov, MyCanal sur votre TV) à 24,99 €
24,99 € 39,99 € -38% @Amazon
Pack SSD WD Black SN850X 1 To (PCIe Gen4, NMVe M.2, 7300 Mo/s) + 16 Go (2x8 Go) Corsair Vengeance RGB PRO SL 3600 MHz à 169,90 €
169,90 € 209 € -19% @RueDuCommerce

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique