Calcul amplitude suivant cellule remplies

bonjour, et merci d'insister...

cependant ce fichier pose le même soucis à l'ouverture que l'autre...

c'est fou quand même...

Alors je ne vois pas, comme je l'ai déjà dit, peut-être un problème lié au MAC.

N'avez-vous pas la possibilité de le tester sur un PC?

et non je n''ai pas de PC...

zut... je crois que c'est foutu alors ?

On va essayer autre chose, j'ai remplacé la fonction personnalisée du calcul des amplitudes par une macro que vous lancerez en cliquant sur le point jaune au -dessus de "amplitude". Je n'y ai pas intégré la fonction personnalisée qui comptait les couleurs en heures normales.

merci beaucoup d'essayer encore...

cependant j'ai toujours le même soucis à l'ouverture, avec l'erreur qui supprime le code et qui me demande 2 fois ensuite d'autoriser les macros...

puis s'ouvre cette fenêtre

par contre étrangement la colonne amplitude est remplie

bonjour, une tentative désespérée en sauvegardant le fichier sous forme ".xlsb" sans changer quelque chose.

mieux ?

et non c'est la même chose...

je ne comprends pas. je ne pensais pas qu'une Install mac aurait moins de possibilité que PC

re,

moi, je ne comprends pas l'entête "Microsoft Word" dans le msgbox. Pourquoi "WORD" ?

j'avoue que je ne comprends pas non plus...

ce message apparait à la suite d'une chaine d'erreur.

pour rappel :

1/ tentative d'ouverture de fichier

ce message apparait et je clique sur "activer les macros"

2/ apparait ce message :

si je clique sur non tout t'arrête, si je clique sur oui, à nouveau on me demande d'autoriser les macros :

si je clique sur oui on me redemande encore une fois d'activer les macros

ce qui fait apparaître ce message :

et si je fais afficher voici ce que j'obtiens :

Il y a un problème d'aiguillage chez vous, vos fichiers .Xlsm pointent vers WORD, au lieu de pointer vers Excel.

Dans le gestionnaire de fichiers, clic droit sur le fichier, "Ouvrir avec " et sélectionnez "Excel"

il ne me semble pas sinon j'aurais des soucis avec d'autres fichiers non ?

quoi qu'il en soit j'ai quand même fait clique droit sur le fichier, et ouvrir avec excel et j'ai le même problème.

et surtout la première macro pour compter les heures fonctionnait correctement.

je suis vraiment désolé je ne vois pas....

je viens de fermer word et réouvrir le fichier Excel,

word ne s'ouvre que lorsque je clique sur afficher à cette étape

si vous prenez votre dernier fichier fonctionnel et le sauvegardez comme ".xlsx" donc sans VBA. Vous fermez et rouvrez et puis vous ajoutez un module et vous copiez et collez le contenu de hier 16:16 et sauvegardez cela de nouveau comme ".xlsb" (ou ".xlsm"), cela fonctionne ?

bonne idée,

par contre je m'y perd dans toutes ces versions.

je reviens donc à une version qui ne beug pas mais où l'amplitude n'est pas bonne

j'obtiens ce fichier

La version de 9h39 marchait correctement

re,

comme ca ?

non désolé toujours le même problème à l'ouverture :

bonjour

j'ai beau retourner le problème dans tous les sens je ne vois pas de solution...

je crois que je vais laisser tomber et continuer de remplir ma feuille à la main...

ou alors, autre idée, pour compter l'amplitude, est ce qu'une forme qui dit :

"différence entre cellule coloriée la plus à droite - cellule coloriée la plus à gauche - cellule non coloriées" ne serait pas envisageable ?

je remets ici le fichier sur lequel je travail, qui fonctionne, avec calcul d'amplitude à la main, mais code gardé en VBA si besoin

merci beaucoup

Bonjour,

Prenez le dernier fichier fonctionne chez vous et ne remplacez que la fonction personnalisée fausse par celle-ci.

Function Ampl(Plage As Range, Ligne As Long) As Double
    Dim i As Long, DerCol As Long, deb As Double, fin As Double
    DerCol = Range("ZZ8").End(xlToLeft).Column
    For i = 6 To DerCol
        If Cells(Ligne, i).Interior.ColorIndex <> xlNone Then
            deb = i
            GoTo Heure_Fin
        End If
    Next i
Heure_Fin:
    For i = DerCol To 6 Step -1
        If Cells(Ligne, i).Interior.ColorIndex <> xlNone Then
            fin = i + 1
            If fin - deb > 0 Then
                Ampl = (fin - deb) / 2
                Exit For
            Else
                Ampl = 0
                Exit For
            End If
        End If
    Next i
End Function

la formule des amplitudes en D12 , à recopier sur les autres cellules:

=SIERREUR(Ampl(E12:AQ12;LIGNE());"")

Pour aller sur le module VBA, faire ALT + F11

Cdlt

meci

je viens de faire les modification. voici le fichier

mais rien ne se calcule...

par contre pas de beug