Formule dans excel Résolu

Question

Bonjour, je me monte un suivi de frais annuel et je bloque avec le code VBA qui ne me prend plus de ligne. Je ne sais pas si j'ai bien fait de passer par cette formule.
J'ai crée dans mon tableau une colonne qui me valide mon affichage de frais par un V, sur celle d’a coté par un D je renvoi la somme sur le mois d’après (payement différé) mais il faut que le V s'annule pour ne pas avoir le montant dans le mois courant.
Je suis bon jusqu’à la ligne 350 mais après impossible de continuer. Je suis pret à joindre mon fichier, Merci pour votre future aide.

via55 · Answer

Bonjour

Pourquoi 2 colonnes déjà ? La même colonne ne pourrait-elle contenir V ou D selon le cas ?
Le VBA est-il vraiment utile ?
Pour joindre un fichier tu le poste sur cjoint.com, tu fais créer un lien que tu copies et reviens coller ci
Clmnt
Via

kiko8111 · Answer

Bonjour, merci d’être si rapide.
 Ma colonne en V valide le montant que j'ai rentré et il est compté dans le mois. La colonne en D diffère la valeur du montant au mois d'après (payement différé).
Il faut que si le V est actionné il puisse être supprimé par le D. Je n'ai pas essayé dans une même colonne mais pourquoi pas. Je vais le mètre disponible

https://www.cjoint.com/c/LBkpGJyzzoy

kiko8111 · Answer

Je viens de tester en basculant la sélection en K362 de K vers I cela fonctionne mais est il possible d'avoir le V en couleur verte et le D en rouge. J'ai cherché à obliger c'est deux colonnes à être automatiquement en majuscule mais j'ai due abandonner, Merci

via55 · Answer

Je ne comprends pas bien comment fonctionne ton fichier

Pour colorer le V ou le D c'est faisable par mise en forme conditionnelle

Pour forcer l'entrée en majuscule c'est possible avec la Validation de données, par exemple pour une plage commençant en C8, sélectionner la plage - Données - Validation de données - Autoriser : Personnalisé et dans lFormule entrer : =EXACT(MAJUSCULE(C8);C8)

Possible aussi de mettre la plage en majuscules par VBA, voir tuto : https://www.youtube.com/watch?v=nhwqihGR4KA

kiko8111 · Answer

Merci, je vais regarder. Je vous tiendrai informé de ma progression.
Je fonctionne beaucoup avec des exemples

kiko8111 · Answer

Re, j'ai fait un fichier plus simple. Tout est dedans.
Merci, je suis vachement perdu
https://www.cjoint.com/c/LBkuq3Qkl4y

via55 · Answer

Ton fichier me perd un peu aussi !!
 Regarde déjà si cela te convient :
https://www.cjoint.com/c/LBku52DGuPW

kiko8111 · Answer

Bonjour, Merci c'est très bien avec les infos sur le tableau. J'ai réussi est c'est très propre.
Il ne me manque plus à forcer excel à me donner en affichage lorsque je rentre une lettre en minuscule en Majuscule, je n'ai pas réussi ou bien formulé dans la mise en forme conditionnelle :
Si vous avez je suis preneur - Merci

kiko8111 · Answer

Re, je viens de tester une info que j'ai trouvé sur le net mais cela ralenti mon pc :

Range("E4").Value = StrConv(Range("E4").Value, vbUpperCase)

Je vais si je ne trouve rien mettre une police plus adapté

via55 · Answer

Bonjour

Dans le fichier que j' t'ai envoyé en exemple pour obliger à entrer en majuscule dans la colonne G, sélectionner cette colonne puis Données - Validation de données et :


Sinon tu peux aussi mettre une liste déroulante dans toutes les cellules de la colonne avec en choix V, D (en majuscules) ou rien 

Cdlmnt
Via

kiko8111 · Answer

Bonjour, c'est vraiment super. J'ai rentré sur liste déroulante V D et zone libre afin de revenir à zéro.
C'est Hyper Propre, encore Merci

Je vais essayer de trouver la possibilité de sélectionner par V mais sur l'ensemble de tous les jours. Seulement j'ai des lignes entre chaque mois et je ne sais pas formuler c'est vides.

Si cela vous intéresse je peux voir faire passer le fichier : fini les problèmes de suive de compte. Manque plus que la retraite augmente.

Cordialement, Christophe

via55 · Answer

Bonjour

Bien !
Que veux tu dire  par "Je vais essayer de trouver la possibilité de sélectionner par V mais sur l'ensemble de tous les jours" ?
Selectionner pour ne laisser apparaitre que les lignes avec V ? Cela passe par un filtre du tableau pour masquer les autres lignes
Ne faire la somme que de lignes avec V ? cela passe par une formule SOMME.SI
Dans les deux cas peu importe les lignes vides, alors quel est le souci avec ces lignes vides ?

Cdlmnt
Via

kiko8111 · Answer

Re, mon tableau est divisé en 12 pages. Chaque page intègre un mois et entre il y a des lignes autres .
C'est surtout pour un calcul sur plusieurs mois : pouvoir prendre en compte toutes les valeurs en V et surtout actionner leur sélection pour que la somme soit prise en compte (prévisionnel momentané pouvant être annulé rapidement .
Plus simple et concret : je joint mon fichier

https://www.cjoint.com/c/LBmt5PTv8Ay

via55 · Answer

Même avec ton tableau je ne comprends pas mieux ce qui te coince
En bas de chaque mois tu as par formule le total des valeurs en V, si tu veux les cumuler avec celles du mois suivant pour avoir un total des validés à un instant T il suffit de les ajouter quelque part au début  (nouvelle colonne ?) comme tu ajoutes les différés et de sommer par ligne dans cette nouvelle colonne
ou alors je suis à côté de la plaque ??
Donne moi un exemple précis et chiffré que je puisse comprendre ☺

kiko8111 · Answer

Bonjour, maintenant que nous avons la même chose sous les yeux ce sera plus facile à expliquer pour moi. 
 
Mon tableau peut me servir comme prévisionnel en y insérant le crédit et débit régulier que l'on a chaque mois et cela peut être différent chaque mois .
Le but c'est admet-on, sur la case K432  pouvoir mettre une liste déroulante qui me sélectionne ou pas l'ensemble des colonnes en K qui elles déclenchent les opérations.

via55 · Answer

Re

Je dois être bouché à l'émeri je ne comprends toujours pas à quoi tu veux arriver
Que comporterait ta liste déroulante ? le choix V D ?
 "une liste déroulante qui me sélectionne ou pas l'ensemble des colonnes en K" Que veux tu dire par là, que par exemple si tu sélectionnes V, seules les lignes avec V seront visibles, les autres étant masquées (cela ça se fait par un filtre) ?

kiko8111 · Answer

Re, tu as pu remarque que je valide par V (opération dans le mois) ou par D opération reportée sur le mois suivant.
Admet-on que le mois de février soit presque complet sauf deux montants non validés.

