Discussion :

[anarchiste-mouton]

Bonjour,

Je développe une petite appli pour mon atelier, cette dernière est censée remplacer un classeur physique des interventions de maintenance..

Bref, je cherche à écrire un programme qui pourrait résoudre ce problème (il parait qu'une image vaut mille mots) :

exemple 1 :


exemple 2 :


En gros s'il y a une couleur qui vire au boom, elle vire au boom dans tout le tableau.

J'ai l'habitude de travailler avec des conditions (if, elseif, else) et non avec des boucles, mais là je crois que je n'ai plus le choix de m'y mettre..

[Menhir]

Le plus simple est de mettre dans un coin un tableau de correspondance entre couleurs et réaction.

Dans ton tableau principal, tu mets un RECHERCHEV dans la colonne réaction qui va chercher dans le tableau de correspondance la réaction en fonction de la couleur de la ligne.
Les avantages de cette solution c'est que le résultat est dynamique et rapide et que tu n'as pas à créer de code VBA.

[anarchiste-mouton]

Bonjour Menhir et merci pour ta réponse,

Malheureusement je ne peux pas vraiment insérer de formule dans mon cas puisque chaque ligne est généré par un userform. Je joins une capture de mon vrai classeur :



Enfaîte je tiens vraiment à avoir un bouton macro ou "private sub" qui, dès que je l'execute, et pour le cas ci-dessus, remplacerait les "En-Cours" encadrés en rouge par des "Soldé".

[patricktoulon]

re

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
Sub test()
dim dico as object,plage as range,cel as range,tablo,i&
Set dico = CreateObject("scripting.dictionary")
    Set plage = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
 
    For Each cel In plage.Cells
        If Not dico.exists(cel.Value) Then dico.Add (cel.Value), cel.Offset(0, 1)
        If dico(cel.Value) <> "Boom" Then dico(cel.Value) = cel.Offset(0, 1) Else dico(cel.Value) = dico(cel.Value)
    Next
 
    tablo = plage.Resize(plage.Rows.Count, 2).Value
 
    For i = 1 To UBound(tablo)
        tablo(i, 2) = dico(tablo(i, 1))
    Next
 
    Cells(1, 4).Resize(UBound(tablo), UBound(tablo, 2)) = tablo
End Sub

[anarchiste-mouton]

Bonjour Patrick,

C'est de la sorcellerie ça ! Je ne comprends pas vraiment comment ça fonctionne mais ça fonctionne

Comment procéder pour changer la colonne B en colonne H? J'ai essayé ce qui suit mais ça copie la colonne A en G (j'aimerais qu'elle reste à sa place) :

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
Sub test()
Dim dico As Object, plage As Range, cel As Range, tablo, i& 'tablo et i& sont dimensionnés comme quoi?
Set dico = CreateObject("scripting.dictionary")
    Set plage = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
 
    For Each cel In plage.Cells
        If Not dico.exists(cel.Value) Then dico.Add (cel.Value), cel.Offset(0, 1)
        If dico(cel.Value) <> "Boom" Then dico(cel.Value) = cel.Offset(0, 7) Else dico(cel.Value) = dico(cel.Value)
    Next
 
    tablo = plage.Resize(plage.Rows.Count, 2).Value
 
    For i = 1 To UBound(tablo)
        tablo(i, 2) = dico(tablo(i, 1))
    Next
 
    Cells(1, 7).Resize(UBound(tablo), UBound(tablo, 2)) = tablo
End Sub

Un grand merci à vous en tout cas, je suis épaté!

[munity]

bonjour

je pencherai pour modifier la valeur de tes valeurs en rouge 8 versus 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9

   tablo = plage.Resize(plage.Rows.Count, 2).Value
 
    For i = 1 To UBound(tablo)
        tablo(i, 2) = dico(tablo(i, 1))
    Next
 
    Cells(1, 7).Resize(UBound(tablo), UBound(tablo, 2)) = tablo

patrick tu confirmes ou je dit n'importe quoi

[patricktoulon]

Bonjour Patrick,

C'est de la sorcellerie ça ! Je ne comprends pas vraiment comment ça fonctionne mais ça fonctionne

Comment procéder pour changer la colonne B en colonne H? J'ai essayé ce qui suit mais ça copie la colonne A en G (j'aimerais qu'elle reste à sa place) :

non ca n'a rien de sorcier
tout se decide en fait dans les 2 lignes "IF"
For Each cel In plage.Cells 'on tourne sur toute les cellules de la colonne "A"

'si la couleur n'est pas dans le dictionnaire on l'ajoute et on lui met comme item la cellule d'a coté en "B" donc offset(0,1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not dico.exists(cel.Value) Then dico.Add (cel.Value), cel.Offset(0, 1)

' a partir de la on est sur d'avoir la couleur dans le dico


'c'est ici que cool/boom se fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If dico(cel.Value) <> "Boom" Then dico(cel.Value) = cel.Offset(0, 1) Else dico(cel.Value) = dico(cel.Value)

traduction en francais pour que tu comprenne
si l'element(cel.value)est different de "boom" alors l'element(cel.Value) = cel.Offset(0, 1) autrement l'element(cel.Value) = lui meme

autrement dit je change la valeur d'un element uniquement si il est different de "boom" quitte a remetre le meme par cel.offset(0,1)
ce qui fait que dans le dico des qu'une couleur aura "boom" on peut plus la changer

Next' fin de boucle sur les cellule de la colonne"A"

Comment procéder pour changer la colonne B en colonne H?

ca devrait te piquer les yeux si je prend offset(0,1) pour prendre la colonne"B" combien faut il a ton avis a la place du 1 pour chopper la colonne"H"


apres comme te l'ont dis les autres membres tu n'a peut etre pas tout exposé et donc passer a coté de methode plus simples plus maleables en fonction de tes besoins

perso je t'ai repondu et donné une methode parmis tant d'autre en fonction de ta demande (precisé par capture)

@pierre

je ne comprends pas la règle qui fait que l'on prend la ligne 6 "Bleu-Boom" et pas la ligne 10 "Bleu-Cool" qui change par rapport à la 6

reponse dans son post initial

En gros s'il y a une couleur qui vire au boom, elle vire au boom dans tout le tableau.

[Pierre Fauconnier]

Salut.

Sans critiquer la solution de Patrick, je ne comprends pas la règle qui fait que l'on prend la ligne 6 "Bleu-Boom" et pas la ligne 10 "Bleu-Cool" qui change par rapport à la 6. De plus, ici, tu as Cool ou Boom (nulle part tu ne dis qu'il n'y a que deux variantes). Si en 1 tu as "Bleu - Cool", en 6 "Bleu - Boom" et en 10 "Bleu - Psshht", tu fais quoi? Et si ton tableau est retrié, quelle sera la solution à prendre en compte?

Assure-toi que tous tes cas ont bien été envisagés. Pour moi, il y a un problème de conception à la base, et un problème dans l'expression du besoin. Je suis loin d'être persuadé que la solution proposée va fonctionner dans tous les cas de figure.

[unparia]

Bonjour
Je vais à mille pour cent dans le sens de ce que Pierre Fauconnier fait observer là.
Il est pour moi également très clair que le problème est, dans le meilleur des cas, très mal ou incomplètement exposé.
(garder à l'esprit qu'il est pour le moins essentiel de préciser ce qui, quand et comment doit déclencher quoi).

[Pierre Fauconnier]

Hum...

Ben oui, c'est vrai, comme dirait l'autre "quand la mecanique est simple elle est facile a modifier"...

D'abord,définir le besoin. il peut évoluer, il n'y a aucun souci à cela, mais le besoin de base doit être formulé, en termes simples et "non informatiques". Après, on peut construire dessus, en y allant pas à pas, d'abord et avant tout par une bonne conception de classeur. Si tu ne sais pas réaliser manuellement avec Excel les actions que tu souhaites réaliser, tu aurais tôt ou tard un problème, que ce soit en VBA ou en Excel, et les bricolages à la *$*@&# proposés ici n'y changeront rien: ton projet capotera, et les emplâtres amenés à coup de code mal foutu n'y feront rien.

Il y a cependant une chose que tu dois entendre avant d'aller plus loin: Excel n'est pas l'outil adéquat pour réaliser ce que tu souhaites obtenir. Mais si tu le fais en Excel, il faut le faire dans les règles d'Excel. Je gagne ma vie depuis des années grâce au fait que les gens ne veulent pas entendre cela. Pour réaliser ce que tu souhaites, il va falloir peu ou prou réinventer la roue, et faire avec Excel ce que d'autres outils permettent nativement. Autrement dit, nous allons réinventerAccess en VBA, le fil à couper le beurre, la poudre... Libre à toi d'écouter d'autres sirènes, mais je te préviens: elles te mentent, et pour certaines d'entre-elles, sont incompétentes à t'aider à obtenir ce que tu souhaites (chacun son métier...)

@Patrick: C'est moi qui te met les -1... (comme ça, c'est dit ). Je le répète: Bien avant les lignes de code, que tout le monde peut pisser sans soucis quel que soit le langage, il y a la réflexion, l'analyse du besoin, le choix de l'outil. Libre à chacun d'écouter les "yaka changer une ligne de code et tant pis si je prends une prune"... Ca, ça n'amène JAMAIS une solution pérenne, fiable, solide, évolutive...

[patricktoulon]

re

[@Patrick: C'est moi qui te met les -1... (comme ça, c'est dit ). Je le répète: Bien avant les lignes de code, que tout le monde peut pisser sans soucis quel que soit le langage, il y a la réflexion, l'analyse du besoin, le choix de l'outil. Libre à chacun d'écouter les "yaka changer une ligne de code et tant pis si je prends une prune"... Ca, ça n'amène JAMAIS une solution pérenne, fiable, solide, évolutive...

tu racconte n'importe quoi et brode n'importe quelle raison pour te justifier et m'en mettre une ,c'est petit surtout de la part d'un enseignant

sa demande etait claire ainsi que la methode que j'ai proposé

tu le prendra de qui ca vient comme moi d'ailleurs

[patricktoulon]

re
dans le cadre ou la plage concernée ne commencerait pas en ligne 1 et/ou colonne 1 on peut rendre generique le transfert

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
Sub test()
Dim dico As Object, plage As Range, cel As Range, tablo, i&
Set dico = CreateObject("scripting.dictionary")
    Set plage = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    tablo = plage.Value
 
    For Each cel In plage.Cells
        If Not dico.exists(cel.Value) Then dico.Add (cel.Value), cel.Offset(0, 7)
        If dico(cel.Value) <> "Boom" Then dico(cel.Value) = cel.Offset(0, 7) Else dico(cel.Value) = dico(cel.Value)
    Next
 
      For i = 1 To UBound(tablo)
        tablo(i, 1) = dico(tablo(i, 1))
    Next
     plage.Offset(0, 7) = tablo
End Sub

[Arkham46]

Bonjour,

Des "boom", des "cool", des couleurs ?!
On pourrait également échanger sur des animaux et des légumes, mais quel est l'intérêt ?
Nous comprenons ce qu'est un statut ou un ticket.

Sinon comme déjà dit, la conception est certainement mauvaise.
Et le besoin n'est toujours pas précis : il y a des exemples, mais un besoin ce sont des règles de gestion, pas uniquement des exemples.
D'ailleurs que devient le code donné ? Je ne comprends pas qu'on puisse échanger de cette manière à sens unique et juste avec un exemple de résultat souhaité.

Sinon oui le code donné fonctionne pour l'exemple donné. Mais les données vont évoluer, et boom ! Ce n'est pas cool.

Je ne voudrais pas briser votre enthousiasme, mais conservez le classeur papier en parallèle pendant quelque temps au cas où...

[Pierre Fauconnier]

[...]et boom ! Ce n'est pas cool.

Je ne voudrais pas briser votre enthousiasme, mais conservez le classeur papier en parallèle pendant quelque temps au cas où...

Conseil plus que judicieux

[clementmarcotte]

Voici ce que je n'aime pas, en vrac.

Plusieurs couleurs pour COOL, sans aucune explication au sujet de la signification des couleurs et des besoins sous-jacents.

Devant la copie d'écran du classeur, on a l'impression que la feuille sera remplie à la main. Heureusement que Excel dans Office 365 et Excel 2019 supportent l'écriture manuscrite avec une tablette graphique, ou un écran tactile ou sensible à un stylet, mais ce n'est pas aussi extraordinaire que Microsoft semble le penser.

Tant qu'à mettre des numéros de tickets, le minimum acceptable est de regrouper les numéros au lieu de les foutre pêle-mêle

Même si personnellement j'ai un gros doute sur la viabilité d'une solution basée sur Excel, le minimum logique serait d'avoir des feuilles séparées pour chaque numéro.

Une question spécifique doit-elle se transformer en dialogue de sourds entre la réponse stricte à la question posée ou une réponse ajustée au fait que le plan initial n'est pas au goût de celui qui répond. Chose qui me semble de plus en plus en fréquente quand Patrick rencontre un "objecteur de conscience". C'est comme l'épicier qui veut vendre des choux de Bruxelles à un client qui veut des fraises quand il n'y en a pas en stock.