Validation macro
Résolu/Fermé
JL00700
Messages postés
90
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
1 novembre 2019
-
6 oct. 2014 à 14:55
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 6 oct. 2014 à 18:03
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 6 oct. 2014 à 18:03
A voir également:
- Validation macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Commande en cours de validation fnac - Forum Consommation & Internet
- Excel validation des données liste - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
6 oct. 2014 à 15:38
6 oct. 2014 à 15:38
Bonjour,
A+
Sub Données_Fixes()
Dim Msg As String, Style As String, Titre As String
Dim Reponse As Integer
Msg = "Veuillez confirmer que vous souhaitez copier les données" & Chr(10) & "de la feuille CALQUE vers la feuille Novembre."
Style = vbOKCancel + vbCritical + vbDefaultButton2
Titre = "Confirmation du traitement"
Reponse = MsgBox(Msg, Style, Titre)
If Reponse = vbOK Then
Sheets("CALQUE").Range("A4:H100").Copy
ActiveSheet.Paste Sheets("Novembre").Range("A4")
Application.CutCopyMode = False
MsgBox "Copie réalisée."
Else
MsgBox "Traitement annulé."
End If
End Sub
A+
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
6 oct. 2014 à 18:03
6 oct. 2014 à 18:03
De mon coté pas de problème ...
Dans l'exemple joint, la copie est réalisée dans la feuille active.
https://www.cjoint.com/?DJgsfffN9k1
A+
Dans l'exemple joint, la copie est réalisée dans la feuille active.
https://www.cjoint.com/?DJgsfffN9k1
A+
6 oct. 2014 à 17:18
Merci de votre réponse que je viens de mettre en oeuvre.
Le message s'affiche bien, je confirme par OK et à ce moment j'ai le message "Traitement annulé".
Ok devrait pourtant finaliser l'import des données.
D'autre part, j'ai omis de préciser que ma macro s'appliquait à plusieurs feuilles (Janvier, Février... Décembre). Comment procéder pour que l'import se fasse dans l'onglet où est lancé la macro ?
Merci de votre attention.
Cordialement
Modifié par eriiic le 6/10/2014 à 18:01
tu as bien mis :
If Reponse = vbOK Then ?
Pour le reste je laisse gyrus continuer.
eric