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

**david-lt** · 23/05/2017, 09h14

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 :

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

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

**BENNASR** · 23/05/2017, 09h24

Bonjour
essayer ça :

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

**david-lt** · 23/05/2017, 09h39

Bonjour BENNASR,

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

Code :

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

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

**riaolle** · 23/05/2017, 11h11

Bonjour,

Es-tu sûr de tes conditions ? Voici un tableau qui résume tes conditions :
Nom : conditions et.png
Affichages : 130
Taille : 9,4 Ko

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 :

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

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 ?

**david-lt** · 23/05/2017, 13h35

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

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

Nom : img.JPG
Affichages : 138
Taille : 36,4 Ko

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 ?

**riaolle** · 23/05/2017, 13h49

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

**david-lt** · 24/05/2017, 07h55

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.

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

Invité · 24/05/2017, 08h29

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

**riaolle** · 24/05/2017, 08h47

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

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

**david-lt** · 24/05/2017, 08h54

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

Nom : img 2.JPG
Affichages : 123
Taille : 36,5 Ko

Et voilà ce que je cherche à avoir

Nom : img 3.JPG
Affichages : 133
Taille : 36,6 Ko

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.

**david-lt** · 24/05/2017, 08h57

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.

Invité · 24/05/2017, 09h03

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

Code :

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

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

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!

**david-lt** · 24/05/2017, 09h59

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

Merci pour votre aide à tous les deux.

Incrémentation d'une date en fonction de deux variables [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager