Incrémentation d'une date en fonction de deux variables

Version imprimable

Bonjour à tous,

je viens chercher un peu d'aide sur le forum. J'ai créé un code le mois dernier me permettant de modifier une date d'une cellule en fonction de la valeur d'une autre cellule.

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Public Sub delai(nomOp As String)
 
Dim cell As Range
 
Application.ScreenUpdating = False
 
For Each cell In Sheets("LASER").Range("J:R")
 
    If cell.Value = "OP_DECOUPE_INOX" Then
        cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
 
    ElseIf cell.Value = "OP_DECOUPE_NOIR" Then
        cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
 
    End If
 
Next cell
 
End Sub

Ce code fonctionne correctement mais je souhaite également modifier la date correspondant à "OP_DESSIN" en fonction de l'opération qui suit ("OP_DECOUPE_INOX" ou "OP_DECOUPE_NOIR").

J'ai pensé à ceci dans un premier temps :

Code:

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
 Public Sub delai(nomOp As String)
 
Dim finpage As Long
Dim cell As Range
 
Application.ScreenUpdating = False
 
finpage = Sheets("LASER").Cells(Rows.Count, 2).End(xlUp).Row
 
For Each cell In Sheets("LASER").Range("J:R")
 
    If cell.Value = "OP_DECOUPE_INOX" Then
        cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
 
    ElseIf cell.Value = "OP_DECOUPE_NOIR" Then
        cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
 
    End If
 
    If cell.Value = "OP_DECOUPE_INOX" And cell.Offset(1, 0).Value = "OP_DESSIN" Then
        cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
 
    If cell.Value = "OP_DECOUPE_NOIR" And cell.Offset(1, 0).Value = "OP_DESSIN" Then
        cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
 
    End If
 
End If
 
Next cell
 
End Sub

Excel me mets : "Erreur 1004 : Erreur définie par l'application ou par l'objet" pour la ligne n°20 mais je ne comprends pas pourquoi.

Qu'en pensez-vous ? Auriez-vous fait autrement ?

Bonjour
essayer ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Public Sub delai(nomOp As String)
 
Dim finpage As Long
Dim cell As Range
 
Application.ScreenUpdating = False
 
finpage = Sheets("LASER").Cells(Rows.Count, 2).End(xlUp).Row
 
For Each cell In Sheets("LASER").Range("J:R")
 
 
 
 
    If cell.Value = "OP_DECOUPE_INOX" And cell.Offset(1, 0).Value = "OP_DESSIN" Then  cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
 
 
    If cell.Value = "OP_DECOUPE_NOIR" And cell.Offset(1, 0).Value = "OP_DESSIN" Then cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
 
Next cell
 
End Sub

Bonjour BENNASR,

dans ta version je perds la modification de ma première version qui est :

Code:

1
2
3
4
5
6
7
  If cell.Value = "OP_DECOUPE_INOX" Then
        cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
 
    ElseIf cell.Value = "OP_DECOUPE_NOIR" Then
        cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
 
    End If

1 pièce(s) jointe(s)

Bonjour,

Es-tu sûr de tes conditions ? Voici un tableau qui résume tes conditions :
Pièce jointe 278332
On remarque qu'il suffit de 2 conditions :

cell.Value = "OP_DECOUPE_INOX"
cell.Value = "OP_DECOUPE_NOIR"

En effet, si une des 2 dernières conditions est vérifiée, cela veut dire qu'une des 2 premières étaient déjà vérifiées. Et tu effectues la même opération dans les 2 cas. Je ne sais pas si c'est très clair :?

Es-tu sûr de ta plage pour la boucle ? Tu fais la boucle sur toutes les colonnes J à R. As-tu vraiment besoin de parcourir toutes les lignes de ces colonnes ? Je vois qu'auparavant tu cherches la dernière colonne non vide, pourquoi ne l'utilises-tu pas pour définir ta plage pour la boucle ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Sub delai(nomOp As String) Dim finpage As Long Dim cell As Range Application.ScreenUpdating = False finpage = Sheets("LASER").Cells(Rows.Count, 2).End(xlUp).Row For Each cell In Sheets("LASER").Range("J" & finpage & ":R" & finpage) If cell.Value = "OP_DECOUPE_INOX" And cell.Offset(1, 0).Value = "OP_DESSIN" Then cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value) ElseIf cell.Value = "OP_DECOUPE_NOIR" And cell.Offset(1, 0).Value = "OP_DESSIN" Then cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value) End If Next cell End Sub
A quoi te sert nomOp ?

23/05/2017, 13h35
david-lt

1 pièce(s) jointe(s)

Bonjour Riaolle,

Effectivement tu as raison la taille de ma plage est inutile puisque je me sers uniquement des colonnes R et J.

Pour le nomOp, il me sert à faire le lien entre ma fonction secondaire ("delai") et la fonction principale qui est dans un autre module. Si je l'enlève j'ai une erreur, j'ai su pourquoi mais je ne m'en souviens plu :calim2:

Oui mes deux dernières conditions sont vérifiées mais il y a une nuance dans le tableau :

Pièce jointe 278381

A moins que le fait d'utiliser le cell.Offset(1, 0) décale la cellule à modifier avec la fonction DateAdd ? Ton code ne prends pas en compte la première ligne en du coup ?
23/05/2017, 13h49
riaolle

Citation:

Envoyé par david-lt

