Contenu récent par DAVAWAY

Bonjour Efgé, Mille excuses pour ce délai, merci pour cette démo ça appuie l idee de Daniel, je dois retraiter le tableur, ce qui ma foi ne prend pas un temps fou, en vue d avoir un tcd puis des graph dyn. EXCELlente journée, encore merci ^^

Bonsoir, On dit à juste titre qu'il y en plus dans deux têtes et plus que dans une, et c'est pour cela que je tente ma chance (comme par le passé..) sur le forum ! Voilà, j'ai un tableau avec des références d'actions, celles-ci renverront un code (1, 2, 3 ou nulle). Ces données seront...

Bonjour à tous, Quelqu'un aurait sa petite idée sur les arguments justes et utiles pour générer la formule d'un taux de chute : valeur prévisionnelle = 100 valeur déclarée = 80 valeur retenue = 70 taux de sous réalisation = 0,2 (1-(déclarée/prévisionnel)) taux de correction = 0,125...

PierreJean, Très beau travail, je te remercie ;)! J'essaie de compléter le code, sachant que la liste des données est saisie dans une feuille différente de "DépensesPersonnel BS" (ce que tu ne pouvais pas voir !). En cellule A25 de l'onglet "demande pj" est entrée la liste...

Bonjour PierreJean, Je te remercie pour ta solution que je découvre et vais tester sur mon tableur, merci beaucoup ! Bonne journée, je reviens vers toi au besoin et si tu le veux bien. David

Bonjour, Pourriez-vous m'aider à mettre en forme (gras) une partie des données importées à partir du liste ? Je ne sais pas comment coder avec Bold le segment : & .Cells(i, "T") de la macro ci-dessous : Function DepensesDirectes1() With Sheets("DépensesPersonnel BS") For i = 19 To 499 If...

Bonjour Lone-wolf, je te remercie ton code est impressionnant. J'ai pu dupliquer à 21 cellules d'alerte celui-ci. Cela prend un certain délai pour l'exécution. Peut on mettre en pause le diagnostic, ma fonction stopclign n'est plus du tout adaptée pourrais tu réécrire les lignes inappropriées ...

Bonsoir Lone-wolf, je suis avec la petite famille et prend connaissance de ta réponse dès demain matin, encore merci, bonne soirée ^^

Merci beaucoup Lone-wolf ;) et surtout bravo Pour l'heure je ne parviens pas à m'approprier ton codage, tu as fusionné le code thisworkbook et le module 'clignote' ? J'abuse de ta gentillesse mais aurais tu le fichier avec le code amélioré intégré ? Est il possible de remplacer If [E6] <> ""...

Je ne sais pas si ce code peut-être adapter et se prête mieux pour être dupliquer à plusieurs cellules d'une même page.. Bien à toi, Private Declare Function GetTickCount Lib "Kernel32" () As Long Sub Minuterie(Milliseconde As Long) Dim Arret As Long Arret = GetTickCount() + Milliseconde Do...

Merci quand même Lone-wolf, je vais essayer de trouver une solution de replis, en générant une cellule d'alerte - clignotante unique par onglet, sauf si tu as une ligne de code dédiée je te souhaite un bon après midi

Merci Lone-wolf, tu pourrais faire la manipe dans le vba du fichier pour te rendre compte du contexte et pour m'aider à assimiler ce type de reprise vers laquelle je me suis pas encore aventuré ! merci pour ton aide précieuse !

merci Lone-Wolf, je ne parviens pas à maîtriser la séquence, pour l'heure, si en E6 ou E7 il y a une valeur <0 alors E6 ET E7 clignotent tous deux ! Option Explicit Private Sub Workbook_Open() 'Lance le clignotement à l'ouverture si la cellule E6/E7 inférieure à 0 If...

Encore merci Lone-Wolf, je vais étudier ta reprise ! Je tentais désormais de déployer ce code à d'autres cellules (E7) mais je rencontre une erreur d'exécution 1004, je dois être à coté de la bonne écriture, merci d'avance ;) : Option Explicit Dim Temps As Date Public Sub Clign() Temps =...

Bonjour et merci Lone-wolf, J'ai juste modifié la boucle dédiée à la police pour avoir avec la case blanche une police blanche : .Font.ColorIndex = IIf(.Font.ColorIndex = 3, 2, 3) Sais tu comment conditionner l'exécution du code (appui bouton macro affectée), car l'alerte couleur s'exécute...