Formule à convertir en VBA

Hello à tous,

pouvez-vous m'aider afin de convertir une formule en vba?

Il faut l'appliquer de la formule de H35 à BT127

=IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0;COUNTIF(H$35:H36;"cmo")>0;COUNTIF(H$35:H36;32)>0;COUNTIF(H$35:H36;2)>0);"F";IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0;COUNTIF(H$35:H36;"cmo")>0;COUNTIF(H$35:H36;32)>0);2;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0;COUNTIF(H$35:H36;"cmo")>0);32;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0);"cmo";IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0);36;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0);37;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0);35;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0);38;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0);39;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0);30;IF(COUNTIF(H$35:H36;1)>0;33;1)))))))))))

La formule est sur l'onglet Dimanche et je voudrai l'avoir sur tout les onglets.

En plus comme elle est assez courte, ça devrait pouvoir être assez facile non ?

Cordialement,

Setila

Bonjour,

Magnifique Formule ... !!!

Il te suffit de lancer ton enregistreur de macros ... de saisir ta formule ...et elle sera convertie ... !!!

Bonjour,

=IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0;COUNTIF(H$35:H36;"cmo")>0;COUNTIF(H$35:H36;32)>0;COUNTIF(H$35:H36;2)>0);"F";IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0;COUNTIF(H$35:H36;"cmo")>0;COUNTIF(H$35:H36;32)>0);2;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0;COUNTIF(H$35:H36;"cmo")>0);32;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0;COUNTIF(H$35:H36;36)>0);"cmo";IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0;COUNTIF(H$35:H36;37)>0);36;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0;COUNTIF(H$35:H36;35)>0);37;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0;COUNTIF(H$35:H36;38)>0);35;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0;COUNTIF(H$35:H36;39)>0);38;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0;COUNTIF(H$35:H36;30)>0);39;IF(AND(COUNTIF(H$35:H36;1)>0;COUNTIF(H$35:H36;33)>0);30;IF(COUNTIF(H$35:H36;1)>0;33;1)))))))))))

tu es en 2013FR et tu nous sors une formule anglaise !!

je pense surtout qu'il faudrait réfléchir à simplifier cette formule hideuse.

Il te suffit de lancer ton enregistreur de macros ... de saisir ta formule ...et elle sera convertie ... !!!

Hello James,

Même avec l'enregistreur de macro elle ressort en rouge ...

Il faut simplifier !

Il te suffit de lancer ton enregistreur de macros ... de saisir ta formule ...et elle sera convertie ... !!!

Hello James,

Même avec l'enregistreur de macro elle ressort en rouge ...

Il faut simplifier !

Garbage In ... Garbage Out ...

Je suis en formule anglaise car le pack office de mon travail est en anglais

Hello James007 et Steelson, en effet je viens de tenter l'enregistreur de Macro et cela ne fonctionne pas.. J'ai beau réfléchir, je ne vois pas trop comment la simplifier cette formule !

Merci d'avance et merci encore pour votre aide !

Setila

Bonjour à tous,

Setila:  je ne vois pas trop comment la simplifier cette formule !

tu pourrais faire une table de correspondance

Hello i20100,

C'est bien la convertir en vba sur la plages H35 à BT127 sur tout les onglets!

Merci d'avance,

Setila

Pour la simplifier, explique nous un peu le rôle de cette formule ...

Ce fichier c'est la breaksheet de mon boulot. C'est des positions de caissiers (les numéros sont des caisses définies et existantes, je ne peux pas changer le nom) 15 min par 15min.

On a un ordre de priorité d'ouverture des caisses qui doit être respecté (l'ordre des caisses par priorité est : 1 / 33 / 30 / 39 / 38 / 35 /37 /36 / cmo / 32 / 2 / F)

