planning de prod pour l ensemble et porcinet82

[rudy]

bonsoir a tous, bonsoir porcinet82 ci-joint le fichier que j ai modifier
merci pour t est conseille a venir
a toute a l heure



http://cjoint.com/?iduwdCe6ey

 

[porcinet82]

Re : planning de prod pour l ensemble et porcinet82

Bonsoir Rudy,

Il faut eviter de mettre le nom d'un membre dans le titre du fil, de plus, tu aurais pu continuer sur le premier fil.

M'enfin, voici une correction de la macro, mais je ne vois pas trop a quoi ca sert de tester 2 lignes sur la feuille 2 etant donné qu'une seule se remplit, ou alors j'ai pas tout compris 😕

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j&, i&
If Not Intersect(Target, Range("D8:BB50")) Is Nothing Then
    With Sheets("Feuil2")
        For j = 7 To .Range("IV5").End(xlToLeft).Column
            For i = 5 To 6
                If .Cells(i, j).Value = "1" And .Cells(i, j + 1).Value <> "1" And .Cells(i, j + 2).Value = "1" Then
                    MsgBox "Il y a une rupture dans la chaine : " & .Cells(i, 2).Value
                    Exit Sub
                End If
            Next i
        Next j
    End With
End If
End Sub

@+

 

[rudy]

Re : planning de prod pour l ensemble et porcinet82

re-porcinet82 dison sur la feuil2 il va y avoir 18 fois le tste a faire ( de "1" à "18" ) se qui correspond a 18 manipulation possible
ex: en "1" cordon bleu
en "2" coquillette
en "3" sauce tomate
etc ...

excuse moi d avoir citer ton nom en direct je vais de suite voire se que ton code me donne
A+