cellule coloriée si reactivé Résolu

Question

Bonjour, je voudrais que ma cellule se colore en rouge par exemple lorsque je change 2 fois ce qui il y a dedans
par avance merci
Éric



Configuration: Windows XP / Firefox 3.5.13

Nyctaclope · Answer

Bonsoir !   

La question de la teinte, rouge ou autre, est facile à résoudre par utilisation d'un format conditionnel de la cellule ( dépendant du résultat d'un test ).   

Par contre le problème du test lui même est tout autre :   
Une cellule ne peut tester son propre contenu, car elle contient alors la formule de test, et ne peut donc avoir d'autre contenu propre à soumettre au test.   

Tu ne peux résoudre le problème qu'en réalisant sous Excel ce que tu ferais toi même "à la main"   
Pour savoir si une cellule est modifiée, tu dois comparer son contenu au précédent contenu, que tu dois donc avoir sauvegardé. Pour savoir si elle subit une deuxième modification, tu dois savoir qu'il y en a déjà eu une autre, donc avoir modifié un compteur, ou avoir fait une deuxième sauvegarde différente de la première.   

Comme la modification du contenu d'une cellule ( modification du compteur, ou sauvegarde du contenu dans une autre cellule ) ne peut PAS être fait par une formule, seule une "macro" pouvant le faire à la place de l'utilisateur ...   

=> il te faut donc deux cellules de sauvegarde, ou une sauvegarde et un compteur, plus une cellule effectuant le test, ET une macro convenable effectuant le comptage et la/les sauvegardes en fonction de ce qu'elle "voit".   
Le problème de la macro est que tu dois la lancer à la main ( ou par clic sur un bouton convenablement configuré ), ou bien elle ne peut s'effectuer automatiquement que lors d'événements prédéfinis ( ouverture ou fermeture du document, par exemple ). 
Selon le choix fait, tu pourrais ne savoir tester qu'une seule modif faite pendant que le document est ouvert . 

En final, la cellule de test examine les résultats et donne l'information nécessaire au format conditionnel.   

Donc ton problème parait simple, mais ne l'est pas tant que cela ...   
Mais c'est sûrement faisable avec un peu de patience ... 
Et d'autres solutions sont sans doute possibles, sans pouvoir aller au delà des limites d'une simple formule ..

A+ 
Nyctaclope

eric2027 · Answer

bonjour,
merci de t'être attardé et m'avoir répondu aussi vite mais en macro je suis archi nul, je n'y comprends rien et pourtant j'essaie, pourrais tu m'orienter et m'aider à en créer une, si c le cas, te faut il une base ?
par avance merci
Éric

Nyctaclope · Answer

Re

Je ne pourrai pas t'aider beaucoup, car c'est un travail assez important, et je n'aurai pas beaucoup de temps.
En plus, ma version Excel est ancienne, et les infos que je te donnerai risquent d'être obsolètes. Et maintenant les macros se rédigent en Visual Basic, que j'ai un peu oublié ..

Je te prépare quand même l'algorithme ( structure logique ) des macros nécessaires , et je te le poste sans doute demain ..

Et je demande à Raymond Pentier ( il adore intervenir pour Excel ) s'il peut te donner un coup de main ...

A+
Nyctaclope

Raymond PENTIER · Answer

On va donc appeler au secours les vrais amateurs de VBA, qui sont de plus en plus nombreux : 
eriiic, cousinhub29, michel_m, gbinforme, Mike-31, le Pingou
et quelques autres ... 
que je salue tous !

eriiic · Answer

Bonjour tout le monde,

Il faudrait préciser combien de cellules sont concernées.
Une ? Une colonne ? Sur plusieurs feuilles ?
Et à l'ouverture du fichier faut-il tenir compte d'un changement qui aurait eu lieu à une précédente session ?

Eventuellement mettre le fichier exemple sur cijoint.fr et coller ici le lien fourni.

eric

Mike-31 · Answer

J'ai vu de la lumière, j'ai poussé la porte.

Bonjour tout le monde,

En supposant que tu veuilles surveiller la colonne B et pour faire simple je te conseille d'utiliser une colonne adjacente exemple la C qui pourra être masquée

Clic droit sur l'onglet de la feuille concernée/Visualiser le code et coller ce code, qui dès qu'une valeur sera changée deux fois et plus en B la cellule B passera en rouge.
Mais il faudrait peut être prévoir un resset (remise à zéro)
Dans le code j'ai intégré une gestion d'erreur

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect([B:B], Target) Is Nothing Then
Target.Offset(0, 1) = Target.Offset(0, 1) + 1
If Target.Offset(0, 1) >= 2 Then
Target.Interior.ColorIndex = 3
End If
End If
End Sub

eric2027 · Answer

Salut Mike
j'ai essayé, cela fonctionne, c cool, mais il faudrait que ce soit lors de la correction c a d je mets "15 dans la cellule b9", cela reste blanc mais lorsque je fais une correction dans "b9", là, cela apparait en rouge ,
est il possible lorsque j'inscris des données en colonne f, g, h que cela reste bloqué, comme personne ne pourrait y toucher
merci encore, vous me sortez d'une galère, un truc de ouf.

De plus, j'ai essayé de faire fonctionner ta macro dans les colonnes D, F, H mais ça ne fonctionne, pourrais m'indiquer le pourquoi ?

par avance merci de ton aide
Éric

Mike-31 · Answer

Re,

Pour bloquer les colonnes F, G et H il n'y a pas de problème et plusieurs possibilités.
quelles sont les cellules accessibles
une fois renseignée tu veux les bloquer difinitivement ou accessible avec un mot de passe qui te sera réservé.
Pour comprendre ton tableau il serait souhaitable d'avoir un modèle de fichier sans notes confidentielles mais avec des annotations expliquatives que tu peux joindre avec ce lien

https://www.cjoint.com/ 

peux tu expliquer le fonctionnement et expliquer ta phrase: 
mais il faudrait que ce soit lors de la correction c a d je mets "15 dans la cellule b9", cela reste blanc mais lorsque je fais une correction dans "b9", là, cela apparait en rouge

les valeurs en B sont saisies manuellement ou le résultat de C, A, D

et en D, F et H les valeurs ont saisies comment ou le résultat de quelle combinaison

eric2027 · Answer

salut Mike,

pour les colonnes à bloquer, ce serait toute les cellules, et accessibles avec un mot de passe

pour cette phrase mais "il faudrait que ce soit lors de la correction c a d je mets "15 dans la cellule b9", cela reste blanc mais lorsque je fais une correction dans "b9", là, cela apparait en rouge", j'ai trouvé la solution.

