Création fichier entretien véhicule et historique

Question

Je suis entrain de créer un fichier excel pour le suivi d'entretien de mon véhicule. le but est de ne pas bloquer les cellules pour que chacun puisse y adapter sa voiture, sa moto, etc.... Voila comment se compose le fichier: Le premier onglet et le sommaire, où l'on voit les retards d'entretien en rouge, le kilométrage et la date du prochain entretien. Ce tableau est composé en partie: moteur, refroidissement, frein..Etc et chaque partie à son propre onglet. Il y a en plus un onglet dépense. pour le suivi des factures. Voila mon problème: J'ai mis une colonne orange après les colonnes "effectué le" et "kilométrage" Cette colonne orange doit avoir 2 fonctions: La premiere une fonction validation: valide si la date et le kilométrage sont présent, sinon message d'erreur. La seconde une fonction enregistrement, quand on clique sur la cellule orange, j'aimerais que la date et le kilométrage soient enregistrées dans l'onglet correspondant. Pour exemple, je fais le "changement d'huile" dans la partie "moteur", le 2/3/2008" a "20000km". Je clique sur la cellule orange "validation", et les données "2/3/2008" et "20000km" s'enregistre dans l'onglet moteur sous le titre "changement d'huile". A la seconde vidange, je rentre "3/6/2010" et "30000km", je clique sur validation, et ces données viennent s'enregistrer sous les précédentes dans l'onglet "moteur" Si quelqu'un pouvait m'aider à faire cette fonction enregsitrement…ça serait super sympa, parce que j'avoue que cela dépasse mes compétences en excel. Il faudrait juste me montrer un exemple que je le reproduise pour le reste du fichier. Encore merci de votre aide...

jeremie25 · Answer

J'ai adapté un de mes fichiers où on fait un peu la même chose au boulot. Il y a un bouton devant la ligne "changement d'huile", par dessus la case G6. Clic, et ca va incrémenter la feuille MOTEUR. Si tu mets d'autres valeurs, ca va se mettre en dessous des premières. Et ainsi de suite. Dis moi ce que tu en penses. Pour voir la maco, fait clic droit sur un onglet/visualiser le code. puis va voir dans le module. Ton onglet feuil1 (2), je l'ai renommé en "Général" Les pros, est-ce que ca tient la route mon histoire...

jeremie25 · Answer

Content que ça te convienne. On peut ajouter un peu des conditions de validations, par exemple si une des deux cellules est vide, impossible de copier, enfin ce genre de truc.

Alors pour ce qui est de la macro, j'ai pompé ça sur un de mes fichiers, que j'ai élaboré avec ce forum en octobre 2008, jusqu'il y a peu. Un grand merci d'ailleurs à PLabrousse, qui m'a développé pas mal de mes codes.

En fait je n'y connais pas grand chose en VBA. Je sais adapter des macro existantes, et je m'aide surtout de l'aide dans Visual Basic.

En règle général, des chose simples comme ça, je m'en sors, sinon, il faut faire appel aux pros

Pour t'aider à comprendre ici :

Sheets : désigne les feuilles de ton classeur
Range : c'est l'étendu de ta sélection
Copy : copie
Paste = coller (spécial : les valeurs, et les formats)

Quand tu fais une macro, par exemple, si tu veux faire pareil pour un autre type de maintenance sur ton véhicule, tu fais insertion (dans visual basique) / procédure (sub). Tu la nommes (comme je l'ai fais avec l'huile). Une fois terminée (tu n'as qu'a adapter les feuilles et les cellules à mon avis), refais un bouton, ou copie/colle celui que j'ai fais, puis affecte lui ta macro (clic droit/affecter une macro).

Voià, à ton service!

jeremie25 · Answer

Ecoute, je suis ravi de voir que mon aide te plaise, ca fait plaisir!

Pour les conditions, c'est très intuitif. Dans ta Public Sub changementhuile(), tu peux remplacer ton code par celui ci, où il y a juste des conditions au début. Le reste rien de changé :

Public Sub changementhuile()

'Condition de remplissage de la date
    Range("E6").Select
            If ActiveCell = "" Then
                MsgBox ("veuillez entrer la date de l'opération, puis validez avec la touche Entrée <--")
                Exit Sub
            End If

'Condition de remplissage des km
    Range("F6").Select
            If ActiveCell = "" Then
                MsgBox ("Renseigner le kilométrage du véhicule lors de l'opération")
                Exit Sub
            End If

Sheets("MOTEUR").Visible = True

    Application.ScreenUpdating = False
    Sheets("Général").Range("E6:F6").Copy
    With Sheets("MOTEUR").Range("G65536").End(xlUp)(2)
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats

    Application.CutCopyMode = False

            End With
End Sub

Note que tu peux faire des penses-bête dans tes macro en mettant du texte précédé d'un apostrophe.

Les conditions "s'éctivent" lorsque tu clic sur "valider" alors qu'une case est vide.

Tu peux aussi demander à ce que le format soit celui souhaiter, afin d'etre homogène. Là ca se passe effectivement dans Excel. Sélectionne la cellule, puis Donnée / Validation. Là tu peux choisir de restreindre le type de données à mettre dans la cellule, par exemple que des données "dates", puis tu peux paramétrer des petits mot "d'engueulade" quand le format n'est pas bon, etc etc..

Voilà, bonne continuation, et bon développement

A ton service!