Discussion :

[fsoyez]

Bonjour,

Ne connaissant rien en VBa, et malgré des essais et recherches, je n'arrive toujours pas à créer un fichier pour mon boulot.
J'aimerais :
-en double clic dans la cellule colonne date ouvrir un calendrier et valider une date.
-Un clic dans zone d'impression (sans couleur) des cases remplies par les utilisateurs
-Une zone Statistique sur les différentes panne sur les zones
-Un bouton sauvegarde, puis un indication de la dernière sauvegarde.
-création d'un bouton champs de saisie (date, zone, ..jusqu'à intervenant) puis une fois remplie il s'ajoute automatiquement dans la suite du tableau.
-et proteger ensuite la mise en page. et les saisies.

J'ai voulu m'inspirer d'un fichier avec des macros de ce genre mais le copier et coller ne fonctionne pas

Est-ce qu'il y a un expert qui pourrait me venir en aide pour terminer ce fichier???
MERCIII

[kiki29]

Salut, une simple recherche te donne déjà ceci et cela.il te faudra les adapter à ton contexte.

[Daniel.C]

Bonjour,

Merci pour le cahier des charges, mais ce n'est pas ici une société de services, mais un forum ayant pour but de permettre à chacun de progresser dans ses connaissances. Tu affirmes ne rien connaître à VBA. Ce qui t'intéresse, c'est de récupérer un fichier clés en main que tu ne sauras pas modifier quand il le faudra.
Peut-être qu'un autre intervenant aura une autre opinion. Je me demande s'il faut te le souhaiter.

[fsoyez]

Je suis tout à fait d'accord avec ton idée Et je ne prend pas le forum pour une société de service!! J'ai été maladroit
Mais j'ai encore passé une journée sur le net afin de trouver des solutions.
Et j'en trouve grâce à vous mais le niveau est élevé. Je n'ai que les forums pour apprendre.


Voici ce que j'ai fait :

1)Un bouton de sauvegarde, il me demande à chaque de remplacer le fichier existant mais ça ce n'est pas grave :

Code :

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

1
2
3
4
5
6
Public Sub CommandButton1_Click() 'Worksheet Backup Copy
Dim nom As String
    nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmmss") & ".xls"
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\old\" & nom
    rep = MsgBox("Worksheet saved on 'old' sub-directory under name: " & nom, vbYes + vbInformation, "Worksheet Backup Copy")
End Sub

2) J'ai commencé le bouble clique dans la colonne B (Date), j'ai installé un userforms automatique (Monthview) et copier le code : http://www.developpez.net/forums/d43...ellule-active/
mais après je suis bloqué.... d’ailleurs, il n'est pas précisé le double clic dans ma colonne B.

MERCI Beaucoup

[Fvandermeulen]

Salut,

Pour le double click dans une colonne, utilise le code ci-dessous.
C'est une macro évenementielle à placer dans le module feuille.
Target est l'objet de type Range qui correspond à la celulle sur laquelle le double click à eu lieu.
Etant un Range, on peut vérifier que la colonne est bien 2, si oui, alors le code se déroule...

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
    ' Ici ton code
End If
 
End Sub

A+

P.S. J'ai pas ouvert ton fichier car étant XLSX il n'y a pas les débuts de codes dont tu parles...

[Daniel.C]

Ça serait bien d'avoir ton classeur au format xlsm. Il faut le compacter avec winzip ou winrar, par exemple, au format zip. Si tu ne le peux pas, enregistre-le au format xls.
Pour le point 1., je n'ai pas compris pourquoi tu as un message, puisque tu changes le nom du fichier à chaque fois.

[fsoyez]

J'ai fait un pas en avant avec mon fichier grâce à un fichier trouvé et que j'ai modifié pour mes besoins
Le calendrier apparait en faisant un clic sur la colonne date.

1)Mais pourquoi lorsque je fais un tri par ordre croissant dans l'une de mes colonnes la fenêtre userform1 apparait???!!!

2) J'ai créer un userform2 qui sera une macro lorsqu'on clic sur l’icône Impression...impression en noir et blanc entre deux dates choisis(colonne B) pour ne pas à chaque fois tout réimprimer.
Quelqu'un a t-il des pistes ou un fichier qui s’apparente à cette fonction.

Merci:

[Daniel.C]

Bonjour,

1)Mais pourquoi lorsque je fais un tri par ordre croissant dans l'une de mes colonnes la fenêtre userform1 apparait???!!!

Sur quelle feuille ? sur quelle colonne ?

2. Macro du bouton Imprimer :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    Dim LigneDeb As Long, LigneFin As Long
    LigneDeb = Application.Match(Me.DTPicker1.Value * 1, ['INTERVENTION GARDE'!B:B])
    LigneFin = Application.Match(Me.DTPicker2.Value * 1, ['INTERVENTION GARDE'!B:B])
    With Sheets("INTERVENTION GARDE")
        .Range(.Cells(LigneDeb, 2), .Cells(LigneFin, 9)).PrintOut
    End With
    Unload Me
End Sub