Et l'idée majeure c'est que les positions se calculent de manière automatique et ne se répètent pas (d'ou mon F qui correspond à une position que je peux attribuer de manière multiple). C'est aussi, dès que j'ai un imprévu, un absent, etc.. l'attribution se génère de nouveau automatiquement.

Est-ce que cela est plus clair ?

Meci encore !

re,

ça serait plus facile à convertir en vba avec une table de correspondance

par exemple:

table de correspondance

J'avoue que je ne connais absolument pas le tableau des correspondances mais pensez-vous que c'est réalisable malgré mes priorités d'ouverture, etc .. ?

Je voudrais surtout être sûr que même si au cours de la journée, je change des choses, tout se redécale de manière correcte

re,

voici un exemple,

C'est 33/30 ou 33/39 ? car il y a un écart entre le fichier et ta demande

1 / 33 / 30 / 39 / 38 / 35 /37 /36 / cmo / 32 / 2 / F

Pour simplifier ta formule, je te propose de créer un onglet et une suite de caisses nommée ordre comme suit

capture d ecran 704

Ensuite, il suffit de compter le nombre de caisses déjà ouvertes et d'en tirer en ajoutant 1 celle à ouvrir.

En H37 on a donc

=SI(OU($B37=0;H$27<$C37;H$27>=$D37);"";INDEX(ordre;NB.SI(H$36:H36;"<>")+1))

sauf bien sûr si je n'ai rien compris au sujet !

et en VBA

    ActiveCell.FormulaR1C1 = _
        "=IF(OR(RC2=0,R27C<RC3,R27C>=RC4),"""",INDEX(ordre,COUNTIF(R36C:R[-1]C,""<>"")+1))"

Je reste quand même avec un doute : si une caisse se libère ne milieu de journée, que fait-on ? faut-il translater tout le monde ? comment ceci était-il pris en compte dans ta formule magique ?

Bonjour à toutes et tous !

Ta formule en VBA :

Sub Test()

    Dim Formule As String

    Formule = "=IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0,COUNTIF(H$35:H36,""cmo"")>0,COUNTIF(H$35:H36,32)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,2)>0),""F"",IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,38)>0,COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0,COUNTIF(H$35:H36,""cmo"")>0,"
    Formule = Formule & "COUNTIF(H$35:H36,32)>0),2,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,38)>0,COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0,COUNTIF(H$35:H36,""cmo"")>0),32,"
    Formule = Formule & "IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,v(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,COUNTIF(H$35:H36,35)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0),""cmo"",IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0),36,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,35)>0),37,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0),35,IF(AND(COUNTIF(H$35:H36,1)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0),38,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0),39,IF(AND(COUNTIF(H$35:H36,1)>0,"
    Formule = Formule & "COUNTIF(H$35:H36,33)>0),30,IF(COUNTIF(H$35:H36,1)>0,33,1)))))))))))"

    Range("H35:BT127").Formula = Formule

End Sub

Hello Steelson,

L'ordre des priorité est bon l'idée est bonne.

Si tu regardes dans le fichier (onglet dimanche) dans la ligne 36 la formule est fixe et la ligne 37 la formule est mobile avec des $.

Dés que je change une caisse la formule magique regarde sur la plage et réatribut la caisse selon les priorités et même quand je retire une caisse en plein milieu c'est le même principe! Quand toute mes caisses sont mises alors "F"

Hello Theze,

Le code vba ne fonctionne pas mais peux être c'est à cause de la 1er formule ligne 36 sans les $ :

=IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0;COUNTIF(H35;38)>0;COUNTIF(H35;35)>0;COUNTIF(H35;37)>0;COUNTIF(H35;36)>0;COUNTIF(H35;"cmo")>0;COUNTIF(H35;32)>0;COUNTIF(H35;2)>0);"F";IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0;COUNTIF(H35;38)>0;COUNTIF(H35;35)>0;COUNTIF(H35;37)>0;COUNTIF(H35;36)>0;COUNTIF(H35;"cmo")>0;COUNTIF(H35;32)>0);2;IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0;COUNTIF(H35;38)>0;COUNTIF(H35;35)>0;COUNTIF(H35;37)>0;COUNTIF(H35;36)>0;COUNTIF(H35;"cmo")>0);32;IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0;COUNTIF(H35;38)>0;COUNTIF(H35;35)>0;COUNTIF(H35;37)>0;COUNTIF(H35;36)>0);"cmo";IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0;COUNTIF(H35;38)>0;COUNTIF(H35;35)>0;COUNTIF(H35;37)>0);36;IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0;COUNTIF(H35;38)>0;COUNTIF(H35;35)>0);37;IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0;COUNTIF(H35;38)>0);35;IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0;COUNTIF(H35;39)>0);38;IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0;COUNTIF(H35;30)>0);39;IF(AND(COUNTIF(H35;1)>0;COUNTIF(H35;33)>0);30;IF(COUNTIF(H35;1)>0;33;1)))))))))))

Complément d'info:

La formule je la mets sur toute la plage ( H35 à BT127 ) et ensuite je l'efface des cellules grise et laisse les formules sur les cellules blanche.

Merci à tous,

Setila

Hello Steelson,

L'ordre des priorité est bon l'idée est bonne.

Si tu regardes dans le fichier (onglet dimanche) dans la ligne 36 la formule est fixe et la ligne 37 la formule est mobile avec des $.

Dés que je change une caisse la formule magique regarde sur la plage et réatribut la caisse selon les priorités et même quand je retire une caisse en plein milieu c'est le même principe! Quand toute mes caisses sont mises alors "F"

Donc ma formule te convient ou faut-il changer quelque chose ?

Le code vba ne fonctionne pas mais peux être c'est à cause de la 1er formule ligne 36 sans les $ :

Je n'ai pas testé ta formule mais juste retranscris cette dernière en VBA, si tu la postes fausse, elle sera fausse et si la plage où elle doit être appliquée n'est pas la bonne et bien forcément les résultats seront erronés !

ta demande :

pouvez-vous m'aider afin de convertir une formule en vba?

Il faut l'appliquer de la formule de H35 à BT127

Hello theze,

La formule inséré est la suivante :

Sub Test()

Dim Formule As String

Formule = "=IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,"

Formule = Formule & "COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0,COUNTIF(H$35:H36,""cmo"")>0,COUNTIF(H$35:H36,32)>0,"

Formule = Formule & "COUNTIF(H$35:H36,2)>0),""F"",IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,"

Formule = Formule & "COUNTIF(H$35:H36,38)>0,COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0,COUNTIF(H$35:H36,""cmo"")>0,"

Formule = Formule & "COUNTIF(H$35:H36,32)>0),2,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,"

Formule = Formule & "COUNTIF(H$35:H36,38)>0,COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0,COUNTIF(H$35:H36,""cmo"")>0),32,"

Formule = Formule & "IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,v(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,COUNTIF(H$35:H36,35)>0,"

Formule = Formule & "COUNTIF(H$35:H36,37)>0,COUNTIF(H$35:H36,36)>0),""cmo"",IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,"

Formule = Formule & "COUNTIF(H$35:H36,35)>0,COUNTIF(H$35:H36,37)>0),36,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0,"

Formule = Formule & "COUNTIF(H$35:H36,35)>0),37,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0,COUNTIF(H$35:H36,38)>0),35,IF(AND(COUNTIF(H$35:H36,1)>0,"

Formule = Formule & "COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0,COUNTIF(H$35:H36,39)>0),38,IF(AND(COUNTIF(H$35:H36,1)>0,COUNTIF(H$35:H36,33)>0,COUNTIF(H$35:H36,30)>0),39,IF(AND(COUNTIF(H$35:H36,1)>0,"

Formule = Formule & "COUNTIF(H$35:H36,33)>0),30,IF(COUNTIF(H$35:H36,1)>0,33,1)))))))))))"

Range("H37:BT127").Formula = Formule

Formule1 = "=IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,COUNTIF(H35,39)>0,COUNTIF(H35,38)>0,"

Formule1 = Formule1 & "COUNTIF(H35,35)>0,COUNTIF(H35,37)>0,COUNTIF(H35,36)>0,COUNTIF(H35,""cmo"")>0,COUNTIF(H35,32)>0,"

Formule1 = Formule1 & "COUNTIF(H35,2)>0),""F"",IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,COUNTIF(H35,39)>0,"

Formule1 = Formule1 & "COUNTIF(H35,38)>0,COUNTIF(H35,35)>0,COUNTIF(H35,37)>0,COUNTIF(H35,36)>0,COUNTIF(H35,""cmo"")>0,"

Formule1 = Formule1 & "COUNTIF(H35,32)>0),2,IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,COUNTIF(H35,39)>0,"

Formule1 = Formule1 & "COUNTIF(H35,38)>0,COUNTIF(H35,35)>0,COUNTIF(H35,37)>0,COUNTIF(H35,36)>0,COUNTIF(H35,""cmo"")>0),32,"

Formule1 = Formule1 & "IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,v(H35,39)>0,COUNTIF(H35,38)>0,COUNTIF(H35,35)>0,"

Formule1 = Formule1 & "COUNTIF(H35,37)>0,COUNTIF(H35,36)>0),""cmo"",IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,COUNTIF(H35,39)>0,COUNTIF(H35,38)>0,"

Formule1 = Formule1 & "COUNTIF(H35,35)>0,COUNTIF(H35,37)>0),36,IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,COUNTIF(H35,39)>0,COUNTIF(H35,38)>0,"

Formule1 = Formule1 & "COUNTIF(H35,35)>0),37,IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,COUNTIF(H35,39)>0,COUNTIF(H35,38)>0),35,IF(AND(COUNTIF(H35,1)>0,"

Formule1 = Formule1 & "COUNTIF(H35,33)>0,COUNTIF(H35,30)>0,COUNTIF(H35,39)>0),38,IF(AND(COUNTIF(H35,1)>0,COUNTIF(H35,33)>0,COUNTIF(H35,30)>0),39,IF(AND(COUNTIF(H35,1)>0,"

Formule1 = Formule1 & "COUNTIF(H35,33)>0),30,IF(COUNTIF(H35,1)>0,33,1)))))))))))"

Range("H36:BT36").Formula = Formule1

End Sub

Mais ça ne fonctionne pas?!

Merci d'avance

Setila

Hello Steelson,

oui ta formule me conviens mais elle ne fonctionne pas vraiment!

J'ai l'impression qu'elle ne va pas chercher dans l'onglet ordre.

Merci

Bonne journée

Setila

Rechercher des sujets similaires à "formule convertir vba"