Désolé mais je ne comprends pas la logique
Peux tu me donner pour chaque cellule la condition d une mise en couleur
par exemple pour la cellule E60 :
E60 > telle cellule (son adresse)
Pour la cellule B64 tu me mets E60>B64
Si 2 conditions tu me mets ainsi
E60>B64 et E60<F60
Ainsi dans chaque cellule de la ligne 60 pour celle-ci
Je construirai en correspondance les mises en formes conditionnelles
On avisera pour les autres lignes
Après avoir décortiqué tes explications avec l’appui de ton fichier j’ai fini par comprendre ton attente
Pas simple
Et notamment au delà des possibilité des mise en formes conditionnels car si la première condition est fixe la deuxième est purement flottante donc ingérable par ce dispositif
Je te propose donc une solution par traitement VBA qui se déclenchera à chaque modification d’une cellule de la série (L60 à EV60, L70 à EV70 puis série des autres lignes même colonne)
Il faudra au grés des lignes à rajouter pour les séries intervenir sur une ligne de code dans le VBA de la feuille ainsi :
cliques droit sur le nom de l’onglet
choisir « Visualiser le code »
Dans cette fenêtre qui s’ouvre :
mettre à jour la première ligne :
listeligne = « /60/70/ »
pour rajouter la ligne 80 il faut la modifier ainsi :
listeligne = « /60/70/80/ »
pour enlever la ligne 70 ainsi :
listeligne = « /60/80/ »
Etc…
enregistrer la modification bandeau excel sur l’icone disquette
fermer l’éditeur croix de la fenêtre en haut à droite
Puis faire des essais
le déclenchement se réalise à la modification d’une cellule de la ligne
Attention la valeur de référence maxi qui entre dans la comparaison doit être en colonne B 4 lignes au dessous de la ligne de la série
pour la série ligne 60 la référence maxi doit être en B60+4 soit B64
pour la série ligne 70 la référence maxi doit être en B70+4 soit B74
Idem pour les autres
Testes et dis moi
2021 08 29 FFO Dde 6.xlsm (41,9 Ko)
Rebonjour FFO
Tu as très bien compris ma demande
Désolé pour mon manque de clarté (le plus compliqué se faire comprendre)
Ton fichier 2021 08 29 FFO Dde 6 fonctionne très bien
Je pense comprendre ta procédure de mise en place
Il faut créer une nouvelle VBA
Par contre je dois intégrer cette VBA dans un autre fichier, une feuille qui intègre toutes tes modifs en fois 20
La je coince
Je m’arrête quand je ne sais plus
Peux tu m’aider ??
Je suis à ton écoute
Cordialement
PB
Parfait si j’ai réussi à combler ton attente c’est le principale
Pour utiliser cette fonctionnalité dans un autre classeur récupères dans le VBA de la feuille (comme indiqué dans ma précédente réponse pour modifier la liste des lignes concernées) toutes les lignes de code dans la souris (Sélection de toutes les lignes puis Copier ou Ctr+C) va dans l’autre fichier dans l’onglet concerné même opération pour obtenir son VBA et dans son éditeur cliques tout en haut puis coller ou Ctrl+V
Si des lignes de code sont déjà en place il serait bon de me les communiquer avant toute opération de collage de mes lignes de code
Si tu as des difficultés transmets moi ton autre fichier sans donnée confidentielle pour que j’intègre mon traitement en me spécifiant le nom de l’onglet concerné
Il va de soit que les même impératifs sont de mises exprimés dans ma réponse précédentes et notamment la mise à jour de la première ligne de code en fonction de la liste des lignes à traiter (listeligne = « /60/80/ » si fois 20 20 numéros à intégrer dans cette ligne de code sans oublier de les entourer des barres obliques)
Je te laisse oeuvrer pour l’instant et me dire
Bonjour FFO
Merci pour ta réponse
Je vais te transférer l’ensemble des lignes de codes de la feuille concernée en 2 fichiers
2021 09 10 Code Private Sub Worksheet en PDF impossible autrement
2021 09 11 Contenu Module en PDF impossible autrement
2021 09 10 Code Private Sub Worksheet.pdf (221,7 Ko)
2021 09 11 Contenu Module Module 1.pdf (229,6 Ko)
Avec ces infos
Peux tu me préparer un contenu global pour le code
Je n’ai pas insérée ta modif simplifiée fonctionnelle (peur de mal faire)
Peut être le moment de le faire (scenario 2)
Fichier Classeur 4 mail du 20 août question précédente
2021 08 20 Classeur 4 Modif non insérée|363x500
La priorité pour moi, le scenario 1 (je préfère)
Tu me dis si ma proposition te convient
Envoi de mon fichier initial trop compliqué…
Je suis à ton écoute
Excellente journée
Bon week-end
PB
Bonjour
J’ai beaucoup de mal à te suivre
Tu fais un sacré mélange entre plusieurs projets que nous avons mis sur pied
Je m’y perds complètement
Traitons projet par projet
Déjà et j’espère avoir compris ta demande le projet du post :
Qui a fais l’objet d’une proposition « Classeur4.xlsm » version améliorée simplifiée que tu aurais pu me transmettre afin d’éviter que je fouine dans les archives des Post pour le retrouver
je t’en propose donc une nouvelle version qui inclus tes 20 lignes décrites dans ton fichier « 2021 09 10 Code Private Sub Worksheet.pdf »
Le voici :
Classeur5.xlsm (15,6 Ko)
Dis moi si il répond à ton attente
Puis on envisagera les autres projet l’un après l’autre SVP !!!
Merci
Rebonjour FFO
Désolé pour le tracas
Sur ta demande j’ai appliquée la version simplifiée sur une copie fichier
Quelques soucis dus à un décalage de colonne dans mon fichier par rapport au tien
J’ai adapté ton code
Ca marche (content … mais tu me pousses dans mes retranchements)
Donc maintenant reste à intégrer
Ta VBAProject (2021 08 29FFO Dde 6 )
Es tu d’accord avec moi (J’espère)
Dans l’attente de tes commentaires et directives sur la procédure de mise en place de ta VBA
Merci
Cordialement
PB
Merci pour ta réponse
Pour le 2° projet dont tu viens de me transmettre le fichier
Dans le VBA de la feuille tu as ces lignes de code :
Private Sub Worksheet_Change(ByVal Target As Range)
listeligne = « /60/70/ »
ligne = Target.Row
If listeligne Like « /" & ligne & "/ » Then
Range(« L » & ligne, « EV » & ligne).Interior.ColorIndex = xlNone
dercolonne = Cells(ligne, Columns.Count).End(xlToLeft).Column
coursmaxi = Range(« B » & ligne + 4).Value
dervaleur = 0
For i = 12 To dercolonne
If Cells(ligne, i) > coursmaxi And Cells(ligne, i) > dervaleur Then
Cells(ligne, i).Interior.ColorIndex = 6
dervaleur = Cells(ligne, i).Value
Else
Cells(ligne, i).Interior.ColorIndex = xlNone
End If
Next
End If
End Sub
la première doit être actualisée des lignes à traitées
Sur la base de ton fichier pdf (« 2021 09 10 Code Private Sub Worksheet.pdf ») il faut la mettre ainsi :
listeligne = « /70/60/80/90/100/110/120/130/140/150/160/170/180/190/201/212/222/232/242/252/ »
à l’identique du fichier du premier projet qui est comme ceci :
listeligne = « 70/60/80/90/100/110/120/130/140/150/160/170/180/190/201/212/222/232/242/252 »
avec en plus le caractère « / » en début et fin de liste rajouté car la procédure utilise une instruction différente
Je te laisse oeuvrer car si tu veux à l’avenir au gré des besoins faire évoluer la série il faut que tu saches le faire car je ne serais peut-être plus là pour cette opération
De plus c’est ultra simple à effectuer
Essaies et si souci fais m’en part
Petit rappel :
Attention la valeur de référence maxi qui entre dans la comparaison doit être en colonne B 4 lignes au dessous de la ligne de la série
pour la série ligne 60 la référence maxi doit être en B60+4 soit B64
pour la série ligne 70 la référence maxi doit être en B70+4 soit B74
Idem pour les autres
Recoucou FFO
Ton propos me tracasse
Je te laisse œuvrer car si tu veux à l’avenir au gré des besoins faire évoluer la série il faut que tu saches le faire car je ne serais peut-être plus là pour cette opération
J’espère que je ne t’embête pas ?
J’espère que tu n’as pas de problème ?
Ton aide et tes éclairages me font progresser
Ma connaissance sur excel et plus que basique (je marche sur des oeufs)
Suite à ton retour
J’ai préparé la modif et mon questionnement dans le fichier ci dessous
2021 09 11 Code actuel dans onglet.pdf (128,0 Ko)
Avec tous mes remerciements
PB
Tu as la mémoire courte pourtant je t’ai fais une belle procédure à cette fin :
cliques droit sur le nom de l’onglet
choisir « Visualiser le code »
Dans cette fenêtre qui s’ouvre :
mettre à jour la première ligne :
listeligne = « /60/70/ »
pour rajouter la ligne 80 il faut la modifier ainsi :
listeligne = « /60/70/80/ »
pour enlever la ligne 70 ainsi :
listeligne = « /60/80/ »
Etc…
enregistrer la modification bandeau excel sur l’icone disquette
fermer l’éditeur croix de la fenêtre en haut à droite
Puis faire des essais
Il est toujours beaucoup mieux de compter que sur soit même pour une utilisation au quotidien d’un outil
Aujourd’hui tu souhaites que celui-ci fonctionne sur 20 lignes peut être demain sur 15 et après demain sur 40 etc…
J’ai aucun problème et suis ravi de t’aider mais pour adapter une procédure en fonction de l’exigence du moment il est nettement plus approprié de le réaliser soi sans l’aide d’un tiers
Aujourd’hui je suis là certes et en pleine forme mais demain qui peux savoir ce qu’il en sera ?
De plus dans quelques années j’espère toujours être de ce monde et de ce forum de surcroît mais j’en ai aucunement la certitude et donc si tu ne sais pas faire tu n’auras plus que les yeux pour pleurer !!!
Donc on retrousse ses manches et on met les mains dans le cambouis
Profites de ma présence pour apprendre
Je te rassure je reste là et ne t’abandonne pas mais je pense qu’il serait mieux que cette modif tu la fasses et ainsi demain de savoir en réaliser une autre voir les jours les mois les années à venir
Juste une petite ligne de code de :
listeligne = « /60/70/ »
à
listeligne = "/70/60/80/90/100/110/120/130/140/150/160/170/180/190/201/212/222/232/242/252/ "
Tu peux même faire un copier de cette dernière pour la coller en lieu et place de celle qui y a en première ligne de code du VBA de la feuille
Ne pas hésiter de se jeter à l’eau elle n’est pas si froide je te rassure
Et puis j’interviendrai si besoin
On se lance !!!
Bonjour FFO
On ne se comprend pas
J’ai fait la modif tel que proposé voir mon fichier joint dans ma réponse précédente
Joint à nouveau ci dessous
Tes explications sont très clairs. Merci , regarde j’ai appliqué
2021 09 11 Code actuel dans onglet.pdf (128,0 Ko)
Mon souci, notre incompréhension
Je dois intégrer cette nouvelle VBAProject (2021 08 29 FFO Dde 6) dans mon autre fichier qui comporte déjà ta premiere VBAProject (2021 09 11 Placement suivi journalier ) feuille 6 (Boursorama suivi 2 EC)
voir en haut première partie du document joint ci dessus
Cette nouvelle BVA je la positionne au dessus en dessous de la première, comment , ailleurs ?
Mon point bloquant
En espérant avoir clairement exposé mon problème
Désolé …
PB
Donc ces 2 procédures s’adressent au même onglet ?
Désolé je viens de le comprendre
Dommage que tu ne me l’ais pas clairement dit on aurait moins perdu de temps à converser sur une incompréhension
J’espère cette fois-ci ne pas faire fausse route j’appréhende déjà
Ci-après ton dernier fichier avec ces 2 traitements dans un seul VBA de feuille celui de l’onglet « FORUM CLASSEUR 3 29 08 21 »
Pour ne pas les perturber j’ai dissocié le nom de chaque liste de lignes
Pour l’un j’ai intégré « listeligne1 » pour l’autre « listeligne2 »
Chacun à faire vivre en fonction des lignes à traiter pour le traitement qui les concernent
Testes et dis moi
2021 08 29 FFO Dde 7.xlsm (43,1 Ko)
FFO Merci
Vraiment désolé de mon manque de clarté
Je teste ce soir et te dis au plus vite
Très cordialement
PB
Coucou Bonjour FFO
J’ai inséré la modification tout est OK
Pour ton information chaque modif en provenance de nos discussions, complétée par notre fichier partiel d’échange
le dernier en date 2021 08 29 FFO Dde 7, modif transférée et adaptée dans mon fichier complet de gestion.
Je suis très, très content de l’aide que tu m’as m’apportée
Je ne suis pas en capacité de régler les problèmes que tu m’as solutionnés
Vraiment désolé pour les incompréhensions
Avec tous mes remerciements
Très cordialement
PB
J’ai d’autres idées d’évolution …
Garde le dernier fichier ça peut te servir …
Bonjour
Merci pour ton retour et tes commentaires
Et oui le plus difficile pour moi est d’arriver à cerner le besoin de mon interlocuteur
C’est des fois une véritable épreuve car nous avons chacun notre logique et interprétation
Et donc la galère pour jouer la même partition
Une fois qu’elle est bien en place c’est la plus part du temps une formalité pour la mettre en musique
Je suis de plus ravis que par toi même tu puisses la faire vivre au gré de tes besoins c’était aussi pour moi un élément crucial
Pour le dernier fichier à garder c’est toujours fait ainsi dans le dossier que j’ai élaboré pour ce post mais le plus dur parmi tout ceux réalisé jusqu’à ce jour (175 actuellement) c’est de le retrouver
Donc le plus simple c’est qu’à ta prochaine sollicitation tu le fournisses ce sera une aide non négligeable pour moi
De plus si un autre interlocuteur te tend la main il lui sera nécessaire pour le faire évoluer selon tes besoins
Au plaisir donc de te retrouver et surtout bonne utilisation
A bientôt
FFO
Merci pour ton retour
Tu parles de mise en musique… J’aime
Si tu veux mieux connaître
Va sur Deezer mon identifiant
PB59530
Des playlists à écouter
A bientôt
Pour d’autres aventures
« Je ne désire pas changer d’interlocuteur »
PB
Merci
Je ferais de mon mieux pour répondre présent
Maintenant d autres feront aussi bien que moi voir mieux surtout dans le domaine des formules il ne faut pas bouder leur main tendu
On est avant tout une équipe avec pour chacun des competences complémentaires
Au plaisir de te retrouver
REbonjour FFO
Très grand merci
Je valide donc la solution dans ton mail du 12 Septembre 2021
En espérant à nouveau ton écoute
Très cordialement
PB
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.
