cellule valeur selon conditions Résolu/Fermé

Question

bonjour
j'aurais besoin de votre aide pour mon probleme
si vous cliquez sur les colonnes de V a AC vous avez la date instantanée
je voudrais avoir en colonne U l'etat ou en est  la voiture dans l'avancement du travail (comme j'ai marque a la main les cellules U2:U5 pour exemple)
et dans les colonnes AD:AG le temps passé comme marqués
en ce moment.
Mais si possible tout par macro car la feuille est amenée a etre pas mal remaniée car on rajoute tous les mois de nouvelles lignes
https://www.cjoint.com/c/CAndL41EmWG
merci de votre aide

Mike-31 · Answer

Salut,

Pour la colonne U y a t il toujours cette chronologie  nettoyage, Mecanique, Carrosserie et finition
la colonne U est bien renseignée par les colonnes V, X, Z et Ab, c'est bien cela dès qu'une date est saisie dans ces colonnes le statut de la colonne U change

pour le temps passée dans chaque état il faut en plus de la date saisir l'heure pour cela tu peux utiliser les touches de raccourci Ctrl et ; (la touche Ctrl et en même temps point virgule) tu fais un espace et Ctrl : (la touche Ctrl et en même temps double point)

gbinforme · Answer

Bonjour, 

Tu rajoutes cette macro qui devrait faire la fonction :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("V2:AC1048576")) Is Nothing Then
    Cells(Target.Row, "U").Value = Mid(Cells(1, Target.Column).Value, InStr(1, Cells(1, Target.Column).Value, " ") + 1)
End If
End Sub
 

Bonne année à tous.

Mike-31 · Answer

Re,

pour ne pas te perturber et continuer à travailler sur le code Gbinforme que je salue, tu peux simplement modifier le code comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("V2:AB1048576")) Is Nothing Then
    Cells(Target.Row, "U").Value = Mid(Cells(1, Target.Column).Value, InStr(1, Cells(1, Target.Column).Value, " ") + 1)
End If
If Not Intersect(Target, Range("AC2:AC1048576")) Is Nothing Then
Cells(Target.Row, "U").Value = "Prête à livrer"
End If
End Sub

pour le calcul du temps passé dans chaque atelier, tu commences par modifier le format de tes cellules de la colonne V à AC au format date avec affiche des heures 
en AD2 cette formule que tu incrementes vers le bas et tu adaptes aux colonnes AE à AG

=SI(ET(V2="";W2="");"";W2-V2)

surplus · Answer

bonjour
merci de votre aide c'est impec dans temps total j'additionne c'est tout?
=SOMME(AE2:AH2) format heures 
le format est bon dans l'exemple il affiche les dates mais les h sont bien la ou je me trompe?
maintenat je formate ma ligne 
si "etat actuel= "pret a livrer" je mets la ligne en rouge ou c'est possible avec macro.
merci
a bientôt

Cellule valeur selon conditions

4 réponses

Discussions similaires