pour cette phrase "et en D, F et H les valeurs ont saisies comment ou le résultat de quelle combinaison ", j'ai essayé de compléter ta macro en y incorporant les colonnes D, F ,H et sans succès, c'est à dire que les cellules ne se mettent en rouge. donc c'est vraiment compliqué de créer des macro.

je t"envois un fichier excel sur cjoint

Mike-31 · Answer

Re,

Mais en D, F et H que veux tu faire mettre ces cellule en rouge si B change deux fois ou veux tu les soumettre aux même conditions que B, c'est à dire si une valeur change deux fois en D elle devient rouge idem pour F et H

eric2027 · Answer

je voudrais mettre par ex" mettre 10 en colonne D "et que si on mets "11", que cela devienne rouge,

sur les 4 colonnes est il possible de mettre la même macro que celle que tu m'as créé en colonne B,  je n'y arrive pas

Mike-31 · Answer

Re,

Si je comprends bien, tu veux que les valeurs des colonnes B, D, F et H passe en rouge à la deuxième modification, c'est cela !!!

Ton tableau se termine à quelle colonne !!!

eric2027 · Answer

slt Mike
mon tableau se fini en colonne H  pour les chiffres et les 2 suivantes I, J pour les textes.
merci 
Éric

eric2027 · Answer

j'ai oublié, oui c cela, quelles passent en rouge à la deuxième modification

Mike-31 · Answer

Re,

Je te prépare un code et un petit montage dans l'après midi

eric2027 · Answer

re
ok c cool, un dernier truc que j'ai essayé et qui ne fonctionne comme je veux, en b40, j'ai fait une mfc, qui dit que au delà de 10 la cellule se met noir avec chiffre blanc, mais il ne veut pas clignoter sur le 10 pour avertir qu'il faut arrêter de rentrer des nombres, j'ai beau ajouter une autre mfc avec des données que j'essaye de comprendre mais  j'ai l'impression que l'on ne peut pas faire ce genre de programme en mfc, y a t 'il une solution ?
merci pour tout

Éric

eric2027 · Answer

j'ai oublié de te demander de mettre un mot de passe dans la macro

merci

Éric

Mike-31 · Answer

Re,

Je ne t'ai pas oublié, manque de temps. Je te prépare tout cela rapidement.

le mot de passe pour la macro, tu veux dire protéger le module qui contient la macro pour contrôler les accès ou les limiter !

eric2027 · Answer

re

oui c ça

cimer

eric

Mike-31 · Answer

Re,

Voila, voila, recupère le fichier avec ce lien, regarde deux possibilités sur les deux feuilles

https://www.cjoint.com/?0kgpGAQGEVT

