XL 2016 Création planning véhicule / conducteur / service

JULJUL

XLDnaute Nouveau
Bonjour,

Je viens vers vous, car mes cours sur Excel sont extrêmement loin dans ma mémoire. :(

J'ai besoin de créer un document où je pourrais afficher un planning général pour savoir qui a tel véhicule, de quel service il dépend, quel véhicule est disponible à telle date. mais également afficher le planning par équipe, que le chef d'équipe puissent apporter les modif de véhicules si besoin.
Et également pouvoir avoir un suivi sur les vehicules ( date de CT arrivant à échéance / véhicule non disponible car en panne ou révision à faire...)

Aujourd'hui rien est fait, il n'y a pas de suivi.

Pouvez vous m'aider à créer le document?

Merci à ceux ou celles qui prendront le temps.

;)
 

Pièces jointes

  • planning test.xlsx
    329.4 KB · Affichages: 60

JULJUL

XLDnaute Nouveau
Ah super merci, je vais essayer.

Pour le bouton réserver, j'ai créer un formulaire. Et je souhaiterais que pour les dates de debut et de fin, soit elles s'affichent en fonction de la selection faite sur le planning soit on les rentre manuellement (pour une longue durée par exemple)
1629794147299.png
 

JULJUL

XLDnaute Nouveau
ca ne marche pas le code,

Est ce du a ma formule pour les dates ?

1629795558318.png

re
pour l'affichage sur le mois en cours
choisir une cellule dans votre classeur et poser cette formule
VB:
=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());1)

en supposant que cette formule soit posée en feuille "Listes", cellule "T1"
dans un module vba copier coller cette macro
Code:
 Sub date_jourNV()
Dim cellule As Range
On Error Resume Next
For Each cellule In Sheets("Planning").Range("C3:NH3")
If cellule = Sheets("Listes").Cells(1, 20) Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

à partir du bouton affecter cette macro,
le planning va s'afficher sur le 1er jour du mois en cours

question :
Comment voulez-vous organiser votre bouton réserver un véhicule ?


cdt
galougalou
 

GALOUGALOU

XLDnaute Accro
consulter les feuilles LISTE et planning.
pour une exécution automatique à l'activation de la feuille, il faut rajouter dans l'événement feuille
VB:
Private Sub Worksheet_Activate()
         Call date_jour
End Sub
 

Pièces jointes

  • Planning prévisionnel annuel à partir d'une feuille base .xlsm
    560.1 KB · Affichages: 13

GALOUGALOU

XLDnaute Accro
re
un exemple pour remplir automatiquement les textbox en fonction de la sélection des cellules
code à placer dans l'initialisation du formulaire
adapter les textbox ou combobox
VB:
Private Sub UserForm_Initialize()
  Dim PreLig As Integer
  Dim PreCol As Integer
  Dim DerLig As Integer

On Error Resume Next
With Selection
  If .Rows.Count = 1 Then
  With Selection
PreLig = .Cells(1).Row 'premiere ligne
PreCol = .Cells(1).Column 'premiere colonne
DerCol = .Cells(.Cells.Count).Column 'dernière colonne
  TextBox1 = Cells(3, PreCol).Text
    TextBox2 = Cells(3, DerCol).Text
    TextBox3 = Cells(PreLig, 1).Text
End With
    Else
     MsgBox "Sélection de plusieurs véhicule, la procédure s'arrête, recommencez votre sélection. !"
    Unload Me
     Range("A2").Select
  End If
End With
cdt
galougalou
 

GALOUGALOU

XLDnaute Accro
re
avec un résultat conforme à votre capture d'écran, mais attention la fusion des cellules détruit la mise en forme d'origine et les éventuelles mfc
cdt
galougalou
 

Pièces jointes

  • véhicule.gif
    véhicule.gif
    423.4 KB · Affichages: 30
  • Planning prévisionnel annuel v2.xlsm
    571.5 KB · Affichages: 18

ChTi160

XLDnaute Barbatruc
Bonjour JULJUL
Bonjour le Fil ,Le Forum
GALOUGALOU
ne pourrait on mettre un Exit For une fois la colonne trouvée ?
If cellule = Sheets("Listes").Cells(1, 20) Then
ActiveWindow.ScrollColumn = cellule.Column
Exit for
End If
Jean marie
depuis mon téléphone
 
Dernière édition:

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal