Bonjour,
Je suis en train de finir le développement d'une application pour le travail est j'ai un petit problème.
J'aimerai modifier une date "prochain entretien à prévoir" en fonction du type de contrôle périodique.
En effet, j'ai mis dans la colonne 5 ("Contrôle périodique") le nombre de mois entre chaque contrôle, 6 pour 6 mois, 12 pour 12 mois et 0 si pas de contrôle.
La première partie du code permet d'enregistrer la nouvelle date de vérification, c'est à partir de cette date là que l'on peut connaître la prochaine date de vérification.
La deuxième partie du code, permet d'ajouter 180 ou 365 jours pour indiquer une date de prochain entretien à prévoir.
j'utilise le code ci-dessous, sauf que cela m'enregistre le chiffre 365 ou 180 dans la colonne K du tableau au lieu de l'enregistrer dans la colonne F et modifier la date d'entretien à prévoir.
Je pense que cela viens du RC1, mais je ne sais pas vraiment m'en servir, j'ai utilisé l’enregistreur de macro pour sortir la formule.
J'ai mis ce code là :
je vous joint un impression écran de la base de donnée pour une meilleur compréhension.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 Private Sub CommandButton2_Click() With Worksheets("ListeMateriel").Range("A:A") Set c = .Find(TextBox1, LookIn:=xlValues) 'recherche la ligne sur la base de donnée i = c.Row Cells(i, 7) = TextBox2 'modifie la date de vérification End With ' modifier la date de la prochaine vérification With Worksheets("ListeMateriel") Cells(i, 6).Select Selection.NumberFormat = "dd/mm/yyyy" If Cells(i, 5) = "0" Then Cells(i, 6) = 0 Else If Cells(i, 5) = "6" Then ActiveCell(i, 6).FormulaR1C1 = "=RC[1]+180" Else If Cells(i, 5) = "12" Then ActiveCell(i, 6).FormulaR1C1 = "=RC[1]+365" End If End If End If End With ActiveWorkbook.Save Modifier_Date_Verification.Hide Choix_Action.Show End Sub
En espérant ayant bien expliquer mon pbm. je reste disponible si vous avez des questions pour une meilleur compréhension.
En vous remerciant par avance pour votre aide.
Cordialement
Partager