Discussion :

[albibak]

Bonjour,

Je suis en train de faire un graph sous Excel, en utilisant les formes automatiques mise à dispo.
Dans un futur proche, en cliquant sur une forme automatique, je voudrais que cela ouvre une macro demandant certaine chose, et ainsi remplir un autre fichier excel directement avec les infos que j'aurais renseigné. Dans un premier temps, cela est-il possible?

Si oui, pour le moment je voudrais juste pouvoir afficher un pop up, si une personne clique sur cette forme automatique, pour lui dire que la fonction décrite ci-dessus n'est pas encore disponible.
Un pop up du genre: Désolé, cette fonction n'est pas encore disponible.

Merci à vous pour le coup de main. Pour info je ne connais pas vba, donc je sens que je vais y passer du temps

[javelot69]

Bonjour,

Ce que tu appelles un pop up est un Userform dans Excel ; tu peux évidemment le créer.

Ci joint un exemple.

Bonne journée.

[albibak]

Merci énormément, c'est exactement ce que je voulais faire.
Je testerais cela chez moi ce soir afin de faire cela comme je veux.
Merci encore.

[fred65200]

boujour

en attendant que tu aies peaufiné tes userforms, en voici un qui se fermera automatiquement après 5 secondes

Ajoute un Userform à ton projet
place un label qui s'appellera Label1
et colle le code qui suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub UserForm_Activate()
   Sleep 5000  '5000 = 5s
End Sub
Private Sub Sleep(lgMSec As Long)
' Procédure de temporisation
' Le temps d'attente donné en paramètre en millisecondes est approximatif
Dim lgTime As Long
lgTime = GetTickCount
Do While lgTime + lgMSec > GetTickCount
    Dim s
    s = (lgTime + lgMSec - GetTickCount) / 1000
    Caption = "Fermeture dans " & Format(s, 0) & IIf(s > 1, " secondes.", " seconde.")
    DoEvents
Loop
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
With Label1
   .Caption = "Option non disponible."
   .AutoSize = True
   .WordWrap = False
   .Top = 10
   .Left = 10
End With
 
Height = Label1.Height + 40
Width = IIf(Label1.Width < 200, 200, Label1.Width)
 
End Sub

cordialement

[albibak]

OK, merci beaucoup également.
Reste à voir comment faire tout cela, car ça je ne maitrise pas du tout. Je vois juste ma pauvre feuille Excel ^^