J'ai déjà renseigné sur les mois suivant mes dépenses courantes.
Mais le montant fin décembre n'est pas complet car deux montant ne sont pas pris en compte.
J'aimerai, si cela est possible par le biais de la "bouton" V que je veux créer qu'il m’annule les opérations validées  en K, me valide toutes la colonne (sur les mois, dont mon problème sur les lignes entre dont je t'ai déjà parlé). Tout cela pour avoir un résultat global des dépenses a la fois existantes et prévus. Bien sur avec possibilité de revenir au point initial afin d’a nouveau m'éviter de revoir les opérations validées.
J'espère avoir répondu a ta question.

Pour info, en tant qu'ancien peintre en bâtiment la toile émeri comporte des aspérités qui laisse passer l'air, donc tout n'est pas perdu.
Bon Dimanche, Merci.
Christophe

Si cela te semble trop compliqué faut pas hésiter à me le dire. Je comprendrai.

via55 · Answer

Je n'arrive toujours pas bien à comprendre et je ne pense pas que ce une bonne idée (ni vraiment faisable) d'annuler les validations puis de les remettre, en effet apparemment tu veux  la somme des débits, validés ou non
Pour l'instant tu as 2 fois la somme des débits validés en I32 et L32 par exemple, tu pourrais consacrer une des deux cellules à la somme des débits du mois validés ou non en faisant =SOMME(L4:L32)
Dans une cellule en dessous tu peux aussi en plus cumuler ce total avec celui du mois précédent pour avoir à la fin de chaque mois le total des débits de l'année

kiko8111 · Answer

Re, effectivement tu as raison. Chaque mois j'ai la somme des débit ou crédit en D et L.
Il suffit que je mette une case en addition des 12 mois et c'est bon.
A vouloir bien faire je pousse trop loin le bouchon.
Je vais me consacrer au juste fait de remplir avec ce qui est établi, prendre n peu de recul car comme tu as pu le constater : trop c’est trop.
Encore un grand merci, cela m'a permis de trouver des solutions. Je reviendrai juste pour des formules au besoin (murement réfléchis).
Bon Dimanche,
Christophe

via55 · Answer

Bon ☺

Oui comme on dit le mieux est souvent l'ennemi du bien, mais quand on est à fond dans le truc on a parfois tendance à compliquer, je connais ça !

N'hésite pas à me recontacter au besoin, ce sera avec plaisir

Bon dimanche également
Via

kiko8111 · Answer

Bonjour, pour information j'ai bien réussi à incorporer les possibilités d'investissement sur les colonnes validés et non validé : c'est ce qui me permet d'approfondir mes prévisions.

Afin de sécuriser mes données rentrées chaque fin de mois je débloque ma feuille et dans format de cellule/ protection je verrouille manuellement les cases, c'est pas très Pro.
Je vais essayer par le biais d'un menu déroulant (V ou "rien") de le faire automatiquement par celui ci.
Je ne sais pas si il existe un "ordre" en formule pour protéger. 
Exemple ="protection verrouillé sur ensemble des case que je désire sur le mois.

Je ne doute pas que tu connais ceci ou une autre façon de réaliser.

A bientôt, Christophe

via55 · Answer

Bonjour 

Non pour protéger cela ne peut se faire par formule c'est bien dans format de cellule que cela se passe puis en protégeant la feuille mais tant que la feuille n'est pas protégée la protection ne s'applique pas on peut modifier les cellules.
Donc pour moi la manip la plus simple c'est de protéger toutes les cellules  des colonnes désirées puis après avoir travaillé sur la feuille déprotégée, protéger la feuille pour sécuriser les cellules

Cdlmnt
Via

kiko8111 · Answer

Re, je viens de trouver cela :
https://www.excel-downloads.com/threads/raccourci-pour-oter-protection-feuille.187319/
Avec le raccourci clavier ALT+O+E+F
Le but pour moi c'est à la fois de rassurer ma doublure afin quelle n'ai pas de crainte sur la modif ancienne et pour moi aussi en travaillant sur mon téléphone (la barre déroulante est très bien)
Si vous pensez à une autre façon je suis preneur. Merci

via55 · Answer

Même raccourci pour protéger la feuille
Non rien d'autre ☺

kiko8111 · Answer

Même pas possible dans une macro pour chaque mois ?

via55 · Answer

Tu peux faire la manip pour chaque mois en enregistrant chaque fois la macro puis après tu attribues un raccourci clavier à chaque macro

kiko8111 · Answer

Je suis en train de regarder  :
https://forum.excel-pratique.com/excel/verrouillage-conditionnel-13995#p81993
avant de me lancer dans des macro qui risquent de ma ralentir mon téléphone.
Je donnerai des nouvelles. 
Merci
Christophe

via55 · Answer

Oui la solution par Validation de données est bien mieux qu'une macro

kiko8111 · Answer

Cela fait plaisir d'arriver presque au bout.
Effectivement cela va empêcher des erreurs de saisie SI :

Y a t'il la possibilité dans la validation des données d'entrer plusieurs cases à la suite, cela m'évitera beaucoup de travail et j'ai bien peur que Excel me limite au bout d'un moment.

Autre chose, comme vu dans ma capture j'ai des cases en vert V et l'autre en rouge D. Dans ma nouvelle liste impossible d'avoir les deux écriture différentes en couleur 'je passe à coté de quelque chose mais quoi ? 

Merci de ta réponse  Bientôt la Quille.
Christophe

kiko8111 · Answer

Pour la mise en forme je viens de trouver. 
Seul me manque c'est deux polices aux couleur différentes, jE SUIS PERDU !

via55 · Answer

Pour les couleurs différentes c'est par mise en forme conditionnelle que ça se passe
Va sur une des cellules avec une écriture en couleur puis dans le Ruvan Accueil - Mise en forme conditionnelle - Gérer les régles pour voir quelle(s) MFC existe(nt)
De quelle nouvelle liste parle-tu ?

kiko8111 · Answer

Bonjour, je te remercie mais j'ai trouvé. Reste plus qu'a animer les cellules nommées KIKO afin que je pense à déverrouiller (même moi je n'ai pas le réflexe mais c'est incontournable et très important).
Excel est mon ami mais je suis loin de le maitriser.
Tu as pu constater que j'ai laissé libre deux colonnes nommées Code. Je pense essayer de rentrer des codes afin de pouvoir saisir en Désignation mes infos plus rapidement.
Si en conseil tu as une marche à suivre je te suivrai. 
Merci, Christophe
https://www.cjoint.com/c/LBqnLE6yJNy

via55 · Answer

Bonjour Christophe

Que veux tu dire par "animer les cellules nommées KIKO" ?

Oui des codes peuvent simplifier, en ce cas tu fais un tableau à côté ou sur une autre feuille avec les codes dans une colonne et les désignations correspondantes dans l'autre, par ex Al  Alimentation   ou  1  Alimentation.
Tu sélectionnes ensuite tout ton tableau et tu le nommes par exemple codage ce qui te permettra dans la colonne Code de mettre dans toutes les cellules une liste déroulante ayant pour Source codage et ensuite dans la colonne Désignation par formule RECHERCHEV récupérer la désignation correspondant au code par ex en C5 =SI(F5="";"";RECHERCHEV(F5;codage;2;0)
Tu peux n'avoir qu'un seul tableau de codage avec tous codes et désignations débit crédit confondus ou faire deux tableaux distincts mais en ce cas il faut deux nom différents, par exemple codageC et codageD
Soit tu établis le ou les tableaux de manière quasi définitive (tu pourras quand même rajouter des lignes à condition de changer la plage de données dans le Gestionnaire de noms) 
sois tu veux pouvoir souvent rajouter des désignations et tu peux nommer la plage de manière dynamique dans le Gestionnaire de noms et elle s'adaptera automatiquement, si ça t'intéresse dis moi je te ferais un exemple

Mais bon ce serait plus simple de faire directement une liste de désignations sans code et mettre directement des listes déroulante en colonne C et M ( liste ou listes qui peuvent être dynamiques comme dit précédemment)

kiko8111 · Answer

Re, oubli pour l'animation c'est trop lourd je pense.
(je pensais à un véliplanchiste afin d'attirer mon regard et penser à verouiller ou inversement.
Ta proposition m'intéresse anormalement car j'arrive avec modèle à construire mais sans je ne sais comment bien commencer sans devoir tout recommencer à zéro.
C'est Super ta disponibilité.

Juste question :
Tu penses vraiment quoi de mon fichier ?
Christophe

via55 · Answer

Pour l'animation ok mais tu peux par macro faire verrouiller la feuille avant la fermeture du classeur comme sécurité
Il suffit dans l'éditeur VBA d'ouvrir la page ThisWorbook (en cliquant sur ce nom dans l'arborescence) et de coller ce code :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Frais annuel 22").Protect
End Sub

Pour déverrouiller pas besoin d'alerte on voit bien quand on est bloqué

Pour ce qui est des listes déroulantes que choisis tu ? listes avec code ou listes sans code ? liste normale ou liste dynamique ?

Ton fichier est bien, on doit pouvoir trouver tout fait sur internet mais c’est toujours plus plaisant de faire soi même ☺

Cdlmnt
Via

kiko8111 · Answer

J'ai pas bien suivi sur le verrouillage automatique , surtout comment l'enlever.

En ce qui concerne la liste déroulante je préfère liste avec code

Je ne sait pas bien la différence en liste normale ou déroulante, pour moi si j'ai à travailler sur mon téléphone il faut que ce soit moins compliqué

via55 · Answer

Pour déverrouiller après verrouillage automatique c'est manuellement comme tu fais d'habitude avec le raccourci dont tu parlais hier
Ce n'est pas entre liste normale ou liste déroulante le choix, 
 dans tous les cas je parlais d'une liste pouvant alimenter une liste déroulante dans ton tableau, 
mais cette liste peut être statique (sur une plage définie ou nommée de la feuille ou d'une autre feuille comme tu as la plage DV en P8:P9,
 ou bien une liste que tu peux rallonger à loisir et qu'on rend dynamique dans le Gestionnaire de noms, c'est à dire que le nom attribué prendra en compte une plage variable selon le nombre de lignes qu'elle contient, donc tu peux rajouter des données dans ta liste de base, la liste déroulante qui fera appel à la plage nommée suivra la mouvement et proposera toutes les données)

Mais je m’aperçois qu'on a souci pour avoir une liste déroulante dans les colonnes de Codes parce que sont justement celles que tu bloques avec la Validation de données personnalisée et la formule =$A$3<>"KIKO" et qu'on ne peut mettre 2 validations des données pour la même plage

Donc on oublie la liste déroulante dans les colonnes codes, tu rentreras le code à chaque fois, ce qu'il faut c'est faire le tableau de correspondance code -désignations (et là pas besoin de liste dynamique) et par recherchev faire afficher la bonne désignation

Je t'ai fais un exemple de début de tableau pour les débits et de la formule adéquate 

J'ai mis aussi la macro qui va à la fermeture du classeur, mettre toutes les cellules mensuelles sur KIKO puis protéger la feuille. Après tu fais tous les déverrouillages manuellement

https://www.cjoint.com/c/LBqrTPUqmOW

kiko8111 · Answer

Mais je m’aperçois qu'on a souci pour avoir une liste déroulante dans les colonnes de Codes parce que sont justement celles que tu bloques avec la Validation de données personnalisée et la formule =$A$3<>"KIKO" et qu'on ne peut mettre 2 validations des données pour la même plage 
Pour cela j'ai la possibilité de débloquer la colonne.
J’ aurez bien aimer conserver cette liste déroulante dans J et F car elles sont séparées du V en colonne E et K

via55 · Answer

Oui tu débloques la colonne en passant de KIKO à VALIDE donc tu peux écrire dedans, mais il ne peut y avoir de liste déroulante qui nécessite une Validation de données et la Validation de données est déjà prise par ta validation Personnalisée !!
Il faut choisir ou le blocage des cellules par Validation de données ou la liste déroulante, qui prime ?

Si tu veux conserver la liste déroulante il faut envisager le blocage autrement :   ce serait alors par macro qui au choix de KIKO verrouillerait les cellules des colonnes F et J du mois et protégerai la feuille. Pour rétablir l'accès aux cellules il faudrait alors déprotéger la feuille et passer de KIKO en VALIDE où la même macro cette fois déverrouillerait les cellules

 Qu'n dis tu ?

kiko8111 · Answer

OUF! Tu me donnes tellement d'informations que je dois prendre un peu de recul afin d’analyser l'ensemble.
(je viens de me faire un petit apéro : + de 50 lignes dans ma base- pourquoi pas des sous catégorie, mais liste déroulante sur tel portable .
Tu me marques : Il faut choisir ou le blocage des cellules par Validation de données ou la liste déroulante, qui prime ? 
J'ai pas tout suivi,...
Je vais enregistrer correctement mon passe temps (faut pas oublier que je suis en retraite, "avec une grosse passion pour la simulation de vol"), me servir un second apero (on sait jamais si demain...)
Je commence à perdre pied,
Christophe

ps :  MERCI

kiko8111 · Answer

Re, je vais voir avec ton exemple demain. J'ai fais le tes en suppriment les formules en Code, cela fonctionne bien.
Le top serais d'avoir des sous dossier dans le choix des articles en Code.
Merci, bonne soirée. Je sature = j’arrête.
Christophe

via55 · Answer

Voilà l'exemple
https://www.cjoint.com/c/LBquDgkzf2W

Pour les sous-dossiers ce n'est pas possible dans la même cellule, il faudrait une cellule Code pour choisir un code et dans la colonne à côté une autre liste déroulante présenterait uniquement les sous-codes associés au code choisi et c'est ce choix dans cette seconde liste qui permettrait de choisir la désignation, mais ça te fait modifier tout ton tableau d'une part et c'est une autre gestion pour les 2 listes déroulantes en cascade, donc vois si ça vaut le coup ...

Bonne soirée aussi
Via

kiko8111 · Answer

Je réponds de sur mon téléphone.
Je penses que c'est faisable d'élargir mon tableau, surtout que ce ne sera pas trop important et comme j'ai au moins 50 choix cela me permettrait de les regrouper par genre.
La nuit porte conseil, je vais faire dormir mes yeux.
Demain j'ai un RDV, matinée sans pc
Merci, Christophe

kiko8111 · Answer

Bonjour, c'est vraiment très bien avec exemples. Bien sur j'ai des petites questions :

Protection par macro:
/J'ai voulu protéger en colonne E G L M en rajoutant des plages (voir capture) mais cela n'a pas l'air de fonctionner.

Code :
/Pour la base de donné,  j'ai pas encore regarder mais je vais avoir besoin de plus de plages en CODES (S2).
/Je travaille pour le moment sur la même feuille mais dans le futur il serait bien de pouvoir la déplacer dans une autre feuille. Si je sélectionne l'ensemble/coupe et colle sur une autre feuille les formules des cases vont s'adapter ?
/Dans la colonne S/C j'aimerai rajouter un choix vide comme dans Code en L.
/Dans la sélection en S/C est il possible d'avoir une sélection vide avec possibilité de rentrer un commentaire ?
Merci 
Christophe

kiko8111 · Answer

Re, la je ne comprend pas le sans des formules en L8

=DECALER($U$3;;EQUIV(K8;$V$2:$AB$2;0);INDEX($V$1:$AB$1;;EQUIV(K8;$V$2:$AB$2;0)))

kiko8111 · Answer

Re, certaines choses résolues, voir capture.
En revanche j'ai oublié de demander à quoi se rapporte les chiffres 3 5 4 en ligne 1 sur V X Z AB AD
Merci, j'ai vraiment du travail à tout mettre dans ma base en restant simple mais personnellement cela fait plaisir.
Christophe

kiko8111 · Answer

Bonjour, juste pour tenir informé de mon avancement. Bien rentré dans DATA, j’ai vu le principe et pourrai y revenir afin d’améliorer.
Juste en G et H 5 je n'ai pas de barre
Autrement c'est SUPER

Manque plus à me lancer sur le code de protection VBA  et la continuité des mois suivant, vraiment pas sur de ma personne.
J'ai rajouté deux colonnes commentaire car en travaillant sur le téléphone c'est moins compliqué de d’insérer un commentaire.

J'ai passé plus de 20 ans sur simulateur (concorde) avec lequel je me suis beaucoup battu mais je l'ai dompté. Il me reste moins d'années pour Excel !
Bien encore Merci,
Christophe

https://www.cjoint.com/c/LBsh70fgAqy

kiko8111 · Answer

Re VIA, je pensai avoir fini de te solliciter mais j'ai une inconnu.
Tu verras sur le fichier joint la protection par KIKO fonctionne parfaitement de la colonne B à H, puis de L à R cela aussi mais en passant par VALIDE de B à H parfait mais de L à R rien ne se passe.
J'ai essayé en déverrouillant ou pas mais c'est pareil.
Pourquoi ne pas avoir appliqué la formule de la même rangé, cad :
  Case 3
plage1 = "B5:C34"
plage2 = "E5:H34"
plage3 = "L5:N34"     je désire garder O5 modifiable pour janvier
plage4 = "Q5:R34"

Case 38
plage1 = "B40:C70"
plage2 = "E40:H70"
plage3 = "L40:O70"
plage4 = "Q40:R70"

Pourquoi en Crédit cela fonctionne et en Débit on a un bug

En attente, Merci
Christophe
https://www.cjoint.com/c/LBsr16EVKVy

via55 · Answer

Re

C'est ce que je t'expliquais dans mon post 50 si tu ne rajoutes pas aussi les plages 3 et 4 dans les lignes d'instructions de verrouillage et de déverrouillage rien ne se passera pour elles 

En fin de macro tu as 
'si valeur entrée est KIKO on verrouille les plagesIf Target.Value = "KIKO" Then Range(plage1).Locked = True: Range(plage2).Locked = True'si valeur entrée est VALIDE on deverrouille les plagesIf Target.Value = "VALIDE" Then Range(plage1).Locked = False: Range(plage2).Locked = False
Il te faut :
'si valeur entrée est KIKO on verrouille les plagesIf Target.Value = "KIKO" Then Range(plage1).Locked = True: Range(plage2).Locked = True : Range(plage3).Locked = True: Range(plage4).Locked = True'si valeur entrée est VALIDE on deverrouille les plagesIf Target.Value = "VALIDE" Then Range(plage1).Locked = False: Range(plage2).Locked = False : Range(plage3).Locked = False: Range(plage4).Locked = False

kiko8111 · Answer

Désolé mais pour ma personne c'est presque du "chinois", je fais des effort mais le courant est trop fort<;
<heureusement que tu es disponible.
Remarque perso : retraité de quel secteur d'activité (réponse ou joker).
Je vais faire un copier coller, chose qui me pose beaucoup de problèmes car tellement habitué au raccourci j'écrase ce qui ne faudrait pas.
Je donnerai des nouvelles, Merci
Christophe

kiko8111 · Answer

Re, un ÉNORME MERCI !
C’est génial

Pour le principe des lignes cela reste possible avant de me lancer.

+++ Christophe, Personne Heureuse !

via55 · Answer

Re,

Bien ☺

Pour répondre à ta question, retraité de l'enseignement (collège-lycée)

Cet anglais qui est presque du chinois pour toi, on arrive assez vite à se mettre dedans, par exemple :
Range(plage3).Locked = True   signifie  "le critère Verrouillé (Locked) de la plage de nom plage3 est mis à Vrai (True)"

Que veux tu dire par "Pour le principe des lignes cela reste possible avant de me lancer" ?

kiko8111 · Answer

A l’attention de VIA
Bonjour, j'avais ressenti la présence d'une personne habituée à partager ses connaissances avec le désir d'expliquer, même avec des exemples : c'est Très Bien.
Pour l'anglais, même si ce n'est pas ma tasse de thé je m'en accommode depuis de nombreuses années (approfondir ce qui suit)
https://www.youtube.com/watch?v=kcVLnVcykF0&feature=youtu.be
Ce qui me fait vraiment défaut c'est comprendre la logique de programmation avec tout ce qui est autour.
Au sujet de ta dernière question il faut savoir que vu le moment de Bonheur suite à ton texte joint pour la formule j'ai mon esprit qui est parti dans tous les sens avec mes idées d'un coté et mes pensées d'un autre : on va mettre cela sur le dos de l'age.
Revenons à excel, pour changer, je saisi mes infos et je trouve que je passe beaucoup de temps à remplir les colonnes date.
Avec à titre d'exemple pour Janvier en A4 et la date que je mentionne (2022) en Q2;
Mais si je saisi avec un temps de retard il serais bien que je puisse passer outre. A voir!
Merci,
Christophe

via55 · Answer

Bonjour Christophe

Ma dernière réponse a disparu ! mais bon tu sembles l'avoir lue ☺

En ce qui concerne la logique de programmation en VBA c'est assez simple, il a de bons tutos su Internet pour ça ou des bouquins pour débuter comme VBA pour Excel pour les nuls
 et je peux te donner des explications sur certains points si tu le demandes
 
Pour entrer la date du jour rapidement il y a le raccourci clavier Ctrl + ;

Cdlmnt
Via

Alfred-33 · Answer

Bonjour Kiko et Via,
Effectivement, certains commentaires ont disparu...

kiko8111 · Answer

Bonjour, je n'ai pas pu lire ton dernier commentaire. J'ai pris mon téléphone c'est peu être avec lui que j'ai bugué.
Dommage car après je ne touche plus, je suis en train de rentrer les formules des mois, cela ce passe bien mais comme je contrôle au passage cela me prend du temps.
J'aurai eu besoin juste d'un exemple de formule pour la saisi des dates. En rentrant celle du jour je pense que excel peut prendre en compte le moi en lettre et sur une autre case le jour en chiffre.
Après PROMIS je vais faire voler le Pointu.
Cordialement et encore Merci
Christophe

via55 · Answer

En ce qui concerne les dates d'abord pour Excel c'est forcément un nombre, par ex 44611 pour aujourd'hui 44610 pour hier etc (partie entière étant les jours les décimales les heures : 44611,5 correspond ainsi au 19/02/2022 12:00)

Quand tu entres 19/02/2022 dans une cellule Excel comprend que c'est une date et le retranscrit sous le nombre 44611
après tout n'est affaire que de format d'affichage de la cellule :
- si tu es en format Date courte tu auras comme affichage 19/02/2022
-  par format personnalisé tu peux choisir différents affichage comme  jjj jj mmm aa  qui donnera sam 19 fév 22 ou mmmm qui ne donnera que février etc

Tu peux aussi entrer une date par formule :
=AUJOURDHUI() pour la date du jour (qu'on peut aussi entrer sans formule par le raccourci clavier Ctrl + ; comme je disais dans mon post précédent)
ou =DATE(2022;2;19)   formule dans laquelle les nombres peuvent être remplacés par des adresses de cellule où sont ces valeurs =DATE(A1;B1;N1)
ou DATEVAL("19/02/2022") pour transformer le texte entre guillemets en date, formule dans laquelle les parties de texte peuvent aussi provenir de cellules  =DATEVAL(N1 &"/" & B1 & "/" & A1)

kiko8111 · Answer

Re, Merci. Je me suis tellement habitué à tes explications que si prêt du but je faisais un peu la mou.
Continu dans ta Passion, c'est formidable.
Je comprend que j'ai fait plus que de demander une infos, c'est pour cela que je vais stopper.
Comme tu me l'avais demandé, je te ferai parvenir mon fichier fini afin de tu puisses "corriger".
Merci encore et à un de ces jours.

Merci, Christophe

via55 · Answer

Pas de souci, tu peux poser toutes les questions que tu veux
si je peux y répondre je le ferai, si ça dépasse mes compétences je te le dirai ☺
Cordlment
Via

Alfred-33 · Answer

Bonsoir,
Ce topic m'a particulièrement intéressé, j'avais suggéré de considérer le montant des CB et chèques comme étant indisponible dès leur création, ce qui me paraît le plus simple et le plus sûr, mais cela ne convenait pas.
Néanmoins et j'ai essayé une solution allant davantage dans le sens de ce qui était souhaité et pour cela j'ai réutilisé un tableau de budget dérivé de la  fiche technique de R. Pentier, auquel j'ai ajouté quelques colonnes plus un petit tableau récapitulatif en U1:Z28.
L'idée étant que si on inscrit V ou D dans la colonne J en face d'une dépense par CB ou autre moyen de paiement, la date de paiement effectif est indiquée en colonne G, c'est à dire la date d'émission si mention V (ou pas de mention), la fin du mois suivant si mention D. 
A noter que les paiements de fin décembre 2022 marqués "D" seront reportés à fin janvier 2023.
Les filtres de la ligne 11 permettent d'extraire le détail des dépenses et des recettes pour tel mois, ou pour telle catégorie etc.
Si j'ai tout bien compris, ce qui n'est pas certain, et à tester car fait un peu (trop) vite.
Voyez s'il y a quelques idées utilisables...
Cordialement

https://www.cjoint.com/c/LBuucZZlz6g

kiko8111 · Answer

Bonjour, je tourne en rond depuis hier. J'ai une formule qui fonctionne mais j'aimerai pouvoir ne rien afficher si le résultat eu supérieur à 31.
Si vous avez une idée, merci

via55 · Answer

Bonjour

=SI(ta formule de calcul >31;"";ta formule de calcul)

kiko8111 · Answer

Adresse du fichier
https://www.cjoint.com/c/LBvpJrnpS4y

kiko8111 · Answer

J'ai trouvé, erreur de virgule

kiko8111 · Answer

Bonjour, j'ai trouvé la formule qui me conviens en résultat mais l’esthétique lorsque la cellule est vide me donne une information dont j'aimerai cacher. J'ai trouvé la solution de rentrer dans le cas présent le chiffre 32 et de mettre la police de la même couleur que le fond mais c'est du "bricolage".
Merci de votre aide, clin d’œil à VIA55
https://www.cjoint.com/c/LBwktTUb1Fy

Christophe

kiko8111 · Answer

Bonjour VIA55 , j'ai besoin d une information au sujet du verrouillage de ma feuille comme vu au poste 55.
Cela fonctionne bien sauf que au clavier il m'est permis d'effacer avec la touche "flèche gauche" retour arrière?
Merci
Christophe

via55 · Answer

Bonjour Christophe 

Si la cellule est verrouillée (ce que faisait la macro indiquée au post 55) ET la feuille protégée tu ne dois pas pouvoir effacer avec Retour arrière ou autre 
Vérifie qu'en fin de macro la feuille est bien reprotégée avec l'instruction ActiveSheet.Protect et qu'elle s'applique bien tu vérifies dans le Ruban - Révision que c'est bien indiqué Ôter la protection..

Cdlmnt
Via

kiko8111 · Answer

Re, je te joint un fichier simple sans vase de donnée mais sur l'autre c’est pareil
A tester ou "corriger" (je plaisante)
https://www.cjoint.com/c/LBzlqvGAqzy

Merci 
Christophe

via55 · Answer

Re

Heureusement que tu as joins le fichier sinon impossible de deviner ce qui clochait
En fait lorsque tu sélectionnes KIKO dans ta liste de choix aucune cellule n'est verrouillée car tu as modifié les valeurs des Case dans la macro (pourquoi ? peut être avait tu rajouté des lignes à ton tableau de base  ?) ce qui fait que cela ne correspond plus aux cellules des KIKO, ainsi le début des Case donne ceci
Case 6plage1 = "C6:G34"plage2 = "K6:O34"Case 41plage1 = "C41:G70"plage2 = "K41:O70"Case 77plage1 = "C77:G106"plage2 = "K77:O106"

alors que les premiers KIKO ne sont pas en lignes 6, 41 et 77 mais 3, 38 et 74 !!!

Rectifie les 12 Case dans la macro et le verrouillage/déverrouillage devrait refonctionner

Cdlmnt
Via

kiko8111 · Answer

OK, la protection en réécriture fonctionne mais j'ai toujours la touche retour arrière qui est valide. 
En l'actionnant il est possible d'effacer des données même vérouillé par kiko.
Y a t'il une échappatoire à cette touche du clavier ?

Merci Christophe

kiko8111 · Answer

Recherche. Je viens de trouver ceci. reste à savoir comment le rajouter/

https://forum.excel-pratique.com/excel/interdire-touche-supprimer-t100946.html

via55 · Answer

Je ne comprends pas  car dans le fichier que tu m'as envoyé après rectification des Case les cellules des plages définies sont bien reverrouillées et la feuille protégée, il est alors impossible de sélectionner une cellule protégée et de faire un retour arrière

J'en reviens à ce que je disais tout à l'heure si c'est possible soit il n'a pas eu reverrouillage soit la feuille n'est pas reprotégée

Ou les instructions de plage à protéger données dans la macro ne sont pas bonnes (une erreur de frappe est  vite faite)

Justement en y regardant de près dans le fichier que tu m'as envoyé les plage1 des premiers Case comprennent les colonnes C à G alors que les suivantes ce sont seulement les colonnes F à G !! donc  attention vérifie bien les plages à verrouiller dans la macro 

Puis avant de chercher plus loin vérifie d'abord que la macro effectue son travail correctement dans tous les cas !

kiko8111 · Answer

Je fais ce qui m'est possible de comprendre mais j'ai l’impression que l'on ne se comprend pas sur un point.
On va vérifier ensemble sur la cellule D14 si cela ne te dérange pas.
J'ai en écriture "inconnu", ma protection Valide et en couleur verte, je passe en rouge sur KIKO et dans je chant Révision je contrôle que la protection est active.
J'enregistre et ferme la fenêtre; après réouverture je sélectionne cette même cellule en essayant d'écrire mais cela m'est refusé : normal.
En revanche avec les touches clavier Suppr ou retour arrière tous est effacé définitivement.
Si chez toi on retrouve le même scenario c'est que la macro bloque en réécriture mais pas en effacement.

On va y arriver§
Christophe

via55 · Answer

Cela fonctionne parfaitement sur ton fichier simple dont j'ai rectifié les Case et les plages 
https://www.cjoint.com/c/LBzoRI5yN0W
J'ai rajouté pour contrôle un message au verrouillage qui indique quelles plages ont été verrouillées et qui induit qu'elles ont bien été verrouillées, tu pourras ensuite supprimer cette instruction dans la macro :
 MsgBox plage1 & " et " & plage2 & " verrouillées"

SI les Cases font bien référence aux bonne lignes des KIKO et que les plages définies dans les cases sont correctes c'est bon la macro verrouille les bonnes cellules et protège la feuille, pas moyen d'accéder au cellules avec Retour arrière (ou autre)

kiko8111 · Answer

Bien Merci; 
Maintenant cela fonctionne.
J'ai remarqué qu'il faut avoir déjà rentré des données pour bloquer pour que la macro se déclenche.
Si je passe direct dans un mois même si la cellule kiko rouge on n'as pas le même résultat. La petite fenêtre ne me dérange pas, cela m'informe que la macro a déclenché
Merci, Christophe

kiko8111 · Answer

S<souligne>UPER ????</souligne
Je vais pouvoir me détendre ????

kiko8111 · Answer

Re, je viens de m’apercevoir que j'aurais pu inclure dans la macro A3 certaines cellules :
D2   la  H2:J3    la   O2:P2  et  M5

Je le formule comment ?
A savoir que j'ai déjà rentré la formule de validation de donnée de A3
Merci Christophe

kiko8111 · Answer

Re, ne bouge pas : un bon prof fait un élève moyen mais il faut se lancer

J ai trouvé !

A+
Christophe

via55 · Answer

C'est peut être limpide pour toi  D2 la H2:J3 la O2:P2 et M5  mais pas pour moi !!
Explique mieux ce sont des cellules à verrouiller ? et lesquelles exactement 
Qu'appelle tu la macro A3 ? la mienne ou tes cellules avec validation de données ?

via55 · Answer

Je crois que je viens de comprendre, en fait tu voudrais aussi verrouiller les cellules en orange au dessus du tableau
Ta validation de données n'est d'aucune utilité puisque si KIKO les cellules sont verrouillées
Il faut donc dans la macro rajouter une 3eme plage qui prend les 2 lignes du haut
Donc par ex dans Case 3 rajouter après plage2 = "K6:O34" plage3 = "D2:P3"
Ensuite il faut compléter les lignes de fin de macros pour qu'elle verrouillent ou déverrouillent cette plage 3 :
If Target.Value = "KIKO" Then Range(plage1).Locked = True: Range(plage2).Locked = True:  Range(plage3).Locked = True:MsgBox plage1 & " et " & plage2 &  plage3 &" verrouillées"'si valeur entrée est VALIDE on deverrouille les plagesIf Target.Value = "VALIDE" Then Range(plage1).Locked = False: Range(plage2).Locked = False: Range(plage3).Locked = False

kiko8111 · Answer

Je te remercie de tes exemples : tu as bien cerné le bonhomme (il se lance mais comme il n'est pas "Pro"  il est préférable de lui mâcher le travail). Je trouve cela super sympa.
Tu m'as permis de monter un fichier comme je le concevais et cela me fais très plaisir.
tu as pu voir sur la fin ma petite ébauche de calcul sur l'année mais elle n'est pas finie, cela viendra......?
Bon appétit, ce soir j'ai du travail : mes deux enfants veulent bien l'essayer mais il me faut mettre les fichier à leurs nom.
Christophe,    Merci  A+

kiko8111 · Answer

Bonjour VIA, je viens de finir et j'ai un petit détail qui me gène car j'ai peur d’écraser des formules dans les colonnes B et T de mon tableau. Je le joint afin que tu puisse trouver d’où viens l'erreur.
https://www.cjoint.com/c/LBCoX1l2nNy
Merci
Christophe

via55 · Answer

Bonjour Christophe

 De quelle erreur parles-tu ?
Il faut évidemment que les cellules avec formules soient toujours verrouillées donc les colonne B et et T ne doivent pas être comprise dans les plages des Select case de la macro donc tes plages devraient  être :
Case 3plage1 = "C6:D34"plage2 = "F6:I34"plage3 = "M6:P34"plage4 = "R6:S34"plage5 = "A6:A34"

etc

Je ne vois pas l'utilité de déverrouiller la colonne A qui comporte de manière fixe les noms de mois !!

Cdlmnt
Via

kiko8111 · Answer

Re, j'ai essayé sur la A mais comme je me suis énervé j'ai laissé en l'état.
Mon problème c'est qu'en déverrouillant par KIKO cela m’enlevais la protection de la colonne B et j’avais peur de l’effacement des formules.
Je viens de corriger comme indiqué, surtout le S à la place du T. Cela fonctionne.
J'ai eu peur car c'est beaucoup de travail.
Merci
Christophe

kiko8111 · Answer

Bonjour, après recherches je n'ai pas trouver comment formuler une seconde condition à ce qui suit.

=SOMME.SI.ENS(L$41:L$70;M$41:M$70;"CH")
J'aimerai poursuivre par :   (L$41:L$70;O$41:O$70;"DO1")    ce qui  ferai

=SOMME.SI.ENS(L$41:L$70;M$41:M$70;"CH") ET (L$41:L$70;O$41:O$70;"DO1")

Dans une formule de ce type est il possible d'avoir deux conditions et comment écrire la formule?
Merci 
Christophe

kiko · Answer

Bonjour, A l'attention de VIA55.  
Accepterai tu de me regarder mon fichier car la protection ne s'enclenche plus et je ne trouve pas ?
Merci, Christophe

via55 · Answer

Bonjour Christophe

Je rentre d'hospitalisation et je découvre tes derniers messages
Pour la fonction SOMME.SI.ENS ( je pense que tu a du trouver depuis) sa particularité par rapport à la formule de base SOMME.SI est justement de pouvoir accepter plusieurs plages de critères et plusieurs critères , syntaxe : SOMME.SI.ENS(plage somme; plage 1;critère 1; plage 2; critère 2; etc)  voir aide Excel pour plus d'infos
Pour ton fichier renvoie le moi, as tu touché aux macros ?

kiko · Answer

Bonjour VIA, en te souhaitant bon rétablissement.
J'ai avancé tout de même mais pas sans peine. Je vais te résumer en te mettant en avant la cause de mon bug.
Tout fonctionnais très bien une fois fini lais je me suis rendu compte que je n'avais rien pour pointer et suivre mes remboursement. Je me suis dit qu'il serai bien d'avoir comme un stabilo afi de palier à ceci.
Je suis parti sur le fait de colorer le fond de la cellule ou se trouve les montant mais les couleurs d'origine sont très flash et ma police se voit moins et surtout j'ai le risque d'effacement.
J'ai rajouté deux petites colonnes  (en débit et crédit) juste à coté des montants. tout c'est bien passé avec l'ajout des lettres en protection (tu m'a très bien expliqué et j'ai compris.
Comme j'aime bien mettre "les mains dans le cambouis" j'ai eu l'intention de me créer dans ces deux colonnes des barres déroulantes pensant mettre à la place du texte des couleur, ce qui serait Super. J'ai pas trouvé.
Je me suis rabattu sur le pack de fonction XPL (en complément avec ColorBox) pensant que cela pouvait être pratique. Effectivement le confort et bien, j'ai donné en référence les deux colonnes mais j'avais un message :   Tarquet.Interior.Color = Couleur.
Suite à cela j'ai "trafiqué" et je me suis retrouvé sans protection des deux macros de protection qui ne voulaient pas se lancer. J'ai décidé de mettre le fichier sur mon pc portable et la tout c'est bien passé (mon travail était bon), j'en ai déduit qu excel sur mon fixe avait une erreur.
J'ai tout désinstallé et remis (trouvé pour un nettoyage complet dans la base de registre avec "revosetup" SUPER!).
Maintenant j’hésite à renouveler pourtant le principe de colorbox est bien.
Si je pouvais trouver le moyen  de mettre en place ces barres de choix avec couleur ce serait le summum.
En plus j'avais des cellules non protégées qui le sont devenus, pas compris.
Si tu pense connaitre la solution je te fais entièrement confiance.
Merci de ta réponse
Christophe

via55 · Answer

Re

Dans quelle usine à gaz t'es tu lancé encore !! Le mieux est l'ennemi du bien
Pour ma part je reviendrai à la version qui fonctionnait sans les colonnes que tu as rajouté
et je me contenterai de colorer en une couleur claire laissant lisible le texte (jaune par ex) les cellules d'un débit ou d'un crédit validé, cela pouvant se faire par une macro associé au double-clic dans une cellule

kiko · Answer

Re,
cela pouvant se faire par une macro associé au double-clic dans une cellule 
Je suis curieux de cette macro, attention il faut plusieurs couleurs.
Je ne m’ennuie pas mais j'aime lorsque c'est bien.
Excel est capable de faire des barres avec la couleur que l'on pose ou j’arrête de chercher ?
Bon appetit

via55 · Answer

De combien de couleurs as-tu besoin ?
Que veux tu dire par "Excel est capable de faire des barres avec la couleur que l'on pose" ?

kiko · Answer

Pour le nombre de couleurs si j'ai un modèle je pense pouvoir le compléter, disons 6.
En ce qui concerne les barres, c'est dans la mise en forme conditionnelle et liste que je souhaiterai mettre des fonds de cellule colorisé et faire mon choix au moment dans le tableau

via55 · Answer

Un petit exemple de ce qu'il est possible en associant une macro double-clic et un choix par un userform
https://www.cjoint.com/c/LClnLZTNNMW

Pour ce qui est de la mise en forme conditionnelle dans Format - Remplissage tu as le choix du motif (barres verticales, horizontales, obliques, quadrillage ...) donc ça devrait répondre à ton besoin (Attention toutes les couleurs MFC priment sur celles mises manuellement ou par macro, par exemple sur celles du double-clic dans mon exemple)

kiko · Answer

Merci, je te donnerai des nouvelles j'espère demain car j'ai pas pu rester chez moi cette après midi, Christophe
Merci

kiko · Answer

Re, je viens de rentrer pressé de voir ce dont tu m'as préparé : cela correspond à mes attentes, Super ! Je ne sais pas encore comment formuler : "If Not Intersect(Target, Range("A2:A27"))" en colonne sachant que au départ je n'ai pas besoin, en suivant sur 30 lignes oui puis à nouveau non et ainsi de suite jusqu’à le fin des 12 mois. Après je vais avoir presque fini car c'est un fichier que je vais proposer à mes enfants qui ont l'habitude du coller copier et le glissé (pour les colonnes libres tel que montant et surtout désignations). J'avais repéré sur le net deux sites qui avaient retenus mon attention mais je n'ai pas approfondi pour l'instant (j'écouterai tes conseils) : _ https://forums.commentcamarche.net/forum/affich-29684518-empecher-le-copier-coller-dans-des-cellules-en-liste-de-valeurs#answers _ https://forum.excel-pratique.com/excel/empecher-copier-couper-coller-pour-certaine-colonne-t88484.html D'abord les couleurs En te remerciant encore une fois Christophe

via55 · Answer

Re,

Tu peux parfaitement appliquer Not Intersect sur des plages discontinues, de cette manière ci :
If Not Intersect(Target, Range("A2:A27","A31:A56","A60:A85", etc))"

Pour ce qui est du copier coller ou du glissé, d'une part pour les désignations cela n'a en principe pas lieu d'être si je me souviens bien de la dernière version vue puisque les désignations sont inscrite par formules RECHERCHEV des choix à côté dans liste déroulante, d'autre part tu n'as pas a t'adapter à leur façon de faire c'est à eux de s'adapter au fonctionnement de ton fichier dont tu leur donnera le mode d'emploi en leur précisant bien qu'étant donné les macros, formules et protections tout copier collé ou glissé est prohibé au risque de dysfonctionnement !

Je te le redis le mieux est l'ennemi du bien ! ton fichier est déjà assez complexe comme ça lorsque tu auras rajouté les couleurs..... Plus on complexifie plus on risque des bugs ....

Bon courage
Via

kiko · Answer

Ok, je t'écoute. Avant de commencer les couleur je rajoute des lignes afin que tous les mois soit identiques.
Je te tiendrai informé de mon avancement.
Bon rétablissement,
Christophe,

kiko · Answer

J'ai besoin de savoir pourquoi lorsque pour rajouter une ligne :
Sélection à gauche, copier, coller j'ai le message ci joint qui s affiche et comment y remédier.
Cela viens de ou ?
https://www.cjoint.com/c/LClsnjaGy6y

Merci

kiko · Answer

Bonjour, je n'arrive pas à trouver à quoi cela correspond.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Frais annuel 22")
.Unprotect
.Range("A3") = "KIKO"
    For n = 38 To 431 Step 36
    .Range("A" & n) = "KIKO"
    Next
.Protect
End With
End Sub

J'ai cette erreur : .Range("A" & n) = "KIKO"
Mais je pense que cela viens de :   For n = 38 To 431 Step 36    mais je ne sais pas à quoi ce dernier fait référence (n= 38 ??)    (Range("A" & n     ???)
J'ai besoin d'un petit cour
Merci Christophe

via55 · Answer

Bonjour 

 La boucle For va de 38 jusqu'à 431 par saut de 36 donc
1er passage 38 , 2nd passage 74, 3eme passage 110 etc ... qui doivent correspondre au n° des lignes où il a des  KIKO, ces lignes étant régulièrement espacées de 36 (si ce n'est pas le cas c'est peut être là que vient l'erreur)
Ensuite l'instruction .Range("A" & n)="KIKO" inscrit KIKO dans la cellule de la colonne A, en A38 au 1er passage, en A74 au 2nd etc
mais bon tu peux supprimer toutes les lignes de la macro concernant la boucle (depuis For jusqu'à Next) et les remplacer par 12 instructions Range avec les adresses des 12 KIKO mensuels
.Range("A3")="KIKO"
.Range("A38") = "KiKO"
etc

Je te rappelle que cette macro qui se déclenche à la fermeture du classeur a pour but de bloquer tout avant fermeture

kiko · Answer

Merci, étant donné que j'ai rajouté des lignes j'avais ce problème. Maintenant je sais comment corriger.
Après je passe à la formule couleur. Cela me prend du temps mais comme il fait un temps à ne pas aller à la pêche, je m'occupe (grosse pluie dans le 81)
Merci, Christophe

kiko · Answer

Information et Remarque :
Info :
J'ai fini par trouver l'erreur qui me bloqué le déclenchement de la macro sécurité en fermeture, cela venait des intervalles. SUPER !
Remarque :
Je suis sur la formule couleur et j'ai fait un test sur ta feuille par formule : 
If Not Intersect(Target, Range("A2:A10", "A15:A30")) Is Nothing Then
L'intervalle se sélectionne tout de même mais comme c'est une cellule protégé rien ne se passe.
Je suis passé à cote de quoi ?
Christophe, (bientôt la quille)

via55 · Answer

Je ne sais pas, normalement en début de ma macro exemple il y a bien déprotection de la feuille, justement pour pouvoir colorer à l'intérieur, 
je viens de reproduire If Not Intersect(Target, Range("A2:A10", "A15:A30")) Is Nothing Then dans ma feuille et chez moi cela fonctionne bien
Il faut bien doublecliquer dans une cellule des plages indiquées soit colonne A uniquement et ligne entre 2 et10 ou ligne entre15 et 30

kiko · Answer

Je vais voir, pour mettre le choix de couleur en cellule 1 je formule (STP) comment ?

via55 · Answer

Le choix de couleur n'est pas dans une cellule de la feuille !,  il est à faire dans l'Userform qui s'ouvre au double-clic.
Cela fonctionne correctement dans le fichier que je t'avais envoyé , l'UF s'ouvre au double clic ?
AS tu bien testé mon fichier dans tous les sens avant ??
Ce qu'il y a dans la feuille dans la plage O1 à O7  ce sont les couleurs que la macro vient chercher pour mettre les mettres dans l'UF de choix puis quand ce choix est validé pour colorer la ligne du fichier de cette couleur

kiko · Answer

Oui j'ai testé mais je vais mettre le choix des couleurs en haut sur la première ligne

via55 · Answer

En ce cas là mon fichier avec userform de choix ne te sert à rien !
Je ne vois pas comment tu pourrais à la fois double-cliquer sur la ligne à colorer puis aller choisir une couleur en ligne 1 !! 
En plus pas pratique quand tu trouveras en décembre !
Je ne comprends pas ta façon de faire et de compliquer les choses !

kiko · Answer

Re, je pense voir ou se trouve l'erreur chez moi.
Comme je choisi  la ligne (1) et non pas la colonne (o)
a la place de :  coul = Range("O" & v).Interior.Color
il me faut rentre     "ligne" 1 (je sais pas par quelle dénomination  )

kiko · Answer

Je pensais cela plus pratique d'avoir le choix couleur à disposition en haut (visible de tous)
https://www.cjoint.com/c/LCmrcF2Bvmy

Merci 

Christophe

via55 · Answer

Pourquoi pas à la rigueur, si tu figes les volets pour laisser la 1ere ligne toujours apparente, mais je ne vois pas par quel procédé simple  choisir une des couleurs ! 
Le seul truc auquel je pense immédiatement c'est d'avoir les 7 cellules de couleurs + à côté une cellule témoin qui affichera la couleur choisie (un peu comme dans Paint) 
Un double clic sur une des 7 couleurs la choisirait et colorerait la cellule témoin avec
Ensuite tout double clic sur une des cellules des plages délimités en colonne A ferait colorer la ligne selon la couleur témoin
Si ça te va je peux modifier mon modèle en ce sens (même si je pense que le mien est plus ergonomique et plus pro !)
Dis moi

kiko · Answer

Re, je pense t'avoir mal compris. Je joint ton fichier sur lequel je "travaille" avant de gros ennuis sur le mien.
J'avais une logique verticale, celle d'excel est autre.
Sur le fichier l'impasse sur ligne 13 et 14 n'est pas faite.
Avoir un choix libre comme en A16   A18   A21 serait le summum
En revanche sur mon fichier j'indique la colonne Z à la place du O mais j'ai des retours négatifs
L'Irlande viens de gagner, à moi de jouer pour la dernière ligne.
https://www.cjoint.com/c/LCmsHZM8lFy

Bonne soirée et repos, merci de ta patience mais à ce jour j'ai bien progressé
Christophe

via55 · Answer

Tu veux vraiment le beurre et l'argent du beurre et .. !!
Tu aimerais pouvoir colorer une ou plusieurs cellules selon la ligne ?
Comment indiquer à Excel que c'est  ou 2 ou 3 ? impossible ! 
Donc soit tu fais colorer la ligne (comme jusqu'à présent), soit tu devra colorer cellule par cellule en double cliquant dans chacune d'elle, et là je pense que c'est fastidieux et contreproductif et je ne modifierai pas la macro en ce sens

Sur ton fichier je te prépare les couleurs sur la 1ere ligne figée comme je disais dans mon précédent post, que tu vois ce qui est le plus pratique pour toi

Voilà plus vite fait que je ne pensais :
https://www.cjoint.com/c/LCmtwT1GppW

kiko · Answer

Bonjour, REMERCIEMENTS à VIA55 qui m'a permis de monter mes feuilles .
Je suis arrivé à ce dont je désiré et même je te cite : "Tu veux vraiment le beurre et l'argent du beurre et .. !! " à voir dans une de mes captures avec une pensée couleur pour le peuple Ukrainien.
Pour la formule couleur de l'impasse en colonnes je n'ai pas réussi à rentrer la formule autrement (voir fichier 2).
Je suis sur une feuille complémentaire qui reprend le data en dépenses recette : Super !
J'ai bien compris les leçons, beaucoup de travail mais aujourd'hui un énorme plaisir.
Tout est stable et après plusieurs sauvegardes je passerai (malgré tes conseils) à la macro qui empêche le copier/coller .
Une fois de plus Merci pour tes partages et ta patience.
Christophe

hhttps://www.cjoint.com/c/LCoiFX2zAWy
https://www.cjoint.com/c/LCoiJ2vPZMy

via55 · Answer

Bonsoir Christophe

Si ce à quoi tu es arrivé te convient c'est parfait
Bonne suite 

On passe le sujet en résolu

Cdlmnt
Via

Formule dans excel

114 réponses

Votre réponse

Newsletters