Contrat d'entretien

[dobby70]

Bonjour,

je gère une entreprise de chauffage et j'effectue chaque année des entretiens de chaudière sous contrat.
J'ai créé les bases du fichier excel que vous trouverez en PJ mais j'ai quelques problèmes.

D'une part, je voudrais que quand je mets une croix dans "fait", la ligne se mette de la couleur de la colonne à fin de savoir où j'en suis mais aussi pour le "à faire" et "arrêté". Ensuite j'aimerais que la base de données se copie elle même lorsque j'ai coché le "fait" dans une feuille suivante afin de le retrouver l'année d'après.

Merci de votre dans cette jungle informatique 😀

 

[st007]

Re : Contrat d'entretien

Bonjour et bienvenue,

J'irai simplement avec des MFC pour les colonnes J,K,L, comme sur l'onglet 2017....

Mais ....

Une petite macro événementielle sur ces 3 colonnes pourrait aussi convenir, tant pour la couleur que pour la recopie sur l'onglet suivant.

 

[dobby70]

Re : Contrat d'entretien

Super merci de votre réponse !!
ça marche niquel ! Par contre, comment on fait pour que le Fait se transpose sur la feuille d'après ?

 

[st007]

Re : Contrat d'entretien

Bonsoir,
Comme personne n'a l'air de s'interesser à ta requete

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = Range("J:J").Column Then
  Application.EnableEvents = False
     Range("A" & Target.Row & ":O" & Target.Row).Interior.ColorIndex = 4 '4 vert, 3 Rouge, 44 orange
    Else
    Range("A" & Target.Row & ":O" & Target.Row).Interior.ColorIndex = xlNone
   Application.EnableEvents = True
   End If
 End Sub

devrait te permettre d'avancer ...
et donc
Range("A" & Target.Row & ":O" & Target.Row).copy

 

[Bebere]

Re : Contrat d'entretien

bonjour
à tester,écrire dans P1 Recopié

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Column = Range("J:J").Column Then
Application.EnableEvents = False
an = Val(ActiveSheet.Name) + 1
Range("A" & Target.Row & ":O" & Target.Row).Interior.ColorIndex = 4 '4 vert, 3 Rouge, 44 orange
If Range("P" & Target.Row) = "" Then
l = Sheets(CStr(an)).Range("A65536").End(xlUp).Row + 1
Sheets(CStr(an)).Range("A" & l & ":O" & l).Value = Range("A" & Target.Row & ":O" & Target.Row).Value
Range("P" & Target.Row) = "x"
End If
Else
Range("A" & Target.Row & ":O" & Target.Row).Interior.ColorIndex = xlNone

Application.EnableEvents = True
End If
End Sub

edit: corrigé N en P

 

[dobby70]

Re : Contrat d'entretien

J'ai pas très bien compris tes messages ... :/ Je suis plus ou moins novice dans excel donc là je suis perdu ^^
Tu peux me réexpliquer stp ?

Merci en tout cas !

 

[st007]

Re : Contrat d'entretien

Bonsoir,

Essaye donc ce fichier, active les macro bien sure (moi, je jouais à mettre des croix en J,K,L).

Il faudra bien sure que l'onglet de l'année suivante existe .
Tout est toujours améliorable .... par des pro des macro, ...

 

[Bebere]

Re : Contrat d'entretien

bonjour Dobby,St007
voilà un code pour les 3 couleurs
code dans feuille 2015,2016 et module1
si fait K et L de la feuille active sont effacés

 

[dobby70]

Re : Contrat d'entretien

Je vous remercie pour les couleurs c'est cool ça marche. Maintenant, ce qu'il me faudrait c'est que lorsque je coche le "Fait" ça me le transmette sur la feuille d'après (l'année d'après quoi). Parce que le soucis c'est que j'ai une GRC qui me permet de dire ça a été fait ou non mais ça me le relance pas l'année d'après et donc j'ai oublié des clients et les ai perdu. Je vais aussi rajouter une case avec la Date avec un petite fleche pour choisir le mois.

C'est possible ?

Merci les gens pour tout !

 

[Bebere]

Re : Contrat d'entretien

Dobby si tu mets un x dans la colonne J la ligne est recopiée ligne 2015 dans une ligne de 2016
je te mettrai un calendrier pour les dates
donne plus de détails si besoin

 

[dobby70]

Re : Contrat d'entretien

Excellent super !!! je n'avais pas capter 😛 Merci les gens 🙂

 

[Bebere]

Re : Contrat d'entretien

bonjour
une version avec calendrier
feuille 2017 colonnes M:O