[RESOLU]requête: dans Excel 2013,modifier 896 formules via un script, question pour les balèzes du script ou de la macro …

[radioman]

j'ai des lacunes en Excel .

j'ai créé en 1999 un tableau pour gérer nos horaires de travail pour moi et mes collègues.

celui-ci contient 896 cellules correspondant aux heures d'embauche et débauche, pour le matin et l'après-midi, pour 7 personnes, sur sept jours, sur 4 semaines ...

nos cycles de travail étaient jusqu'alors sur 7 "semaines types" différentes numérotées de 1 à 7

le remplissage du tableau se fait par ce type de formule:

=CHOISIR(A21;"05:30";"";"08:45";"";"";"";"10:45";"";"05:30")
=CHOISIR(A21;"13:00";"";"11:15";"";"";"";"13:15";"";"13:15")
=CHOISIR(A21;"";"";"13:15";"";"";"";"14:45";"";"")
=CHOISIR(A21;"";"R";"19:15";"R";"R";"M";"19:15";"";"")
etc...

exemple: si on entre 3 (numéro de la 3ème "semaine type") en A21 ça affiche une journée de travail (A21 correspond à UN jour pour UNE personne sur UNE semaine)

8:45/11:15

13:15/19:15

y'en a 896 comme ça: Fonction Choisir, un numéro de case, suivi de 9 items séparés par un ";"
(nota: y'a 9 items parce que des fois on a des CDD ...)

Mon problème: suite aux restrictions budgétaires (on n'est plus 7 mais 6 a bosser) la semaine 4 disparait dans le cycle de 7 semaines !!!

d'ou ma question: comment supprimer facilement dans les 896 cases/formules le quatrième item et le ";" qui le suit ???


en fait il faudrait un script qui fait:

rechercher "=CHOISIR"
->dans la liste des 896 réponses trouvées (formules) prendre la première
-->dans la formule supprimer ce qui se trouve entre le quatrième ";" et le cinquième ";" ainsi que le cinquième ";"
--->enregistrer la modif
passer à la réponse suivante
->dans la formule supprimer ce qui se trouve entre le quatrième ";" et le cinquième ";" ainsi que le cinquième ";"
-->enregistrer la modif
passer à la réponse suivante
->dans la formule supprimer ce qui se trouve entre le quatrième ";" et le cinquième ";" ainsi que le cinquième ";"
-->enregistrer la modif

etc jusqu'à la 896 ème modif …

Merciiiiiiii d'avance ...

Edit: ou toute autre manip' automatisée qui arrive au même résultat …

Ce message a été modifié par radioman - 11 Sep 2017, 17:48.

[baron]

D'ici à ce que quelqu'un de plus calé que moi ne passe par là, il serait déjà bon que tu indiques la version du logiciel utilisée.

J'imagine qu'une requête avec une « expression régulière » permettrait de faire ça — mais cela existe-t-il dans Excel ?…

[radioman]

il serait déjà bon que tu indiques la version du logiciel utilisée.

Ah oui, ça a sauté dans la copie …

Excel 2013 (c'est une version Windows au boulot) en espérant qu'il n'y ait pas trop de différence avec une version Mac

Edit: Titre édité …
Edit 2: au début des années 2000 j'avais fait des macros pour modifier facilement ce tableau (passage de 6 à 7 personnes), mais 15 ans sans pratiquer, je retrouve plus comment ça se manipule ces macros …

Ce message a été modifié par radioman - 8 Sep 2017, 18:10.

[teddy7545]

Bonjour,

Essai cette macro en corrigeant juste le champs ("A1:F20") qui contient tes cellules à modifier.
Suivant le modèle de formule que tu as donné et sous réserve qu'elles sooient toute avec le même format (9 champs délimités par des points-virgules) ça devrait fonctionner.

Code

Sub FixFormula()
    Dim c As Range
    Dim regex As Object, str As String
    Set regex = CreateObject("VBScript.RegExp")

    With regex
    .Pattern = "(=CHOOSE\(.*,.*,.*,.*,).*,(.*,.*,.*,.*,.*\))"
    .Global = False
    .MultiLine = False
    .IgnoreCase = True
    End With

    For Each c In Range("A1:F20").SpecialCells(xlCellTypeFormulas)
        If c.HasFormula Then
        str = c.Formula
        
            Set matches = regex.Execute(str)
                For Each Match In matches
                    With regex.Execute(str)
                        c.Formula = .Item(0).SubMatches(0) & .Item(0).SubMatches(1)
                    End With
                Next Match
        End If
    Next c
End Sub

Edit 1: C'est testé sur une version Excel 2007 sur PC (ça devrait fonctionner de la même façon sur une version 2013)
Edit 2: Pour Baron ---> Oui les expressions régulières sont aussi utilisables sous VBA

Ce message a été modifié par teddy7545 - 8 Sep 2017, 18:01.

[radioman]

YEHAAAAA !!!!!

Suivant le modèle de formule que tu as donné et sous réserve qu'elles sooient toute avec le même format (9 champs délimités par des points-virgules) ça devrait fonctionner.

ça doit marcher, j'ai juste fait un copier/coller depuis Excel vers le forum …

je vais tester demain (aujourd'hui je suis de repos) mais ça me semble pas mal du tout ton script …



Edit: juste un truc que j'ai pas précisé, mon tableau est sur quatre feuilles qui se suivent, une par semaine, mais je devrais y arriver en lançant quatre fois le script …

Ce message a été modifié par radioman - 8 Sep 2017, 17:59.

[teddy7545]

juste un truc que j'ai pas précisé, mon tableau est sur quatre feuilles qui se suivent, une par semaine, mais je devrais y arriver en lançant quatre fois le script …

Oui c'est une condition qui n'était pas précisée ... mais tu peux lancer le script depuis chaque onglet pour faire le travail nécessaire (avec adaptation de la plage des cellules à traiter si nécessaire).

Pour info, seule les cellules avec une formule qui répond au bon format seront modifiées.
Le filtre est fait de telle sorte que si tu relance la macro après avoir déjà traité l'onglet aucune nouvelle modification ne se produira (le format de l'expression régulère traite seulement les formules qui commencent par =CHOOSE et contenant 9 champs et exclut donc les formules déjà traitées qui n'ont plus que 8 champs).

Ce message a été modifié par teddy7545 - 8 Sep 2017, 18:09.

[radioman]

Le filtre est fait de telle sorte que si tu relance la macro après avoir déjà traité l'onglet aucune nouvelle modification ne se produira (le format de l'expression régulère traite seulement les formules qui commencent par =CHOOSE et contenant 9 champs et exclut donc les formules déjà traitées qui n'ont plus que 8 champs).

ROYAL !!!

[radioman]

ça a marché nickel !!!

j'ai plus qu'a résoudre d'autres problèmes de correction: j'ai écris des formules que je n'arrive même plus à comprendre, j'en suis à les "déconstruire" pour comprendre ce qu'elles font !!!

[teddy7545]

ça a marché nickel !!!

Excellente nouvelle, j'avais essayé de faire tout pour

j'ai plus qu'a résoudre d'autres problèmes de correction

Le script aurait pu faire d'autres corrections au besoin ... il est pas trop tard pour l'adapter.

j'ai écris des formules que je n'arrive même plus à comprendre

Si je peux t'aider n'hésite pas

Bon courage.

[radioman]

ça y est j'en suis venu à bout de cette fonction modulo (MOD) !

patience et obstination …

encore un grand merci teddy7545