Bonjour;
s'il vous plait j'ai besoin d'une formule pour gérer mes sorties de stock!
mla formule serai dans la cellule "etat dossier"
si a = date ;"retard"
si b = date ;"rendu"
sinon ne rien faire.
A B C
Date Sortie Date Retour Etat dossier
11/01/1900 11/01/1900 Rendu
Date Sortie Date Retour Etat dossier
11/01/1900 retard
j'ai travailler avec worcksheet target mais je crois que le proble est dans l'evenement?
quand je double click sur la cellule la fonction change?!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row > 1 Then
If Target > 1 Then
Target.Offset(, 2) = "Retard"
Else
Target.Offset(, 2) = ""
End If
End If
If Target.Column = 5 And Target.Row > 1 Then
If Target > 1 Then
Target.Offset(, 1) = "Rendu"
Else
Target.Offset(, 1) = ""
End If
End If
End Sub
s'il vous plait j'ai besoin d'une formule pour gérer mes sorties de stock!
mla formule serai dans la cellule "etat dossier"
si a = date ;"retard"
si b = date ;"rendu"
sinon ne rien faire.
A B C
Date Sortie Date Retour Etat dossier
11/01/1900 11/01/1900 Rendu
Date Sortie Date Retour Etat dossier
11/01/1900 retard
j'ai travailler avec worcksheet target mais je crois que le proble est dans l'evenement?
quand je double click sur la cellule la fonction change?!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row > 1 Then
If Target > 1 Then
Target.Offset(, 2) = "Retard"
Else
Target.Offset(, 2) = ""
End If
End If
If Target.Column = 5 And Target.Row > 1 Then
If Target > 1 Then
Target.Offset(, 1) = "Rendu"
Else
Target.Offset(, 1) = ""
End If
End If
End Sub