Discussion :

[Georges50]

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à :

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

je vous joint un impression écran de la base de donnée pour une meilleur compréhension.
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