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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 7) = Cdate(TextBox2)

[Georges50]

Bonjour,
merci pour votre aide, je me suis mal exprimer.
C'est la deuxième partie du code qui ne fonctionne pas.

Le code précédent me permet de trouver le numéro de la ligne ou apparait le code matériel.
Avec ce numéro de ligne, j'ai envie de modifier la colonne F (qui permet de modifier la prochaine date à prévoir).
Le code permet de voir s'il y a écris 0, 6 ou 12 sur la colonne E, puis si c'est 6 il faut ajouter 180 jours à la date de la colone G qui sera enregistré dans la colonne F. Si c'est 12 il faut ajouter 365 jours.
si l'on prends la ligne n°2, admetons que la date de dernière vérification (colonne G) soit 08/04/2014, j'ai envie à partir de cette date et du 12 qu'il y a marqué sur la colonne E que la date à écrire sur la colonne F soit égale à Date de la colonne G + 365 jours.
Le code ci dessous, enregistre juste le 365 ou le 180 dans une case de la colonne 11.

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

[Invité]

déjà sous cette forme c'est plus lisible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Worksheets("ListeMateriel")
'Cells(i, 6).Select
    .Cells(i, 6).NumberFormat = "dd/mm/yyyy"
    Select Case CStr("" & .Cells(i, 5))
        Case "0"
            .Cells(i, 6) = 0
        Case "5"
            .Cells(i, 6) = 0
        Case "6"
            .Cell(i, 6).FormulaR1C1 = "=RC[1]+180"
        Case "12"
            .Cell(i, 6).FormulaR1C1 = "=RC[1]+365"
    End Select
End With

1) maintenant écrits ta formule directement dans une cellule excel.
2) positionnes toi dans la cellule ou tu viens de saisir la formule.
3) passe dans VB [Alt] + [F11]
4) ouvre la fenêtre d’exécution [Ctrl] + [G]
5) Écrits cet formule

Code fenêtre d’exécution :

Sélectionner tout - Visualiser dans une fenêtre à part

?ActiveCell.FormulaR1C1 [Enter]

[Georges50]

Bonjour,
j'ai fait votre action 2 fois, la première fois en utilisant une cellule sur une autre feuille, cela me sort le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(ListeMateriel!R[5]C[4]=0,0,IF(ListeMateriel!R[5]C[4]=6,ListeMateriel!R[5]C[6]+180,IF(ListeMateriel!R[5]C[4]=12,ListeMateriel!R[5]C[6]+365,0)))Erreur 2029

la deuxième fois en utilisant la bonne cellule sur la bonne feuille, cela me sort le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(RC[-1]=0,0,IF(RC[-1]=6,RC[1]+180,IF(RC[-1]=12,RC[1]+365,0)))Erreur 2029

Je pense que c'est la bonne démarche, après faut-il que je recopie le code que j'obtiens pour l'insérer dans la FormulaR1C1 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Worksheets("ListeMateriel")
'Cells(i, 6).Select
    .Cells(i, 6).NumberFormat = "dd/mm/yyyy"
    Select Case CStr("" & .Cells(i, 5))
        Case "0"
            .Cells(i, 6) = 0
        Case "5"
            .Cells(i, 6) = 0
        Case "6"
            .Cell(i, 6).FormulaR1C1 = "=IF(RC[-1]=0,0,IF(RC[-1]=6,RC[1]+180,IF(RC[-1]=12,RC[1]+365,0)))" ' "=RC[1]+180"
        Case "12"
            .Cell(i, 6).FormulaR1C1 = "=IF(RC[-1]=0,0,IF(RC[-1]=6,RC[1]+180,IF(RC[-1]=12,RC[1]+365,0)))" '"=RC[1]+365"
    End Select
End With

j'ai fait un essai sans rien changer au code que vous m'avez transmis, cela me donne un erreur 438, propriété ou méthode non généré.
Ne maîtrisant pas VBA, je ne sais pas si je suis parti dans la bonne direction ?
En vous remerciant de votre aide.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Case "6"
            .Cells(i, 6).FormulaR1C1 = "=IF(RC[-1]=0,0,IF(RC[-1]=6,RC[1]+180,IF(RC[-1]=12,RC[1]+365,0)))" ' "=RC[1]+180"
        Case "12"
            .Cells(i, 6).FormulaR1C1 = "=IF(RC[-1]=0,0,IF(RC[-1]=6,RC[1]+180,IF(RC[-1]=12,RC[1]+365,0)))" '"=RC[1]+365"

[Georges50]

Cela fonctionne à merveille.
Merci pour votre aide