Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

gestion auto

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sesa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

sesa

XLDnaute Occasionnel
bonsoir à tous,

sur la feuille 2 intitulé "clio", le contrôle technique est annoncé pour 2010 sachant que la première date de circulation était du 07/05/2009.
alors j'ai dans la cellule C8 07/05/2010 ! comment faire pour afficher 2013 ?
pour info, j'ai récupéré ce fichier sur le fofo 😱
merci
 

Pièces jointes

Trier par date Trier par votes
Re : gestion auto

salut Bruno,

mais dans la workbook, ou faut il placer la formule magique 😀

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Stat 2012" Or ActiveSheet.Name = "Présentation" Then Exit Sub
For c = Cells(2 ^ 16, 4).End(xlUp).Row To Cells(14, 4).Row Step -1
If Cells(c, 4) = "CT" Then
Cells(8, 3) = DateSerial(Year(Cells(c, 1)) + 1, Month(Cells(c, 1)), Day(Cells(c, 1)))
GoTo Révision
End If
Next c
Cells(8, 3) = DateSerial(Year(Cells(4, 5)) + 1, Month(Cells(4, 5)), Day(Cells(4, 5)))
Révision:
For r = Cells(2 ^ 16, 4).End(xlUp).Row To Cells(14, 4).Row Step -1
If Cells(r, 4) = "Révision" Then
Cells(8, 6) = ((Cells(r, 2) + 30000) \ 30000) * 30000
Exit Sub
End If
Next r
Cells(8, 6) = ((Cells(5, 5) + 30000) \ 30000) * 30000
End Sub
 
Vote positif 0 Vote négatif
Re : gestion auto

Salut,

Merci BrunoM45 pour l'idée des 15 jours.

Si tu veux faire les modifs dans ta macro liée au bouton "Nouveau véhicule", tu remplaces les 2 lignes :

Cells(8, 3) = DateSerial(Year(Cells(c, 1)) + 1, Month(Cells(c, 1)), Day(Cells(c, 1)))


par


Cells(8, 3) = DateSerial(Year(Cells(c, 1)) + 5, Month(Cells(c, 1)), Day(Cells(c, 1)) - 15)
 
Vote positif 0 Vote négatif
Re : gestion auto


Soucier,
dans la workbook, je ne vois qu'une seule ligne celle ci :

Cells(8, 3) = DateSerial(Year(Cells(c, 1)) + 1, Month(Cells(c, 1)), Day(Cells(c, 1)))

que j'ai remplacée comme dit sans effet.
est ce que tu peux me mettre le workbook en entier avec les modifs pour vérifier ?
merci
 
Vote positif 0 Vote négatif
Re : gestion auto

Tu as 2 fois la même ligne, observes bien le code :


[EDIT - 21h19]
J'ai déjà apporté les corrections au code :

Cells(8, 3) = DateSerial(Year(Cells(4, 5)) + 5, Month(Cells(4, 5)), Day(Cells(4, 5))-15) '1ere ligne
Cells(8, 3) = DateSerial(Year(Cells(4, 5)) + 5, Month(Cells(4, 5)), Day(Cells(4, 5))-15) '2nde ligne
 
Dernière édition:
Vote positif 0 Vote négatif
Re : gestion auto

Désolé Sourcier, merci.
J'ai recopié ton code et effectué un test, ça marche.
Par contre, une fois la date du CT "5ans" réalisée, comment ajuster pour tous les 2 ans ?
A chaque fois Excel va me le calculer sur 5 ans ?
Y a t il un code à ajouter pour prendre en compte les 2 ans après le premier CT ?
 
Vote positif 0 Vote négatif
Re : gestion auto

Salut
Soucier, quand je souhaite enregistrer une "opération" sur un véhicule avec la feuille "présentation",
je sélectionne mon véhicule puis opération, je renseigne l'userform :
la date, kilométrage, nature opération "CT" qui va permettre de calculer le prochain contrôle technique,
le fournisseur qui intervient , la désignation et la facture.
En effet, pour chaque voiture nouvelle ou enregistrer, je serai amené à utiliser l'userform "présentation" en sélectionnant l'intervention qui a été réalisée.