pour protéger le code VBA, clic droit sur l'onglet de feuille et Visualiser le code ou touche Alt et touche de fonction F11
Outils/Propriétés du VBAProjet/onglet Protection, coche verrouiller le projet pour affichage et saisi un mot de passe que tu confirmes (ATTENTION DE NE PAS L'OUBLIER)

eric2027 · Answer

re

je l'ai installé, ça fonctionne à merveille, en ce qui concerne le mot de passe, je l'ai mis mais quand j'ouvre la macro, on peut toucher à toutes les données, est ce normal ? 

est ce qu'il est possible d'avoir un rouge moins agressif, j'ai essayé de faire clignoter en b40 mais pas moyen, si tu pouvais me l'écrire, 
je veux que ma cellule en b40 clignote quand le chiffre 11 apparait, j'ai fait une mfc que quand le 11 apparait, cette dernière se met en noir avec le chiffre blanc 

par avance merci

Éric

Mike-31 · Answer

Re, 

Pour la protection du module macro, tu as bien cette procédure 

clic droit sur l'onglet de feuille et Visualiser le code ou touche Alt et touche de fonction F11  
Outils/Propriétés du VBAProjet/onglet Protection, coche verrouiller le projet pour affichage et saisi un mot de passe que tu confirmes 

Si tu as toujours accès au module, ferme Excel et réouvre le ainsi que le fichier normalement tu ne devrais plus avoir accès au module sans le mot de passe. 

Pour la couleur, quelle version as tu d'Excel ! 

Essaye de changer dans ces lignes de code le 3 en fin de ligne par 38 ou 45  

If Target.Offset(0, 9) >= 2 Then Target.Interior.ColorIndex = 3 

Pour le clignotement de la cellule B40 tu peux le faire qu'avec une macro, la mise en forme conditionnelle ne sera pas prise en charge et devra être supprimé. 
Je te fais un code, mais sur mes deux propositions, laquelle as tu retenue pour continuer sur ce code 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

slt Mike

ma version excel est 2002

pour le mot de passe, c ok et c cool

merci

eric2027 · Answer

re 

j'ai pris le deuxième, je la comprends mieux, comment je fais pour mettre les chiffres du compteur en blanc et non en noir ?

Mike-31 · Answer

Re, 

Je pense que tu aurais intérêt à masquer les colonnes compteur plutôt que de mettre en blanc les caractères enfin tu choisis 
Pour masquer les colonnes dans mon exemple K, L, M et N clic sur les en tête de colonne/Format/Colonne/Masqer 
pour mettre les caracrères en blanc surbriller les plages Format/Cellule/Police et sélectionner la couleur blanche (tu peux également passer par l'outils couleur police) 

si en B40 tu veux faire clignoter la cellule il faudra limiter le code aux cellules B39, dans les propriètés feuille, colle ce code 

Private Sub Worksheet_Change(ByVal Target As Range) 
On Error Resume Next 
If Not Intersect([B2:B39], Target) Is Nothing Then 
Target.Offset(0, 9) = Target.Offset(0, 9) + 1 
If Target.Offset(0, 9) >= 2 Then Target.Interior.ColorIndex = 3 
If Target = "" Then 
Target.Offset(0, 9) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 
If Not Intersect([D2:D39], Target) Is Nothing Then 
Target.Offset(0, 8) = Target.Offset(0, 8) + 1 
If Target.Offset(0, 8) >= 2 Then Target.Interior.ColorIndex = 3 
If Target = "" Then 
Target.Offset(0, 8) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 
If Not Intersect([F2:F39], Target) Is Nothing Then 
Target.Offset(0, 7) = Target.Offset(0, 7) + 1 
If Target.Offset(0, 7) >= 2 Then Target.Interior.ColorIndex = 3 
If Target = "" Then 
Target.Offset(0, 7) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 
If Not Intersect([H2:H39], Target) Is Nothing Then 
Target.Offset(0, 6) = Target.Offset(0, 6) + 1 
If Target.Offset(0, 6) >= 2 Then Target.Interior.ColorIndex = 3 
If Target = "" Then 
Target.Offset(0, 6) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 

StopClign 
Clign 

End Sub 

Pour faire clignoter la cellule B40 ouvre un module et colle ce code 

Dim Temps As Variant 
Public Sub Clign() 
    'Programmation de l'évènement toutes les secondes 
    Temps = Now + TimeValue("00:00:01") 
    Application.OnTime Temps, "Clign" 
    If [B40] >= 11 Then 
    With ThisWorkbook 
        'Texte clignotant 
        With .Sheets("Feuil2").[B40] 
            [B40].Font.ColorIndex = IIf(.Font.ColorIndex = 2, 1, 2) 
        End With 
        'Fond clignotant 
        With .Sheets("Feuil2").[B40] 
            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 1, 2, 1) 
        End With 
        End With 
        End If 
End Sub 

Public Sub StopClign() 
    On Error Resume Next 
    'Stoppe la gestion de l'évènement OnTime 
    Application.OnTime Temps, "Clign", , False 
    On Error GoTo 0 
    'Cache l'alerte 
    With ThisWorkbook 
        'Fond 
        .Sheets("Feuil2").[B40].Interior.ColorIndex = xlNone 
        'Texte 
        .Sheets("Feuil2").[B40].Font.ColorIndex = 0 
    End With 
End Sub 

pour que le code soit pris en considération dès l'ouverture du fichier dans la Thisworkbook colle ce code 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
StopClign 
End Sub 

Private Sub Workbook_Open() 
StopClign 
Clign 
End Sub 

Tu supprime tes mises en forme conditionnelle ou tu le modifies pour simplement mettre le caractère en gras si la valeur est égale ou supérieure à 11 

https://www.cjoint.com/?0khlAGRgURm

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

re 

tout marche nickel, mais et c'est là que je me heurte aux macros, sur les onglets de mes feuilles, il y a des noms, la 1ere, pas de problème, j'ai été dans la macro et j'ai changé feuil1 par le nom correspondant mais sur les autres, ça prend pas, peux tu m'expliquer pourquoi

merci

É2007

Mike-31 · Answer

Re,

Donne moi le nom de tes feuilles ou le nom de la feuille concernée par la macro.

Si plusieurs feuilles concernées précise le moi

eric2027 · Answer

re
j'ai 22 feuilles avec des noms différents, est ce que tu veux les noms qui sont sur les feuilles ?
Éric

Mike-31 · Answer

Re,

Sur tes 22 feuilles, combien sont concernées par les macros, par contre donne moi les noms de celles qui ne sont pas concernées

eric2027 · Answer

re 

toutes sont concernées, de plus, y a t il une solution pour bloquer les cellules des 4 colonnes ainsi que les colonnes I, J ?

j'ai mis 38 pour que les couleurs soient moins hard, c'est nickel, ça me donne du magenta 50%

merci

Éric

Mike-31 · Answer

Re, 

Pour être utilise dans toutes les feuilles de ton classeur, colle le code dans la Thiswokbook (clic droit sur un onglet de feuille, double clic ou clic et Entrée sur Thiswokbook que tu verra dans la marge de gauche. 
Supprime toutes tes Mises en forme conditionnelle de tes page concernant la cellule B40.

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
StopClign 
End Sub 

Private Sub Workbook_Open() 
StopClign 
Clign 
End Sub 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
On Error Resume Next 
If Not Intersect([B2:B39], Target) Is Nothing Then 
Target.Offset(0, 9) = Target.Offset(0, 9) + 1 
If Target.Offset(0, 9) >= 2 Then Target.Interior.ColorIndex = 38 
If Target = "" Then 
Target.Offset(0, 9) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 
If Not Intersect([D2:D39], Target) Is Nothing Then 
Target.Offset(0, 8) = Target.Offset(0, 8) + 1 
If Target.Offset(0, 8) >= 2 Then Target.Interior.ColorIndex = 38 
If Target = "" Then 
Target.Offset(0, 8) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 
If Not Intersect([F2:F39], Target) Is Nothing Then 
Target.Offset(0, 7) = Target.Offset(0, 7) + 1 
If Target.Offset(0, 7) >= 2 Then Target.Interior.ColorIndex = 38 
If Target = "" Then 
Target.Offset(0, 7) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 
If Not Intersect([H2:H39], Target) Is Nothing Then 
Target.Offset(0, 6) = Target.Offset(0, 6) + 1 
If Target.Offset(0, 6) >= 2 Then Target.Interior.ColorIndex = 38 
If Target = "" Then 
Target.Offset(0, 6) = "" 
Target.Interior.ColorIndex = xlNone 
End If 
End If 

Call StopClign 
Call Clign 

End Sub 

Pour le code clignotant crée un module dans le visual (Insertion/Module et colle ce code qui en plus de faire clignoter la cellule mettra en grac et augmentera la police de B40 lorsque la valeur sera égale et supérieure à 11 

Dim Temps As Variant 

Public Sub Clign() 
    'Programmation de l'évènement toutes les secondes 
    Temps = Now + TimeValue("00:00:01") 
    Application.OnTime Temps, "Clign" 
    If [B40] >= 11 Then 
    With ThisWorkbook 
        'Texte clignotant 
        With .ActiveSheet.[B40] 
            [B40].Font.ColorIndex = IIf(.Font.ColorIndex = 2, 1, 2) 
            [B40].Font.FontStyle = "Gras" 
            [B40].Font.Size = 12 
        End With 
        'Fond clignotant 
        With .ActiveSheet.[B40] 
            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 1, 2, 1) 
        End With 
        End With 
        End If 
End Sub 

Public Sub StopClign() 
    On Error Resume Next 
    'Stoppe la gestion de l'évènement OnTime 
    Application.OnTime Temps, "Clign", , False 
    On Error GoTo 0 
    'Cache l'alerte 
    With ThisWorkbook 
        'Fond 
        .ActiveSheet.[B40].Interior.ColorIndex = xlNone 
        'Texte 
        .ActiveSheet.[B40].Font.ColorIndex = 0 
        [B40].Font.FontStyle = "Normal" 
        [B40].Font.Size = 10 
    End With 
End Sub 

Pour la protection des cellules, par défaut toutes les cellules son verrouillées dès lors que la feuille est protégée. Il suffit donc de déverrouiller les cellules que l'on souhaite laissées accessibles et protéger la feuille. 
Mettre en surbrillance toutes ces cellules ex. B2 à B38 Format/Cellule/onglet Protection/décoche la case verrouillée 
Puis Outils/Protection/Protéger la feuille (il est également possible de mettre un mot de passe pour la déprotéger, mais attention de ne pas l'oublier. 
Par contre si tu veux rendre accessible momentanément tes cellules pour permettre tes saisies, tu peux laisser toutes tes cellules verrouillées, mets en surbrillance les cellules que tu souhaites laisser accessible sous protection d'un mot de passe et Outils protection/Permettre aux utilisateurs de modifier des plages/Nouvelle (tu peux la nommer ou tu laisse plage1 etc...) 
Clic sur protéger la feuille (éventuellement avec mot de passe). 
Lorsque tu voudras saisir pour la première fois des notes dans la plage, le mot de passe te sera demandé. Pour reverrouiller la plage il faudra fermer le fichier ou ajouter un bout de code 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

re 

ce n'est pas tout a fait ça, quand la cellule devient en couleur, je voudrais si c'est possible que la cellule se bloque entièrement de façon à ne plus pouvoir y revenir

j'ai un problème, quand je veux ré ouvrir ma macro, cela me dit "le projet ne être affiché", ensuite je fais ok et nouveau message "erreur système &h80004005(-214747259)erreur non spécifié, c'est un truc de ouf, hier c'était nickel

merci

Éric

Mike-31 · Answer

Re,

Pour l'erreur que tu rencontres, Tu n'as pas modifié la structure de ton fichier ou protégé ta feuille !

Pour ton histoire de cellule verrouillées, au départ donne moi l'étendue de ton tableau de la cellule a1 à x20 par exemple
donne moi la liste soit des cellules que tu souhaites accessible ou inaccessible
dans ton cas il est souhaitable d'avoir un mot de passe pour rendre la protection efficace donne moi celui que tu souhaites mettre pour la protection de ta feuille et je t'écris un code

eric2027 · Answer

re
"modifié la structure de ton fichier ou protégé ta feuille "! c'est du chinois pour moi

les cellules sont en b9:b39 ; c9:c39 ; d9:d39 ; e39f39 ; g9:g39 ; h9:h39

mon mot de passe est   leg509
merci

Éric

Mike-31 · Answer

Bon c'est pas grave, je vais me débrouiller avec ça et te préparer un exemple avec les cellules qui se verrouilleront automatiquement après la modification.
Par contre la cellule B40 clignotante n'est pas possible sur une feuille protégée puisque on fait varier les couleurs qui sont inaccessible sous protection.
Ce qui est par contre possible, c'est mettre sur la feuille une forme géométrique qui clignote contenant éventuellement un message ex B40est supérieur ou égale à 11.

Ou lorsque la cellule B40 clignote on suspend la protection de la feuille ce qui rend les cellules de couleur accessible

eric2027 · Answer

re

c cool,

 " Ce qui est par contre possible, c'est mettre sur la feuille une forme géométrique qui clignote contenant éventuellement un message ex B40est supérieur ou égale à 11. "

 si tu peux me faire ça, ce serai génial

merci pour tout

Éric

eric2027 · Answer

re 

franchement, les 2 mon capitaine, je suis super content, 

merci à toi, et à ta patience 

Éric

Mike-31 · Answer

Re,

Au départ les cellules compteur en jaune des colonnes K, L, M et N sont déverrouillées et les colonnes devront être masquées.
Les cellules soumises au blocage sont B9 à B39, D9 à D39, F9 à F39 et H9 à H39, sont déverrouillées et la feuille est protégée en écriture avec le mot de passe que tu m'as donné leg509.
Dans ta demande initiale tu souhaitais également bloquer les cellules des colonnes I et J par contre sur ton dernier post tu parles des colonnes C et E.
La shape clignotant peut être déplacée pendant le clignotement avec le clic gauche.
il est également souhaitable de protéger le module macro avec le même mot de passe pour protéger le code et par la même les données de la feuille.
le code dans la Thiswokbook est 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopClign
End Sub

Private Sub Workbook_Open()
StopClign
Clign
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Intersect([B9:B39], Target) Is Nothing Then
Target.Offset(0, 9) = Target.Offset(0, 9) + 1
If Target.Offset(0, 9) >= 2 Then
Target.Interior.ColorIndex = 38
If Target = "" Then
Target.Offset(0, 9) = ""
Target.Interior.ColorIndex = xlNone
End If
End If
End If
If Not Intersect([D9:D39], Target) Is Nothing Then
Target.Offset(0, 8) = Target.Offset(0, 8) + 1
If Target.Offset(0, 8) >= 2 Then
Target.Interior.ColorIndex = 38
If Target = "" Then
Target.Offset(0, 8) = ""
Target.Interior.ColorIndex = xlNone
End If
End If
End If
If Not Intersect([F9:F39], Target) Is Nothing Then
Target.Offset(0, 7) = Target.Offset(0, 7) + 1
If Target.Offset(0, 7) >= 2 Then
Target.Interior.ColorIndex = 38
If Target = "" Then
Target.Offset(0, 7) = ""
Target.Interior.ColorIndex = xlNone
End If
End If
End If
If Not Intersect([H9:H39], Target) Is Nothing Then
Target.Offset(0, 6) = Target.Offset(0, 6) + 1
If Target.Offset(0, 6) >= 2 Then
Target.Interior.ColorIndex = 38
If Target = "" Then
Target.Offset(0, 6) = ""
Target.Interior.ColorIndex = xlNone
End If
End If
End If
Protection_Cellule_Couleur
Call StopClign
Call Clign
End Sub

Dans un module 

 Dim Temps As Variant

Public Sub Clign()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
    If [B40] >= 11 Then
    With ThisWorkbook
        'Texte clignotant
      With .Sheets("Feuil2")
        .Shapes("Forme8").Visible = Not .Shapes("Forme8").Visible
        End With
        With .ActiveSheet.[B40]
            [B40].Font.ColorIndex = IIf(.Font.ColorIndex = 2, 1, 2)
            [B40].Font.FontStyle = "Gras"
            [B40].Font.Size = 12
        End With
        'Fond clignotant
        With .ActiveSheet.[B40]
            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 1, 2, 1)
        End With
        End With
        End If
End Sub

Public Sub StopClign()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clign", , False
    On Error GoTo 0
    'Cache l'alerte
    With ThisWorkbook
        'Fond
        .ActiveSheet.[B40].Interior.ColorIndex = xlNone
        'Texte
        .ActiveSheet.[B40].Font.ColorIndex = 0
        [B40].Font.FontStyle = "Normal"
        [B40].Font.Size = 10
    End With
    ActiveSheet.Shapes("Forme8").Visible = False
End Sub

Sub Protection_Cellule_Couleur()
Dim cel As Range
ActiveSheet.Unprotect Password:="leg509"
For Each cel In [B9:B39,D9:D39,F9:F39,H9:H39]
If cel.Interior.ColorIndex = 38 Then
cel.Locked = True
End If
Next
ActiveSheet.Protect Password:="leg509", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
End Sub

https://www.cjoint.com/?0kjoI4tlLXj

eric2027 · Answer

re

effectivement, pour moi c'est plus simple de pouvoir gérer les colonne B; C; D; E; F; G; H; I; J, dans la même macro, est ce que tu pourrais mettre dans l'alerte un   "attention" en rouge qui flash en lettre.

ce que tu fais est un truc de OUF

merci

Éric

Mike-31 · Answer

Les cellules dans les colonnes  B; C; D; E; F; G; H; I; J, sont elles soumise au même critère (se verrouiller lorsque leurs valeurs changent deux fois ou ont elles un statut différent)

Que veux tu dire par 
dans la même macro, est ce que tu pourrais mettre dans l'alerte un "attention" en rouge qui flash en lettre

dans la forme qui clignote changer le texte ou ajouter Attention en rouge !

eric2027 · Answer

re

toutes les cellules seraient soumises aux mêmes critères, et même se verrouiller lorsque leurs valeurs changent une fois.

est ce que je peux mettre "attention"en rouge à la place de ce que tu m'as mis comme avertissement

merci

Éric

Mike-31 · Answer

Re,

Alors le code est bien plus simple et dans la Thiswokbook, il se limite à 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call StopClign
End Sub

Private Sub Workbook_Open()
    Call StopClign
    Call Clign
End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not Intersect([B9:B39,C9:C39,D9:D39,E9:E39,F9:F39,G9:G39,H9:H39,I9:I39,J9:J39], Target) Is Nothing Then
    Target.Offset(0, 9) = Target.Offset(0, 9) + 1
    If Target.Offset(0, 9) >= 2 Then
    Target.Interior.ColorIndex = 38
    If Target = "" Then
    Target.Offset(0, 9) = ""
    Target.Interior.ColorIndex = xlNone
    End If
    End If
    End If
    Call Protection_Cellule_Couleur
    Call StopClign
    Call Clign
End Sub

https://www.cjoint.com/?0kjxdPvE8XA

eric2027 · Answer

re 
j'ai testé c super cool,

 et si je veux que les cellules se bloque à la 1ère manip, je fais "If Target.Offset(0, 9) >= 1 Then "

je suis ô début de la connaissance

ô grand merci

Éric

eric2027 · Answer

bonjour Mike

j'essaie de prendre les données de ta feuille pour les mettre dans mon fichier
mais cela ne fonctionne pas.

je ne vois pas de macro quand je veux visualiser ton code, est ce normal ?

les autres colonnes ne se colories pas, j'ai beau chercher, je ne trouve pas

Éric

Mike-31 · Answer

Re,

Un code VBA ne se modifie pas comme une formule que l'on déplace, il faut intervenir sur le code.
Pour te permettre de l'adapter plus facilement, j'ai apporté quelques modifications.

Si tu es sur Excel 2003
Sur ta feuille de calcul, comment par déverrouiller tes cellules que tu souhaites laisser accessibles et obligatoirement de K9 à S39 de B9 à J39 et B40 (lorsque la feuille est déprotégée mets en surbrillance ces plage et Format/Cellule/onglet Protection, décoche Verrouiller)

Ensuite dessine ta Shape à partir de ta barre de dessin/Formes Automatiques/sélectionne la forme de ton choix
Clic droit sur la forme et Format de la forme Automatique/onglet Traits et couleurs pour mettre un fond
Clic droit de nouveau sur ta forme/Ajouter du texte, saisis le texte souhaité
Clic droit de nouveau sur le texte  Format de la forme Automatique paramètre ton texte couleur, police, gras etc ...

Une fois ta Shape terminée clic sur la Shape, tu verras dans la barre d'adresse juste au dessus de l'entête de colonne A le nom de la Shape, clic dessus, elle se mettra en surbrillance, saisis au clavier en respectant la majuscule Alerte

Clic droit sur l'onglet de feuille/Visualiser le code (ce qui t'ouvrira le visual basic)
Dans la marge de gauche tu trouveras Thiswokbook (double clic dessus ou clic et touche Entrée. Colle dans la partie blanche de droite ce code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call StopClign
End Sub

Private Sub Workbook_Open()
    Call StopClign
    Call Clign
End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not Intersect([B9:B39,C9:C39,D9:D39,E9:E39,F9:F39,G9:G39,H9:H39,I9:I39,J9:J39], Target) Is Nothing Then
    Target.Offset(0, 9) = Target.Offset(0, 9) + 1
    If Target.Offset(0, 9) >= 2 Then
    Target.Interior.ColorIndex = 38
    If Target = "" Then
    Target.Offset(0, 9) = ""
    Target.Interior.ColorIndex = xlNone
    End If
    End If
    End If
    Call Protection_Cellule_Couleur
    Call StopClign
    Call Clign
End Sub

Ensuite Insertion/Module ce qui générera un module juste au dessus de la Thiswokbook qui senommera Module1 si c'est le premier ou 2 si c'est le deuxième etc ...
Double clic sur le Module ou clic et Entrée pour l'ouvrir colle ce code

Dim Temps As Variant

Public Sub Clign()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
    If [B40] >= 11 Then
    With ThisWorkbook
        'Texte clignotant
      With .ActiveSheet
        .Shapes("Alerte").Visible = Not .Shapes("Alerte").Visible
        End With
        With .ActiveSheet.[B40]
            [B40].Font.ColorIndex = IIf(.Font.ColorIndex = 2, 1, 2)
            [B40].Font.FontStyle = "Gras"
            [B40].Font.Size = 12
        End With
        'Fond clignotant
        With .ActiveSheet.[B40]
            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 1, 2, 1)
        End With
        End With
        End If
End Sub

Public Sub StopClign()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clign", , False
    On Error GoTo 0
    'Cache l'alerte
    With ThisWorkbook
        'Fond
        .ActiveSheet.[B40].Interior.ColorIndex = xlNone
        'Texte
        .ActiveSheet.[B40].Font.ColorIndex = 0
        [B40].Font.FontStyle = "Normal"
        [B40].Font.Size = 10
    End With
    ActiveSheet.Shapes("Alerte").Visible = False
End Sub

Sub Protection_Cellule_Couleur()
    Dim cel As Range
    ActiveSheet.Unprotect Password:="leg509"
    For Each cel In [B9:B39,C9:C39,D9:D39,E9:E39,F9:F39,G9:G39,H9:H39,I9:I39,J9:J39]
    If cel.Interior.ColorIndex = 38 Then
    cel.Locked = True
    End If
    Next
    ActiveSheet.Protect Password:="leg509", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
End Sub

Enregistre ton fichier et tout doit fonctionner. Sinon il faudra me le faire parvenir en message privé pour que je l'adapte

eric2027 · Answer

re

 ça ne fonctionne pas, comment je fais pour te l'envoyer en message privé, j'ai deja mis un fichier dans cjoint

Éric

Mike-31 · Answer

Je ne vois pas ton fichier dans la discussion, pour l'envoyer s'il ne contient pas de notes confidentielles, tu clic sur ce lien

https://www.cjoint.com/

Parcourir/sélectionne ton fichier/clic sur créer le lien

colle le lien généré sur un post ou sur un message privé pour cela clic sur mon pseudo dans la discussion et message privé

eric2027 · Answer

re

je viens de mettre mon fichier sur cjoint, il s'appelle "eric"

Mike-31 · Answer

Tu n'as pas collé le lien généré, donc pas de fichier.

Recommence, clic sur ce lien
https://www.cjoint.com/ 
ensuite sur Parcourir pour sélectionner ton fichier
Clic sur créer le lien
mets en surbrillance le lien bleu généré en haut de la page, clic droit dessus/copier
vas sur le post  que tu veux m'envoyer et clic droit coller

eric2027 · Answer

c quoi le post, ou je le trouve

Éric

Mike-31 · Answer

un post c'est chaque message d'une discussion, je te répond par l'intermédiaire d'un post, ce message est un post ou une réponse

eric2027 · Answer

re

j'espère que ça va aller	


https://www.cjoint.com/?0kljXaJWErB  

Éric

Mike-31 · Answer

Re,

C'est bon je viens de récupérer ton fichier,


Le 9/10 à 20h55 tu écrivais dans un pos
pour moi c'est plus simple de pouvoir gérer les colonne B; C; D; E; F; G; H; I; J, dans la même macro

Alors soyons bien clair, tu veux que dans tes colonnes B, D, F et G se bloquent lors de la deuxième saisie  !

Tu me demande de bloquer la cellule en bleu soit la C42, qui aura t il dedans une formule !

Que doit il se passer colonnes C, E, G et colonnes I et J !

Il était également question de faire clignoter une cellule la B40 lorsque sa valeur atteignait 11 !

qui aura til enE42 ainsi qu'en C43 !

eric2027 · Answer

re

je récap, je me suis planté, 

pour les colonnes, BCDE, les chiffres avec possibilité que 2 changement maxi, avec couleur 38, il n'y aura que la b40 clignotante en en noir sur chiffre blanc 11

pour les colonnes FG, ce sera du textes, pour t'on les bloquer avec possibilité que 2 changement maxi avec couleur 38

je ne mets aucune formule, si cela est possible, est ce que je pourrais des changements dansla macro ?

crois tu que je peux faire évoluer ce fichier en y incorporant des mfc

le mot de passe est "leg509"

merci pour tout 

Éric

Mike-31 · Answer

récupère ton fichier voir s'il répond à tes attentes

https://www.cjoint.com/?0klpswGNYTq

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

re

il y a un petit souci, les lignes 23à27 sont bloquées sur toutes les colonnes, comment je fais pour les débloquées,

sinon, je dirai que c vraiment parfais c'est vraiment ce que je voulais 

encore merci

Éric

Mike-31 · Answer

Re, 

Bizarre sur mon fichier tout est bon, voila le fichier contrôlé 

https://www.cjoint.com/?0klpQqBkMj 

Autrement pour déverrouiller des cellules, il faut commencer par déprotéger la feuille 
Outils/Protection avec ton mot de passe leg509 
ensuite mettre la ou les cellules à déverrouiller en surbrillance et 
Format/Cellule/onglet Protection/décocher Verrouillée 

ne pas oublier de reprotéger la feuille sans se tromper sur la saisie du mot de passe sinon le code macro plantera 
Outils/Protection avec ton mot de passe leg509 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

re 

c'est nickel chrome, j'ai du faire une mauvaise manip

maintenant, je dis que c résolu sur le message que que tu m'as envoyé

merci encore

Éric

eric2027 · Answer

bonjour Mike

je viens encore t'ennuyer avec ma feuille, je voudrais faire 2 classeur avec sur le 1er, décembre 2010, le 2ème janvier 2011, je voudrais que les liens se fassent automatiquement parce que sur la cellule c42 du 1er classeur, il y aura un chiffre qui doit se répercuter en c42 sur le 2ème classeur, là j'ai réussi avec des liens mais il faut que j'ouvre le 1er classeur pour que cela fonctionne, donc est ce qu'il y a une possibilité pour ne pas ouvrir le 1er fichier

merci 

Éric

Mike-31 · Answer

Oui tout à fait, par code VBA il faut que les deux classeurs soit dans le même répertoire 

Nomme la cellule C42 du fichier 1 exemple Source 

dans la Thiswokbook du module Visual Basic  


Tu as ce code 

Private Sub Workbook_Open() 
    Call StopClign 
    Call Clign 
End Sub 

il faut rajouter 
Dim chemin As String 
chemin = "'" & ThisWorkbook.Path & "\" 
Range("C42") = ExecuteExcel4Macro(chemin & "\NOM DU PREMIER CLASSEUR.xls'!source") 

ce qui te donnera 

Private Sub Workbook_Open() 
Dim chemin As String 
chemin = "'" & ThisWorkbook.Path & "\" 
Range("C42") = ExecuteExcel4Macro(chemin & "\NOM DU PREMIER CLASSEUR.xls'!source") 
Call StopClign 
Call Clign 
End Sub 

A la création ouvres les deux fichiers

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

re

j'ai oublié de préciser que la valeur c42 du 1er classeur doit se retrouver en b8 sur le 2ème classeur

@+ Éric

eric2027 · Answer

re 

j'ai un souci, quand je copie la macro dans janvier, il me donne comme un message ' erreur d'exécution '1004'
erreur définie par l'application ou par l'objet

je t'envois ce que j'ai fait

Private Sub Workbook_Open()
Dim chemin As String
chemin = "'" & ThisWorkbook.Path & "\"
Range("C42") = ExecuteExcel4Macro(chemin & "\Décembre.xls'!c42")
Call StopClign
Call Clign
End Sub 

sur le mois de Décembre, j'ai fait

Private Sub Workbook_Open()
Call StopClign
Call Clign
End Sub 

j'ai bo faire des tests et des tests mais j'ai toujours ce message

c ou que je me suis trompé

Éric

Mike-31 · Answer

Sur le fichier décembre, mieux vaux nommer la cellule C42 comme je te l'ai expliqué. Clic sur la cellule C42 Insertion/Nom/Définir nomme la source
ensuite ouvre le fichier deuxième fichier et remplace le code comme je te l'ai également expliqué par celui ci que j'ai actualisé (cellule B8 du 2éme fichier est égale à C42 du premier fichier)


Private Sub Workbook_Open() 
Dim chemin As String 
chemin = "'" & ThisWorkbook.Path & "\" 
Range("B8") = ExecuteExcel4Macro(chemin & "\Décembre.xls'!source")
Call StopClign 
Call Clign 
End Sub

eric2027 · Answer

re 
j'ai fait ce que tu m'as dit et j'ai le même message, voila ce que j'ai fait

momn code source est " eric"


Private Sub Workbook_Open()
Dim chemin As String
chemin = "'" & ThisWorkbook.Path & "\"
Range("B8") = ExecuteExcel4Macro(chemin & "\Décembre.xls'!eric")
Call StopClign
Call Clign
End Sub

Mike-31 · Answer

Bizarre, j'ai testé le code à plusieurs reprises sans problème. Je pense que tes ActiveX de Microsoft ne sont pas activés 

sans voir ta configuration et éviter les erreurs, on va le faire par formule 

remet le code qui va bien comme il était 

Private Sub Workbook_Open()  
Call StopClign  
Call Clign  
End Sub  


ensuite ouvre les deux fichiers, pointe la cellule C42 et Edition/Copier 
pointe la cellule B8 sur le deuxième fichier Edition/Collage Spécial clic sur Avec Liaison et Ok 

A chaque ouverture du deuxième fichier mettre à jour les liaisons
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

re

super ça fonctionne, j'ai une dernière question à te poser "est il possible de mettre en grisé annulé quand tu veux enregistrer sous ou enregistrer, ou encore enregistrer automatiquement dès que l'on fait une manip sur le fichier, c a d que quand on rouvre le fichuer, ce dernier apparaisse avec les nouvelles modifs

merci pour la solution que tu as trouvé

Éric

Mike-31 · Answer

Re,

Désactiver la touche Annuler est dangereux pour les utilisations futures, mais il est possible d'activer un enregistrement automatique suivant critère sous VBA, soit lorsqu'on change des valeurs dans des cellules bien précise ou losque qu'on déplace la cellule active etc ... ou à la fermeture du fichier sans que l'on ai à répondre par oui ou non voulez vous enregistrer les modifictions apportées ...

eric2027 · Answer

re

ok pour la 2ème solution

activer un enregistrement automatique suivant critère sous VBA, soit lorsqu'on change des valeurs dans des cellules bien précise ou lorsque qu'on déplace la cellule active etc ... ou à la fermeture du fichier sans que l'on ai à répondre par oui ou non voulez vous enregistrer les modifications apportées ... 

Éric

eric2027 · Answer

sur les cellules b9;b39 c9:c39 d9;d39 e9;e39 f9:f39 g9:g39

sur le fichier lequel nous avons travailler

Éric

Mike-31 · Answer

Re, 

Dans le module Visual Basic (clic droit sur un onglet de feuille/Visualiser le code) 
double clic sur Thiswokwook ou clic et Entrée 

tu trouveras ce code, ajoute la ligne en gras ActiveWorkbook.Save


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    On Error Resume Next 
    If Not Intersect([B9:B39,C9:C39,D9:D39,E9:E39,F9:F39,G9:G39], Target) Is Nothing Then 
    Target.Offset(0, 9) = Target.Offset(0, 9) + 1 
    If Target.Offset(0, 9) >= 2 Then 
    Target.Interior.ColorIndex = 38 
    If Target = "" Then 
    Target.Offset(0, 9) = "" 
    Target.Interior.ColorIndex = xlNone 
    End If 
    End If 
    End If 
    Call Protection_Cellule_Couleur 
    Call StopClign 
    Call Clign 
    ActiveWorkbook.Save
End Sub 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eric2027 · Answer

bonjour Mike

cool ça fonctionne par contre sur mes 2 feuilles "décembre, janvier" quand je rentre une donnée en b40 decembre et j'enregistre et que je veux ouvrir janvier, il me demande de mettre ou non a jour, est il possible de ne pas avoir ce message et que ça se mette à jour automatiquement

Éric

eric2027 · Answer

salut Mike

un autre petit souci, je voudrais qu'en cellule c42, il y ai un décompte d'heure ne pouvant aller au dessus de 30 et bloquer cette cellule à 30 maxi

Éric

Mike-31 · Answer

Salut,

Qu'as tu en C42, une formule de calcul exemple =somme(C9:C40) ou tu saisis les données manuellement

eric2027 · Answer

re

en c41, je ne dois pas dépasser 25, si ça dépasse 25 le surplus  va en c2 d'ou la formule

=B40:E40-C41 qui me donne la différence en c42

mais en ce c42 je voudrais une formule qui me permette d'aller jusqu'à 30 et bloquer à 30, même si il y a plus 

Éric

Mike-31 · Answer

Il doit y avoir une erreur de fichier ou explique moi, sur mon fichier, 
en B40 j'ai cette formule =SOMME(B9:B39)
rien en C40 ni D40, D40 et E40 !

en B41 j'ai =SOMME(B10:B40) (même formule qu'en B40 seulement un décalage d'une cellule dans ce calcul la cellule B40 est additionnée deux fois bizarre !

tu peux remettre un fichier avec tes formules sur un post

eric2027 · Answer

re 
en effet j'ai essayé d'améliorer mon fichier de base, je oublié de te l'écrire, aussi je t'envoie mon nouveau fichier sur cjoint

eric

eric2027 · Answer

re 

ah oui pour le 2ème dial, vu que le 1er était résolu, j'ai pensé que je n'avais plus accès à la discution, et comme je ne savais comment te contacté autre que sur un autre post, j'en fait un autre

Éric

Mike-31 · Answer

Tu n'as pas collé le lien pour récupérer ton fichier

eric2027 · Answer

ça me dit ça

"Impossible d'accéder au presse-papier"

Mike-31 · Answer

Il est possible que la mémoire soit saturée, éteint ton ordi et ralume le

ensuite clic sur ce lien
https://www.cjoint.com/ 

clic sur Parcourir pour sélectionner ton fichier 
Clic sur créer le lien 
mets en surbrillance le lien bleu généré en haut de la page, clic droit dessus/copier 
vas sur le post que tu veux m'envoyer et clic droit coller

eric2027 · Answer

re

je pense que c ok, j'ai fait sur mozilla et sur explorer internet

Éric

eric2027 · Answer

re

je pense que c ok


https://www.cjoint.com/?0kpqcJTzbPb

Mike-31 · Answer

En C35 la formule est
=SI(SOMME(B34:E34)>25;25;SOMME(B34:E34))

en C36 la formule pour avoir les reliquat de C35 est 
=SI(SOMME(B34:E34)>25;SOMME(B34:E34)-25;"")

et si tu veux limiter la valeur à 30 dans C36 la formule est
=SI(SI(SOMME(B34:E34)>25;SOMME(B34:E34)-25)>30;30;SI(SOMME(B34:E34)>25;SOMME(B34:E34)-25))

eric2027 · Answer

re

le résultat des reliquats est en c36, il faudrait que le décompte en c35 se fasse comme suit, si j'ai 26 en c35 alors j'ai 1 en c36 et si j'ai 27 en c35 alors j'ai 2 c36 etc.. jusqu'à 30 et bloquer 30

Éric

eric2027 · Answer

bonjour Mike,
*
ne tient pas compte de mon précédant message, j'ai trouvé la soultion, t'es génial, je commence à comprendre, mais il y a pas de mal de boulot, ça commence à rentrer

si j'ai un autre soucis, je te pose les questions sur ce post ou j'ouvre un autre dialogue

je te renvoie la solution de mon problème, comme je suis brouillon dans ma tête
j'ai du mal m'expliquer

=SI(SI(SOMME(B34:E34)>25;SOMME(B34:E34)-25)>30;30;SI(SOMME(B34:E34)>25;SOMME(B34:E34)-25)) c'était la tienne

j'ai juste remplace 30 par 5 et le décompte se fait, c trop cool

je te remercie encore pour ta patience

Éric2027

eric2027 · Answer

re
 ne serait il pas possible qu'en cellule c36, le décompte se fasse à partir de 0 parce que le 5 s'affiche

si en c35 =25, c36 =0 et non c36=5
si en c35=26, c36=1

et ce jusqu'à 5 et on bloque 5

Éric

Mike-31 · Answer

Re,

En C36 colle cette formule

=SI(ET(SOMME(B34:E34)>=25;SOMME(C34:E34)-25>=30);30;SI(ET(SOMME(B34:E34)>25;SOMME(C34:E34)-25<30);SOMME(B34:E34)-25;""))

eric2027 · Answer

re 

je te remercie, cela fonctionne à merveille

t'as pas répondu au cas ou j'aurais un autre soucis, je te contact sur ce même post ?

et merci encore 

Éric2027

Mike-31 · Answer

Tant qu'il s'agit du même fichier reste sur cette discussion, sinon ouvre une autre discussion

eric2027 · Answer

re

ok, merci

Éric

eric2027 · Answer

salut Mike 

une autre question, je voudrais que le résultat qui est en b2 se retrouve aussi en c35 

est ce possible 

merci 

Éric

Mike-31 · Answer

Re,

En B2 la cellule est colorée ocre, et tu veux saisir une valeur, jusque là je comprends
par contre en tu as cette formule

=SI(SOMME(B34:E34)>25;25;SOMME(B34:E34))

Alors bien sur il est possible de mettre la valeur B2 en C35 avec une conditionnelle supplémentaire ou l'ajouter à la formule. Dans les deux cas explique ce que tu souhaites faire

eric2027 · Answer

re

je voudrais que le chiffre qui se trouve en b2 qui est le reliquat du mois dernier apparaisse aussi c35 du mois suivant, ça ok "collage avec lien", 
mais je voudrais que le résultat se déduise en c35, automatiquement

ex : sur le mois de novembre, j'ai un reliquat de 5, alors il faut que je les déduise d'office sur les 30 maxi du mois de décembre

Éric

Mike-31 · Answer

OK je comprends mieux, je te regarde la formule en début d'après midi

Mike-31 · Answer

Encore une chose qui me chiffonne en regardant de près tes explications

En C35 on affiche la somme de B34 = E34 jusqu'a concurrence de 25, l'excédant va en C36 jusqu'a concurrence de 30

Et dans tes explications 
sur le mois de novembre, j'ai un reliquat de 5, alors il faut que je les déduise d'office sur les 30 maxi du mois de décembreHors en C35 il est question de Maximum 25, par contre en C36 on retrouve bien maximum 30

Peux tu reprendre tes explications qu'elles soient bien claire

eric2027 · Answer

re 

en novembre j'ai 25 enc35, et 5 en c36, ce qui fait 30, les 5 enc36 vont sur décembre en b8, je voudrais que les 5 en b8 se retrouve aussi en c35, donc je commence le mois de décembre en c35 avec 5, alors je ne pourrais faire que 20 c35 puisqu'il y aura déjà 5, donc ça fera 25, et je pourrais poursuivre en c36 avec 5 maxi ce qui me fera bien mes 30 et ainsi de suite sur les autres mois  

Éric

Mike-31 · Answer

Re,

Si j'ai bien tout compris,

en C35

=SI(SOMME(B34:E34;B2)>25;25;SOMME(B34:E34;B2))

en C36

=SI(ET(SOMME(B34:E34;B2)>=25;SOMME(C34:E34;B2)-25>=30);30;SI(ET(SOMME(B34:E34;B2)>25;SOMME(C34:E34;B2)-25<30);SOMME(B34:E34;B2)-25;""))

eric2027 · Answer

re 

c'est parfait, je te remercie encore pour tout ce travail que tu as fourni 

Éric

eric2027 · Answer

salut Mike

un truc qui m'intrigue, quand j'ouvre la feuille de janvier, le message "mettre à jour ou pas" si je ne mets pas à jour le résultat de décembre en  c36 ne vient pas en janvier en b2

ne serait-il pas possible que cela se fasse automatiquement lors de l'ouverture sur la feuille, dès que j'ouvre janvier que le résultat apparaisse en b2

Éric

Cellule coloriée si reactivé

99 réponses

Discussions similaires

Newsletters