Macro qui affiche une fenêtre qui disparait toute seule
Bonjour à tous !
Voici ma macro que vous m'avez beaucoup aidé à mettre en place.
Elle fonctionne surtout bien mais je souhaite rajouter : lorsque ma macro exécute toute ma mise à jour
, qu'elle affiche une fenetre toute à la fin avec pour message " mise à jour terminée " et que cette fenetre
disparait toute seulle (sans avoir à cliquer )
Sub Formule()
If MsgBox("Voulez-vous actualiser les données", vbQuestion + vbYesNo, "Actualiser") <> vbYes Then Exit Sub
Application.ScreenUpdating = False
With Range("C2:C39")
.Copy Destination:=Range("B2")
.Formula = "=VLOOKUP(A2,'DNNEES'!$A$2:$E$39,5,FALSE)"
.Value = .Value
.Borders(xlEdgeLeft).LineStyle = xlNone
End With
' Si les dimensions de la plage de changent pas
' Pas besoin de refaire les formules
' Les totaux seront actualisés automatiquement
Range("B40:C40").Formula = "=SUM(B2:B39)"
End Sub
Je vous remercie d'avance pour votre aide !
Cordialement,
FERDI
Bonjour
Avec une userform par exemple qui s'affiche pendant un temps déterminé
Vois le fichier joint
Si ok, lors de ta confirmation, clique sur le V vert à coté du bouton EDITER pour cloturer le fil
Amicalement
Merci bien !
Cordialement
FERDI
Ré bonjour !
Je n'arrive pas a appliquer userform a mon
Fichier sur lequel je travail.
Quand j'inserre userform1.show dans ma macro
Et quant j'exécute ma macro ça m'écrit " erreur
D'exécution, debogage"
Comment inserrer userform dans ma macro ??
Merci encore pour votre retour
Cordialement
Ferdi
re
heureusement que je regarde malgré que tu as cloture le fil....
Ah ben évidemment si tu ne dis pas que c'est pas le fichier sur lequel tu travailles....
Tu vas dans l'editeur VBA et tu sélectionnes dans le menu --> INSERTION --> USERFORM
Ensuite double click sur l'USF pour mettre le code que je t'ai donné dans le fichier
J'ai décloturé le fil puisque ton souci n'est pas solutionné.
A te relire