XL 2016 erreur après modification sur l'onglet principal

Oneida à dit:

Bonjour,
J'arrive a trouver la cellule colonne A en fonction de hd ou hf avec une boucle sur la colonne A et une comparaison avec format.
Pas trouver le moyen d'utiliser .find.
Curieusement Countif marche avec format ceci afin de savoir si hd ou hf sont dans la colonne
Vous etes preneur ou pas?

Cliquez pour agrandir...

Oneida à dit:

Re

halecs93​

Fichier modifier avec code de Dranreb. Merci a lui

Suite:
J'ai lance pour voir sans point d'arret et pas de probleme pour les calculs lgdeb et lgfin, mais ca pedale dans la semoule pour le dernier nom de personne

Cliquez pour agrandir...

Oneida à dit:

Re

halecs93​

Fichier modifier avec code de Dranreb. Merci a lui

Suite:
J'ai lance pour voir sans point d'arret et pas de probleme pour les calculs lgdeb et lgfin, mais ca pedale dans la semoule pour le dernier nom de personne

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Vous auriez meilleur temps de calculer vos variables comme ça :

VB:

    lgdéb = Int(hd * 96 + 0.5) - 19
    lgfin = Int(hf * 96 + 0.5) - 19

Cliquez pour agrandir...

halecs93 à dit:

Du coup, je reviens rapidement.... lorsque je génère les plannings, j'ai un décalage de 15'. Par exemple un horaire renseigné de 7:30 - 9:00 devrait me donner une durée de 1h30. C'est bien ce qui est écrit dans le planning de la personne concernée, mais en revanche le planning "dessiné" va jusqu'à 20:15...

Argh....
Regarde la pièce jointe 1188475

Cliquez pour agrandir...

Sub remplir(li, hd, hf, Nom, jour, coul)
    ' zone à remplir avec les variables de l'action
    Set f = fexist(Nom)                           ' si la feuille de l'agent n'existe pas alors elle est créée
    'Code fourni par Dranreb XLD 15/01/2024
    lgdeb = Int(hd * 96 + 0.5) - 19
    lgfin = Int(hf * 96 + 0.5) - 19
    With f
        col = .Rows(4).Find(UCase(jour)).Column
        .Cells(lgdeb, col).Value = hd
        .Cells(lgfin, col).Value = hf
        .Cells(lgdeb + 1, col).Value = li
        .Range(.Cells(lgdeb, col), .Cells(lgfin, col)).Interior.Color = coul
   End With
    ' Activer les événements pour déclencher le recalcul des formules
    Application.EnableEvents = True
End Sub

Oneida à dit:

Re

halecs93​

Fichier modifier avec code de Dranreb. Merci a lui

Suite:
J'ai lance pour voir sans point d'arret et pas de probleme pour les calculs lgdeb et lgfin, mais ca pedale dans la semoule pour le dernier nom de personne

Cliquez pour agrandir...