XL 2016 MFC sur plusieurs critères

[Lorenzini]

Bonjour,

N'ayant plus de solutions (vu mon niveau limité en vba car j'imagine qu'il va falloir passer par là...), je me tourne vers vous car je patauge.
Dans le petit tableau que j'ai joins à ce message, je souhaiterais que le statut d'une ligne prévale sur le(s) statut(s) d'une/des autre(s) ligne(s) ; je donne qq exemples pour illustrer :

En changeant le statut (j'ai fais une MFC) d' "en cours" à "prêt" de la ligne 24 p.ex., je cherche à ce que

- toutes les lignes précédentes du tableau (jusqu'à celles qui avaient le statut "prêt" ; c'est la limite, s'il y'en a) ayant le même n° de chariot (colonne G), prennent le même statut.

Concrètement, si clique dans la cellule K24 pour passer d'"en cours" à "prêt", je cherche à ce que les lignes encadrées en rouge (20 et 12 car n° de chariot identique à la ligne 24) se changent à leur tour en "prêt" (et prennent la même mise en forme, couleur).

Autre exemple (qui ajoute encore en difficultés, comme si ce n'était pas assez compliqué comme çà !) :

En changeant le statut "en cours" de la ligne 23, la ligne 18 (qui a le même n° de chariot) se changerait également.

Les difficultés supplémentaires sont que :

1) ici, pour cet exemple, la ligne 10 (qui a aussi un n° de chariot commun) NE DOIT PAS changer car elle a déjà le statut "prêt" !

2) plusieurs de mes collègues seront censés travailler avec ce tableau ; quid si un utilisateur va trop vite et réalise trop tard qu'il a changé le statut d'"en cours" à "prêt" ?
Comment refaire le chemin inverse SANS CHANGER les lignes précédentes qui avaient le même n° de chariot MAIS QUI AVAIT DEJA le statut "prêt" ? (comme la ligne 10)
Il ne faudrait pas qu'en repassant de "prêt" à "en cours", la ligne 10 se change elle aussi de "prêt" à "en cours" !...

Pfff, je ne sais pas si je suis assez clair mais qui que vous soyez, vous aurez déjà été assez courageux d'avoir lu tout ce que j'ai écrit jusqu'ici !

Je vous avoue très honnêtement que çà fait quelques jours que je creuse... je sors tout juste de m'être cassé la tête d'avoir résolu d'autres choses comme le fait qu'Excel ne me recalcule pas l'heure automatiquement... mais là, je ne sais plus !

Si vous pouviez m'aider, j'apprécierai grandement !

 

[Lorenzini]

Me too...



Ah ? C'est étonnant, c'est pas le genre à recadrer les gens...



Aucune raison de se sentir ridicule pour ça. Chacun fait selon ses connaissances.

 

[Lorenzini]

Me too...



Ah ? C'est étonnant, c'est pas le genre à recadrer les gens...



Aucune raison de se sentir ridicule pour ça. Chacun fait selon ses connaissances.

C'est vrai que GOTO 10 ça me rappelle mes années de lycée...

 

[Lorenzini]

s'il faut que je change d'autres choses, que j'enlève des obstacles éventuels, n'hésite pas, je ferai le reste (ou du moins, j'essaierai)

 

[TooFatBoy]

Pourquoi la cellule se remplit par une date lorsqu'on choisit 'non' !?!

Probablement parce qu'il y a ceci dans la macro Worksheet_SelectionChange :

        If MsgBox("Nouvel encodage ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
...
        Else
            ActiveCell.Offset(0, 8).Value = ""
        End If

alors qu'il faudrait ceci :

        If MsgBox("Nouvel encodage ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
...
        Else
            Exit Sub
        End If

 

[Lorenzini]

Probablement parce qu'il y a ceci dans la macro Worksheet_SelectionChange :

        If MsgBox("Nouvel encodage ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
...
        Else
            ActiveCell.Offset(0, 8).Value = ""
        End If

alors qu'il faudrait ceci :

        If MsgBox("Nouvel encodage ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
...
        Else
            Exit Sub
        End If

je suis d'accord.
Comme on sait déjà qu'il y'en a de certains groupes qui iront trop vite, se tromperont, ...) ; tu comprends , l'idée était de dire : si on clique sur 'non', la date (et l'heure) qui se sont affichées en colonne J doivent s'enlever... c'est ce qui explique le :

Else
ActiveCell.Offset(0, 8).Value = ""

 

[TooFatBoy]

Comme on sait déjà qu'il y'en a de certains groupes qui iront trop vite, se tromperont, ...) ; tu comprends , l'idée était de dire : si on clique sur 'non', la date (et l'heure) qui se sont affichées en colonne J doivent s'enlever..

Je comprends parfaitement, d'où ma réponse qui consiste à ne pas inscrire la date (ça évite de devoir l'effacer) et sortir tout de suite de la macro.

 

[Lorenzini]

Je comprends parfaitement, d'où ma réponse qui consiste à ne pas inscrire la date (ça évite de devoir l'effacer) et sortir tout de suite de la macro.

je ne suis pas sûr de comprendre... euhm... tu veux dire que la date ne s'ajoute que si on passe en colonne C ?

 

[Lorenzini]

je ne suis pas sûr de comprendre... euhm... tu veux dire que la date ne s'ajoute que si on passe en colonne C ?

et que, si on ne passe pas en colonne C, car clic sur bouton 'non', pas de date qui s'ajoute ? c'est çà ?

 

[TooFatBoy]

Ce que je veux dire, c'est que la date normalement (si je ne me suis pas trompé) n'est ajouté qu'après la création de la nouvelle ligne, donc après avoir cliqué sur "Oui".

 

[TooFatBoy]

J'ai un peu modifié ton fichier de #48, en ce qui concerne le traitement des colonnes B à M de la feuille "Feuil1".

J'ai aussi un peu modifié le code des deux UserForm.
J'ai en particulier revu le fonctionnement du UserFrom2 et de la validation du mot de passe.

---

Private Sub UserForm_Activate()
'
Dim W#, Tim

    If clignote Then
        Do While clignote = True
            Image1.Visible = Not Image1.Visible
            W = 0.3: Tim = Timer
            Do While Timer < Tim + W
                DoEvents
            Loop
            If clignote = False Then Exit Do
        Loop
    End If

End Sub

Pardon, mais c'est un pneu du portninwak ton code là.
Certes il fonctionne, mais tu sais quand tu as un maillot de bain qui tient déjà très bien avec son élastique autour de la taille, pas besoin de lui ajouter une ceinture et des bretelles !

 

[Lorenzini]

J'ai un peu modifié ton fichier de #48, en ce qui concerne le traitement des colonnes B à M de la feuille "Feuil1".

J'ai aussi un peu modifié le code des deux UserForm.
J'ai en particulier revu le fonctionnement du UserFrom2 et de la validation du mot de passe.

---

Private Sub UserForm_Activate()
'
Dim W#, Tim

    If clignote Then
        Do While clignote = True
            Image1.Visible = Not Image1.Visible
            W = 0.3: Tim = Timer
            Do While Timer < Tim + W
                DoEvents
            Loop
            If clignote = False Then Exit Do
        Loop
    End If

End Sub

Pardon, mais c'est un pneu du portninwak ton code là.
Certes il fonctionne, mais tu sais quand tu as un maillot de bain qui tient déjà très bien avec son élastique autour de la taille, pas besoin de lui ajouter une ceinture et des bretelles !

Je comprends.
Je vais voir cette nouvelle version.