En clair, quand je crée une nouvelle feuille pour une nouvelle voiture, je souhaiterais en fonction de la date première circulation que le CT (<5ans, ou >5ans) apparaisse en C8, chose fait par tes soins (avec 15 jours d'avance).
par contre, quand on fait une opération en mettant CT, le calcule doit se faire avec la cellule C8 afin de connaitre la prochaine visite, qui normalement se fera 2 ans après la première circulation.
Si tu veux à chaque fois que je renseigne une intervention, en utilisant CT sur l'userform, et bien la cellule C8 calcule le prochain CT mais pour 5ans ce qui est faux.
En espérant avoir donné plus d'info.
Au plaisir
 
Vote positif 0 Vote négatif
Re : gestion auto

Salut,


Les déplacements et modifications que j'ai apporté sont visibles entre plusieurs sauts de lignes.

J'ai déplacé la macro du Thisworkbook sur le bouton "nouveau véhicule".
Elle n'avait pas sa place là.
Ce qui donne :

Code: 
Private Sub CommandButton3_Click()
Sheets("Modèle").Select
Cells.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
ActiveSheet.Name = InputBox("Nommez la feuille")





If ActiveSheet.Name = "Stat 2012" Or ActiveSheet.Name = "Présentation" Then Exit Sub
For c = Cells(2 ^ 16, 4).End(xlUp).Row To Cells(14, 4).Row Step -1
  If Cells(c, 4) = "CT" Then
    Cells(8, 3) = DateSerial(Year(Cells(c, 1)) + 5, Month(Cells(c, 1)), Day(Cells(c, 1)) - 15) '1ere ligne
   GoTo Révision
  End If
Next c
Cells(8, 3) = DateSerial(Year(Cells(4, 5)) + 5, Month(Cells(4, 5)), Day(Cells(4, 5)) - 15) '2nde ligne
Révision:
For r = Cells(2 ^ 16, 4).End(xlUp).Row To Cells(14, 4).Row Step -1
  If Cells(r, 4) = "Révision" Then
    Cells(8, 6) = ((Cells(r, 2) + 30000) \ 30000) * 30000
  Exit Sub
  End If
Next r
Cells(8, 6) = ((Cells(5, 5) + 30000) \ 30000) * 30000





Range("B3").Select
MsgBox "Vous pouvez compléter les renseignements"
Unload Me
End Sub

J'ai ensuite ajouté une commande dans ta macro "ok" de l'userform2.

Code: 
Private Sub CommandButton1_Click()
If Controls("textbox2") = "" Then
MsgBox "Indiquez la date"
Controls("textbox2").SetFocus
Exit Sub
ElseIf Controls("textbox3") = "" Then
MsgBox "Indiquez le kilometrage"
Controls("textbox3").SetFocus
Exit Sub
ElseIf Controls("textbox6") = "" Then
MsgBox "Indiquez le Fournisseur"
Controls("textbox6").SetFocus
Exit Sub
ElseIf Controls("textbox5") = "" Then
MsgBox "Indiquez le Montant"
Controls("textbox5").SetFocus
Exit Sub
End If





If ComboBox1.Value = "CT" Then
    Range("C8").Value = DateSerial(Year(Range("C8")) + 2, Month(Range("C8")), Day(Range("C8")) - 15)
End If








If Cells(2 ^ 16, 1).End(xlUp)(2).Row <> 14 Then
  Cells(2 ^ 16, 1).End(xlUp)(2).EntireRow.Insert
  Cells(2 ^ 16, 1).End(xlUp).EntireRow.Copy
  Cells(2 ^ 16, 1).End(xlUp)(2).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End If
Cells(2 ^ 16, 1).End(xlUp)(2).Select
Selection = TextBox2.Value
Selection.Offset(0, 1) = TextBox3.Value
Selection.Offset(0, 2) = TextBox6.Value
Selection.Offset(0, 3) = ComboBox1.Value
Selection.Offset(0, 4) = TextBox4.Value
If ComboBox1.Value = "Carburant" Then
  Selection.Offset(0, 7) = TextBox5.Value
Else
  Selection.Offset(0, 6) = TextBox5.Value
End If   
        
Unload Me
End Sub


J'espère que ça te conviendra.


[EDIT]
Je viens de voir qu'on peut enlever la ligne :

If ActiveSheet.Name = "Stat 2012" Or ActiveSheet.Name = "Présentation" Then Exit Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : gestion auto

bonsoir,

merci Sourcier pour ton travail et le temps passé.
je viens de tester et il en est résulté ceci :
quand je saisi pour l'auto clio révision (120000 klm), dans la cellule F8 le chiffre ne se change pas c'est à dire ne m'affiche pas la prochaine révision? comme je ne suis pas très fort dans les codes VBa, peux tu me donner la modif ?
 
Vote positif 0 Vote négatif
Re : gestion auto

Tout dépend de ce que tu vas mettre dans la textbox3 (kilométrage).

Que mets-tu dans ta textbox3 (kilométrage) ?

Mets-tu le kilométrage de la prochaine révison ou le kilométrage à parcourir jusqu'à la prochaine révision?


exemple 1:

240000 soit : je remplace le kilométrage actuel par celui-ci


exemple 2:

120000 soit : j'ajoute ceci au kilométrage déjà affiché en F8


En fonction de ce que tu désires, tu devras choisir entre :

Code: 
Private Sub CommandButton1_Click()
If Controls("textbox2") = "" Then
MsgBox "Indiquez la date"
Controls("textbox2").SetFocus
Exit Sub
ElseIf Controls("textbox3") = "" Then
MsgBox "Indiquez le kilometrage"
Controls("textbox3").SetFocus
Exit Sub
ElseIf Controls("textbox6") = "" Then
MsgBox "Indiquez le Fournisseur"
Controls("textbox6").SetFocus
Exit Sub
ElseIf Controls("textbox5") = "" Then
MsgBox "Indiquez le Montant"
Controls("textbox5").SetFocus
Exit Sub
End If

'---------exemple 1------------
If ComboBox1.Value = "CT" Then
    Range("C8").Value = DateSerial(Year(Range("C8")) + 2, Month(Range("C8")), Day(Range("C8")) - 15)
ElseIf ComboBox1.Value = "Révision" Then
    Range("f8").Value = Range("f8") + TextBox3.Value
End If
'------------------------------

If Cells(2 ^ 16, 1).End(xlUp)(2).Row <> 14 Then
  Cells(2 ^ 16, 1).End(xlUp)(2).EntireRow.Insert
  Cells(2 ^ 16, 1).End(xlUp).EntireRow.Copy
  Cells(2 ^ 16, 1).End(xlUp)(2).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End If
Cells(2 ^ 16, 1).End(xlUp)(2).Select
Selection = TextBox2.Value
Selection.Offset(0, 1) = TextBox3.Value
Selection.Offset(0, 2) = TextBox6.Value
Selection.Offset(0, 3) = ComboBox1.Value
Selection.Offset(0, 4) = TextBox4.Value
If ComboBox1.Value = "Carburant" Then
  Selection.Offset(0, 7) = TextBox5.Value
Else
  Selection.Offset(0, 6) = TextBox5.Value
End If


        
        
        
Unload Me
End Sub

ou

Code: 
Private Sub CommandButton1_Click()
If Controls("textbox2") = "" Then
MsgBox "Indiquez la date"
Controls("textbox2").SetFocus
Exit Sub
ElseIf Controls("textbox3") = "" Then
MsgBox "Indiquez le kilometrage"
Controls("textbox3").SetFocus
Exit Sub
ElseIf Controls("textbox6") = "" Then
MsgBox "Indiquez le Fournisseur"
Controls("textbox6").SetFocus
Exit Sub
ElseIf Controls("textbox5") = "" Then
MsgBox "Indiquez le Montant"
Controls("textbox5").SetFocus
Exit Sub
End If

'---------exemple 2------------
If ComboBox1.Value = "CT" Then
    Range("C8").Value = DateSerial(Year(Range("C8")) + 2, Month(Range("C8")), Day(Range("C8")) - 15)
ElseIf ComboBox1.Value = "Révision" Then
    Range("f8").Value = TextBox3.Value
End If
'------------------------------

If Cells(2 ^ 16, 1).End(xlUp)(2).Row <> 14 Then
  Cells(2 ^ 16, 1).End(xlUp)(2).EntireRow.Insert
  Cells(2 ^ 16, 1).End(xlUp).EntireRow.Copy
  Cells(2 ^ 16, 1).End(xlUp)(2).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End If
Cells(2 ^ 16, 1).End(xlUp)(2).Select
Selection = TextBox2.Value
Selection.Offset(0, 1) = TextBox3.Value
Selection.Offset(0, 2) = TextBox6.Value
Selection.Offset(0, 3) = ComboBox1.Value
Selection.Offset(0, 4) = TextBox4.Value
If ComboBox1.Value = "Carburant" Then
  Selection.Offset(0, 7) = TextBox5.Value
Else
  Selection.Offset(0, 6) = TextBox5.Value
End If


        
        
        
Unload Me
End Sub
 
Vote positif 0 Vote négatif
Re : gestion auto

Re
Imaginons, je tape dans la textbox 120100 (prévu 120000) et comme "nature réparation" révision, je valide.
Tout à fait en F8 cela est déjà présent mais quand tu arrives à cette révision, je pensais que le code calculé à nouveau la prochaine révision.
sur ma feuille "clio", je devrais avoir le nouveau kilométrage pour la prochaine révision
qu'en penses tu ?
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
Autres Gestion flotte auto LLD - Suivi durée contrat + kilométrage
Réponses
2
Affichages
391
wDog66
W
S
  • Question Question
XL 2010 Gestion absence enseignant
Réponses
10
Affichages
779
JM27
L
  • Question Question
Gestion flotte véhicule
Réponses
4
Affichages
1 K
leptichat
L
B
  • Question Question
XL 2010 Gestion de prêt
2
Réponses
15
Affichages
2 K
break
B
R
  • Question Question
Microsoft 365 Automatisation calcul
Réponses
2
Affichages
885
Roran
R
B
  • Question Question
Microsoft 365 Gestion de stock création de macros
Réponses
7
Affichages
1 K
vgendron
W
  • Question Question
XL 2016 calcul tarif en fonction de différente saison
Réponses
4
Affichages
966
webermael
W
C
  • Résolu(e)
Microsoft 365 Retrouver une valeur sur une colonne croisée avec la ligne de la valeur remontée par la formule min.si.ens
Réponses
5
Affichages
852
danielco
D
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Question Question
Microsoft 365 Gestion d'une refacturation en fonction d'un inventaire
Réponses
1
Affichages
690
MUGMRG
M
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
1 K
Kevin38
K
N
  • Résolu(e)
XL 2016 tableau de vente/gestion des stocks boutique : quelles formules ?!
2
Réponses
17
Affichages
3 K
Noëllie
N
  • Résolu(e)
XL 2019 VBA création d'interface
Réponses
2
Affichages
832
Yazeubi
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
1 K
TooFatBoy
  • Question Question
XL 2016 calcul de nombre de lundis ....... dimanches entre 2 dates via un formulaire
Réponses
13
Affichages
1 K
mapomme
T
  • Question Question
Microsoft 365 Dax : sameperiodlastyear : Erreur... contient de nombreuses valeurs...
Réponses
0
Affichages
2 K
trekkeur50
T
J
  • Question Question
Microsoft 365 Excel - effacer des lignes des 3 derniers jours de mois + insérer des lignes
Réponses
4
Affichages
2 K
AtTheOne
L
  • Question Question
Autres Recherche formule pour cycle de travail 3/2/2/3
Réponses
10
Affichages
2 K
sylvanu
  • Question Question
XL 2016 contrôle technique par rapport a une date
Réponses
8
Affichages
3 K
Moi69
F
  • Question Question
Trier des donnees par date la plus recente sous VBA
Réponses
4
Affichages
1 K
FaruSZ
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…