Discussion :

[d.deneys]

Bonsoir,
Dans le fichier joint, il y a un code qui permet de copier les données d'un planning prévi vers un planning réel sous condition que il y ai un "V" dans la case confirmer.

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
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim varL As Integer, LigDate As Integer
'********************************************************************************
'ci-dessous agit sur le "V"
If Sh.Name Like "Prévi*" Then
  varcol = Target.Column 'on affecte le N° de col de la cellule qui change
  varL = Target.Row
  If varcol = 11 Or varcol = 21 Or varcol = 31 Or varcol = 41 Or varcol = 51 Then 'on trie les cellules concernées
    varL = Target.Row 'on donne le N° de ligne à la variable
    Application.EnableEvents = False
    Target.Value = UCase(Target.Value) 'on remet le "v" en majuscule
    Application.EnableEvents = True
    With ActiveSheet
      Varfeuille = "Reel " & Right(.Name, Len(.Name) - 6) 'ça aussi
    End With
    With Sheets(Varfeuille)
      For x = 11 To 61 'on fait une boucle
        .Range(.Cells(varL, x - 8), .Cells(varL, x)).ClearContents 'donc on efface à la premire boucle C5:K5 _
        M5:U5 à la deuxième, etc. jusqu'au bout de la ligne
      Next x
      For x = 11 To 61 Step 10 'une boucle pour donner les nouvelles valeurs
        If Sh.Cells(varL, varcol) = "V" Then 'donc si on donne V à K,U etc.
          If Sh.Cells(varL, x + 3) = Sh.Cells(varL, varcol - 7) Then
            Application.EnableEvents = False
            Sh.Cells(varL, x + 10) = Sh.Cells(varL, varcol)
            Application.EnableEvents = True
          End If
          .Range(.Cells(varL, x - 8), .Cells(varL, x)).Formula = Sh.Range(Sh.Cells(varL, x - 8), Sh.Cells(varL, x)).Formula
        End If
      Next x
    End With

Cependant, les données a certains endroits ce copient même s'il n'y a pas le "V" (pour exemple dans le septembre réel au 30/09 -> Baas CM00058 Baas C01156-R2.

Le fichier complet fait plus de 24 feuilles donc je ne met que 1 mois en exemple.
Je n'arrive pas a trouver ce qui coince dans le code...

Merci d'avance

[Marc-L]

Bonjour,

Si une ligne a été copiée grâce au "V" puis ce "V" a été supprimé,
la suppression de cette ligne du planning réel a-t-elle été prévue dans le code ?

Sinon à toi de repérer une ligne sans "V" copiée quand même puis de suivre le code en mode pas à pas (touche F8)
afin de comprendre ce qu'il se passe …

[d.deneys]

Oui si le V est enlevé du prévi, ça s'enlève du réel dans le code.
Cela fait près d'une semaine que je cherche mais je ne trouve pas l'erreur :'(