Oui mes deux dernières conditions sont vérifiées mais il y a une nuance dans le tableau

Ouïe, désolée, j'avais pas bien regardé.
Je vois pas trop pourquoi tu aurais une erreur sur la ligne 20 étant donné que c'est exactement le même type de syntaxe que les conditions précédentes et que celles-ci passent ...

J'ai réussi à créer un code sans erreur mais rien ne se passe, le délai correspondant à l'OP_DESSIN ne corresponds pas à l'OP_DECOUPE_NOIR ou l'OP_DECOUPE_INOX. :mur:

Code:

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
 
Public Sub delai(nomOp As String)
 
Dim finpage As Long
Dim cell As Range
 
Application.ScreenUpdating = False
 
finpage = Sheets("LASER").Cells(Rows.Count, 2).End(xlUp).Row
 
For Each cell In Sheets("LASER").Range("J:R")
 
    If cell.Value = "OP_DECOUPE_INOX" Then
        cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
 
    ElseIf cell.Value = "OP_DECOUPE_NOIR" Then
        cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
 
    ElseIf cell.Value = "OP_DECOUPE_INOX" And ActiveCell.Offset(1, 0).Value = "OP_DESSIN" Then
        cell.Offset(1, -7).Value = DateAdd("dw", -2, cell.Offset(1, -7).Value)
 
    ElseIf cell.Value = "OP_DECOUPE_NOIR" And ActiveCell.Offset(1, 0).Value = "OP_DESSIN" Then
        cell.Offset(1, -7).Value = DateAdd("dw", -6, cell.Offset(1, -7).Value)
 
    End If
 
Next cell
 
End Sub

24/05/2017, 08h29
Invité

Bonjour,
Si tu étais plus explicite sur ta demande ce serait réglé depuis longtemps!

Présentes un tableau!

OP_DECOUPE_INOX=-2
OP_DECOUPE_INOX et OP_DESSIN =-4
OP_DECOUPE_NOIR=-6
OP_DECOUPE_NOIR et OP_DESSIN=-12

ëux-tu expliquer un peu mieux (avec des mots) quelles sont tes conditions, stp? Est-ce que ce ne serait pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub delai(nomOp As String)
Dim finpage As Long
Dim cell As Range
Application.ScreenUpdating = False
finpage = Sheets("LASER").Cells(Rows.Count, 2).End(xlUp).Row
 
For Each cell In Sheets("LASER").Range("J:R")
    If cell.Value = "OP_DECOUPE_INOX" Then
        cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
        If ActiveCell.Offset(1, 0).Value = "OP_DESSIN" Then cell.Offset(1, -7).Value = DateAdd("dw", -2, cell.Offset(1, -7).Value)
    ElseIf cell.Value = "OP_DECOUPE_NOIR" Then
        cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
        If ActiveCell.Offset(1, 0).Value = "OP_DESSIN" Then cell.Offset(1, -7).Value = DateAdd("dw", -6, cell.Offset(1, -7).Value)
    End If
Next cell
End Sub

En attendant, tu n'utilises toujours pas finpage, est-ce normal?

24/05/2017, 08h54
david-lt

2 pièce(s) jointe(s)
Je souhaite enlever :
- 2 jours pour une OP_DECOUPE_INOX
- 6 jours pour une OP_DECOUPE_NOIR
- 2 jours pour une OP_DESSIN précédée de l'OP_DECOUPE_INOX
- 6 jours pour une OP_DESSIN précédée de l'OP_DECOUPE_NOIR
Voilà ce que j'ai dans mon tableau

Pièce jointe 278632

Et voilà ce que je cherche à avoir

Pièce jointe 278636

Par contre, je peux avoir une OP_DESSIN suivie par plusieurs OP_DECOUPE_NOIR ou plusieurs OP_DECOUPE_INOX.
Je peux également avoir plusieurs OP_DESSIN à suivre.
24/05/2017, 08h57
david-lt

Citation:

En attendant, tu n'utilises toujours pas finpage, est-ce normal?

Oui, en réalité je dois le mettre en commentaire. C'était rappel pour m'aider à m'en souvenir.

ton code fait déjà cela mais si c'est cumulatif alors c'est mon tableau qui est le bon!

Code:

1
2
3
4
5
6
7
8
9
10
11
For Each cell In Sheets("LASER").Range("J:R")
    Select Case cell.Value
        Case "OP_DECOUPE_INOX"
            cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
        Case "OP_DECOUPE_NOIR"
            cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
       Case "OP_DESSIN"
                If cell.Offset(-1, 0).Value = "OP_DECOUPE_INOX" Then cell.Offset(0, -7).Value = DateAdd("w", -2, cell.Offset(0, -7).Value)
                If cell.Offset(-1, 0).Value = "OP_DECOUPE_NOIR" Then cell.Offset(0, -7).Value = DateAdd("w", -6, cell.Offset(0, -7).Value)
    End Select
Next cell

Citation:

ar contre, je peux avoir une OP_DESSIN suivie par plusieurs OP_DECOUPE_NOIR ou plusieurs OP_DECOUPE_INOX.
Je peux également avoir plusieurs OP_DESSIN à suivre.

donnes un exemple!

24/05/2017, 09h59
david-lt

Effectivement, ton tableau fonctionne !! J'obtiens le résultat attendu.

Merci pour votre aide à tous les deux.