Remplacer le contenu d'une plage sous condition

Salut frenchie
comment vas tu ??il ya si longtemps il fait toujours aussi beau dans le Var???


je voudrais savoir si ton code copie ou si il affiche dans la plage le contenue de l autre plage (parceque ces graphes tournent en temps réel et on ne peut pas faire de copie en mode valeur par exemple (sinon il faudrait qu'il copie toutes les formules et qu elles se retrouvent a l identique sur l'autre plage
est ce que tu peux me dire ou je le mets parce que j ai déjà un code dans la feuille ;
celui que tu viens de m 'envoyer j ai rectifié parce que je m’étais trompé dans la saisie j ai un autre graphe juste en dessous ou je fait la même opération(comment je goupille ca????? je te donne ce que je viens de rectifier Apres si tuas le temps j ai deux autres soucis que je n 'arrive pas a regler pour le moment personne n 'a trouve la solution
je te montrerais plus tard ce qui a évolué depuis que tu m avais fait le timer pour mon fichier cotations minutes et cotations quart heures(tu te souviens....)
pour l instant il faut que je solutionne ces problèmes au plus vite parce que je suis entrain de créer un site web
Merci pour ton aide....

 Option Compare Text

Sub RecopiePlage()
    Application.ScreenUpdating = False
    Cpt = 0
    For Each cell In Range("AX101, AX144, AX187, AX230, AX273, BZ101, BZ144, BZ187, BZ230, BZ273")
        If cell = "Ok" Then Cpt = Cpt + 1
        If Cpt > 1 Then
            MsgBox "Il y a plusieurs cellules avec la mention Ok"
            Exit Sub
        End If
    Next
    
    If [AX101] = "Ok" Then
        [CK11:CS51] = [BA101:BI141]
    ElseIf [AX144] = "Ok" Then
        [CK11:CS51] = [BA144:BI184]
    ElseIf [AX187] = "Ok" Then
        [CK11:CS51] = [BA187:BI227]
    ElseIf [AX230] = "Ok" Then
        [CK11:CS51] = [BA230:BI270]
    ElseIf [AX273] = "Ok" Then
        [CK11:CS51] = [BA273:BI313]
    ElseIf [BZ101] = "Ok" Then
        [DB11:DJ51] = [BO101:BW141]
    ElseIf [BZ144] = "Ok" Then
        [DB11:DJ51] = [BO144:BW184]
    ElseIf [BZ187] = "Ok" Then
        [DB11:DJ51] = [BO187:BW227]
    ElseIf [BZ230] = "Ok" Then
        [DB11:DJ51] = [BO230:BW270]
    ElseIf [BZ273] = "Ok" Then
        [DB11:DJ51] = [BO273:BW313]
    End If
End Sub

 l autre graphe  les cellules OK se trouvent en 
AX316  AX359 AX402 AX445 AX488     BZ316 BZ359  BZ402 BZ445 BZ448

 If [AX316] = "Ok" Then
        [CK57:CS97] = [BA316:BI356]
    ElseIf [AX359] = "Ok" Then
        [CK57:CS97] = [BA359:BI399]
    ElseIf [AX402] = "Ok" Then
        [CK57:CS97] = [BA402:BI442]
    ElseIf [AX445] = "Ok" Then
        [CK57:CS97] = [BA445:BI485]
    ElseIf [AX488] = "Ok" Then
        [CK57:CS97] = [BA488:BI528]
    ElseIf [BZ316] = "Ok" Then
        [DB57:DJ97] = [BO316:BW356]
    ElseIf [BZ359] = "Ok" Then
        [DB57:DJ97] = [BO359:BW399]
    ElseIf [BZ402] = "Ok" Then
        [DB57:DJ97] = [BO402:BW442]
    ElseIf [BZ445] = "Ok" Then
        [DB57:DJ97] = [BO445:BW485]
    ElseIf [BZ488] = "Ok" Then
        [DB57:DJ97] = [BO488:BW528]

je voudrais savoir si ton code copie ou si il affiche dans la plage le contenue de l autre plage
si je reprend la question posée lors de la demande:
je cherche un code qui sous condition donne le contenue dune plage a l emplacement d'une autre
il semblerait bien que ce sont bien des valeurs qu'on doit recopier sur les autres plages.
est ce que tu peux me dire ou je le mets parce que j ai déjà un code dans la feuille, à mettre dans un module standard, et pas dans le module d'une feuille.

re
alors ca ne va pas marcher parce qu il faut que la plage qui reçoit(en l 'occurrence le graphe) affiche le résultat de l autre plage (sans la copier)autrement dit =
exemple
si je suis sur la graphe en temps réel la plage CK11:CS51(celle qui reçoit) devra afficher le contenue de la plage BA101:BI141 a condition que la cellule AX101 soit = à OK
si l'on fait un simple copier colle valeur mon graphe ne se rafraîchira pas à chaque changement de cotations dans l autres plage
avec les formules j arrive a le faire mais j ai un problème c'est que les valeurs qui arrivent ne sont pas en pourcentage mais en nombre (même en changeant la format des cellules ca ne changent pas je n 'arrive pas a avoir les pourcentages)
je mets par exemple dans la cellule CK11 =SI(AX101="0K";BA101;"")&SI(AX144="0K";BA144;"")&SI(AX187="0K";BA187;"")&SI(AX230="0K";BA230;"")&SI(AX273="0K";BA273;"").....etc donc il faut trouver autre code ;c'est dommage parceque avec les formules on fait simplement les premières lignes en haut du graphe et puis cela descend en cascade pour recopier les formules jusqu au bas du graphe

Bonjour Frenchie
est ce que tu as une idée pour solutionner mon problème
en fait pour que ça fonctionne il faudrait un code qui dise que des que le ok apparait dans une cellule il faut que dans la plage réceptrice ,il y ai inscrit à chaque cellule =(le contenue de la cellule de la plage visé) il faut bien dissocié les plages d'ou proviennent les cotations, et la plage qui réceptionne les infos ;qui elle, est toujours fixe un peu comme cela

exemple =SI(AX101=OK;=BA101;"") a mettre dans cellule CK11 du graphe recepteur
=SI(AX101=OK;=BB101;"")a mettre dans cellule CL11 du graphe recepteur
=SI(AX101=OK;=BB101;"")a mettre dans cellule CM11 du graphe recepteur
etc ainsi selon le même principe dans toute la plage réceptrice
comme je te l ai dit précédemment cela marche avec les formules mais le soucis est que cela me renvoie les valeurs en nombre au lieu de pourcentage je pense que un code devrait pouvoir solutionner ce problème
en fait je me retrouve avec dans chaque cellule 5 formules comme ceci dans la cellule de départ(CK)

=SI(AX101="OK";=BA101;"")&SI(AX144="OK";=BA144;"")&SI(AX187="OK";=BA187;"")&SI(AX230="OK";=BA230;"")&SI(AX273="OK";=BA273;"")

et en suivant pareil pour l 'autre cote avec BZ101 BZ144 BZ187 BZ230 BZ273

Bonne journée
si tu as une petite idée n hésite pas on trouvera je pense une solution que par un code

Bonjour

Je t 'explique clairement ce sont 2 graphes a barres de progression un en dessous de l 'autre) je t'avais dans le passé donné une capture d'écran ou un fichier (je ne me souviens pas)
POUR le premier Graphe
D’un côté tu as le négatif avec 40 barres à gauche
De l’autre cote tu as le positif avec 40 barres à droite
Tout en haut tu as une échelle de progression en pourcentage (une de chaque cote de CK11:CS11
L’autre pour le cote positif à droite en DB11:DJ11
à partir de la ligne 12 jusqu’ a la ligne 51 ce sont des cotations boursières qui s'affichent en temps réel par le biais d’une api et de formules mathématiques que j 'ai crée
Pour la partie gauche on a cette équivalence
If [AX101] = "Ok" Then
[CK11:CS51] = [BA101:BI141]
ElseIf [AX144] = "Ok" Then
[CK11:CS51] = [BA144:BI184]
ElseIf [AX187] = "Ok" Then
[CK11:CS51] = [BA187:BI227]
ElseIf [AX230] = "Ok" Then
[CK11:CS51] = [BA230:BI270]
ElseIf [AX273] = "Ok" Then
[CK11:CS51] = [BA273:BI313]

Pour la partie droite on a cette équivalence

ElseIf [BZ101] = "Ok" Then
[DB11:DJ51] = [BO101:BW141]
ElseIf [BZ144] = "Ok" Then
[DB11:DJ51] = [BO144:BW184]
ElseIf [BZ187] = "Ok" Then
[DB11:DJ51] = [BO187:BW227]
ElseIf [BZ230] = "Ok" Then
[DB11:DJ51] = [BO230:BW270]
ElseIf [BZ273] = "Ok" Then
[DB11:DJ51] = [BO273:BW313

>-2,00% -2,00% -1,75% -1,50% -1,25% -1,00% -0,75% -0,50% -0,25% (ligne11negatif)

0,25% 0,50% 0,75% 1,00%>-- 1,25% 1,50% 1,75% 2,00% >2,00% (ligne11Positif)

POUR le Deuxième Graphe c'est exactement la même structure sauf que ce graphe fait référence a des cotations de la journée d’avant
D’un côté tu as le négatif avec 40 barres à gauche
De l’autre cote tu as le positif avec 40 barres à droite
Tout en haut tu as une échelle de progression en pourcentage (une de chaque cote de CK57:CS57
L’autre pour le cote positif à droite en DB57:DJ57
a partir de la ligne 58 jusque a la ligne 97 ce sont des cotations boursières qui s'affichent en temps réel par le biais d’une api et de formules mathématiques que j 'ai crée
Pour la partie gauche on a cette équivalence

If [AX316] = "Ok" Then
[CK57:CS97] = [BA316:BI356]
ElseIf [AX359] = "Ok" Then
[CK57:CS97] = [BA359:BI399]
ElseIf [AX402] = "Ok" Then
[CK57:CS97] = [BA402:BI442]
ElseIf [AX445] = "Ok" Then
[CK57:CS97] = [BA445:BI485]
ElseIf [AX488] = "Ok" Then
[CK57:CS97] = [BA488:BI528]

Pour la partie droite on a cette équivalence

ElseIf [BZ316] = "Ok" Then
[DB57:DJ97] = [BO316:BW356]
ElseIf [BZ359] = "Ok" Then
[DB57:DJ97] = [BO359:BW399]
ElseIf [BZ402] = "Ok" Then
[DB57:DJ97] = [BO402:BW442]
ElseIf [BZ445] = "Ok" Then
[DB57:DJ97] = [BO445:BW485]
ElseIf [BZ488] = "Ok" Then
[DB57:DJ97] = [BO488:BW528

>-2,00% -2,00% -1,75% -1,50% -1,25% -1,00% -0,75% -0,50% -0,25% (ligne 57 négatif)

0,25% 0,50% 0,75% 1,00%>-- 1,25% 1,50% 1,75% 2,00% >2,00% (ligne 57 Positif)

ce qu’ il faut comprendre c'est que ce sont bien les deux graphes qui vont pour le premier de CK11:CS51 à DB11:DB51
pour le deuxième CK57:CS97 à DB57 :DJ97 qui vont recevoir les cotations des autres plages énumérés il ne faut pas que ces cotations soient copiés vers ces 2 graphes mais que le code disent simplement "égale le contenue de"
je ne veux pas d'un Code qui me copierais les formules a mesure que les ok apparaîtront sur telle ou telle plage
pour la bonne raison que le graphe tourne en temps réel et ce serait trop complique a gérer d autant qu’ il y a des mises en forme conditionnelles dans les cellules
il faut simplement comme je te l ai dit que le code affiche les cotations en temps réel des cellules dans la bonne plage quand elle est "OK"

je le dit et redit c'est comme si dans une cellule quelconque,qu' on nommera pour exemple A1 si dans A1 était inscrit le chiffre 2 et bien si tu es dans la cellule B tu dits (=A1) et 2 vient s'afficher; tout simplement pas la peine de faire une procédure de collage pour avoir le 2 (le égale suffit)

excuse-moi pour les données je les avais pas mise la première fois parce que je savais que si tu trouvais un code lj allais peut être moi-même l’adapter pour l 'autre cote(mais je me suis rendu compte que il était préférable pour qu’ il n y ai pas d'erreurs, de tout te donner avant que tu commences si tu comprends pas dits moi ce qui ne va pas...???
Bonne journée

Bonjour
sans doute vous avez raison et si je m 'exprime mal c'est parce que ce n'est pas mon job je peux pas être à votre niveau c'est impensable et vous devez en tenir compte
Mais afficher le contenue dune cellule dans une autre cellule n a jamais voulu dire pour moi ,copier la cellule....
si je dits par exemple afficher moi le contenue de la cellule AI en B1
je vais inscrire tout simplement dans B1 =A1
je ne vais pas copie A1 dans B1 pour obtenir son contenue je sais pas si je suis clair
pour moi cela me parait évident
maintenant si vous avez une solution meilleure et que vous êtes sur que votre code ne perturbera pas le temps réel lors du collage, je suis ok
a ce moment la ce seont la totalité des formules de la plage qui seront copie dans le graphe il faut que la procédure soit automatique
Je pense que vous êtes tous un peu dur avec moi
comme j expliquais a un de vos collègues si je mettais l'un d'entre vous devant un bloc de pierres et je lui demandais de me faire le buste de napoléon sans trop d'explication, je suis pas sur qu il ferait aussi bien que moi avec les codes??? mais dans le fond ça vous arrange a tous parce que vous aimez bien les choses qui sortent d l 'ordinaire
pour votre info essayer de comprendre que tout le monde n 'a pas le même fonctionnement
par exemple quand c'est trop dur je passe a autre chose et des que j ai une idée je reviens sr la chose ou j 'ai buté concernant les codes que je n arrivais pas a solutionné il y en a un que j ai trouve et le deuxième je coince dessus, mais c'est comme ça je laisse un peu de temps a mes neurones pour réfléchir
je sais vous allez pester parce que je n ai pas solutionner ce problème et que je passe a un autre
Mais c'est ainsi que je fonctionne et au final il ne me reste que 2 a 3 codes et j aurais bouclé ma solution
voila le code que je suis arrive a adapter je sais pour vous ,vous allez me dire que c'est très facile
pour moi ça ne l était pas

je suis preneur de votre code si toutefois vous pensez que ça ne perturbera pas le fonctionnement du graphe
j oubliais , je suis arrive a le faire avec des formules mais le gros problème est que les contenues des plages s'affichent en numéraire et non en % j ai eu beau essayer de changer le format rien n'y fait
et c'est sans collage

Bonne journée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Graphe Horizontal")

If Not Application.Intersect(Target, ws.Range("CV12:CV51,CX12:CX51,CV58:CV97,CX58:CX97")) Is Nothing Then

If Target.Column = 100 Then
i = 0
j = 0
Else
i = 5
j = 2

End If

If Target.Row < 58 Then
k = 0
Else
k = 46
End If

ws.Range("CM10").Value = Target
ws.Range("CX9").Value = Target.Offset(0 - k, -57 + i)
ws.Range("CP10").Value = Target.Offset(0 - k, -58 - j)
ws.Range("CW11").Value = Target.Offset(0 - k, -57 - i)
ws.Range("CY11").Value = Target.Offset(0 - k, -50 - i)
ws.Range("CW11").Value = Target.Offset(0 - k, -57 - j)
ws.Range("CY11").Value = Target.Offset(0 - k, -50 - j)

ws.Range("CT54").Value = Target.Offset(0 - k, -51 - i)
ws.Range("CT54").Value = Target.Offset(0 - k, -51 - j)
ws.Range("CZ54").Value = Target.Offset(0 - k, -50 - i)
ws.Range("CZ54").Value = Target.Offset(0 - k, -50 - j)



End If

End Sub

re
absolument pas je cherche la meilleure solution
moi en formule je disais par exemple ceci prenons la premier plage
dans le graphe qui reçoit la cotation je mettais en cellule CK11 puis apres selon le meme principe dans toutes les cellules de la plage
=SI(AX101="OK" ,AZ101;"")&SI(AX144="OK";AZ144;"")&SI(AX187="OK";AZ187;"")&SI(AX230="OK";AZ230;"")SI(AX273="OK";AZ273;"")....etc en descendant sur toute la plage
le format est en pourcentage 3 decimales
autre chose j
e ne comprend pas pourquoi tu dits que j ai change ma demande depuis le début je cherche une solution efficace si le code est meilleur que les formules ce qui devrait être je vais mettre un code si je n arrive pas a trouver un code a ce moment la je mettrais les formules
mais je viens de t 'expliquer que les formules me retournent le contenue de la cellule en numéraire Voila je ne peux t en dire plus si tu as un code je l 'essai en temps réel

je ne comprends pas. cela a-t'il un rapport avec ta demande initiale, que je pensais avoir compris?
si oui, explique ce qui ne te convient pas dans la solution #1.

Bonsoir
il n y a rien acomprendre puisque ce sque je demande est xactement la meme chose mais le code de frenchie ne fonctionne pas au depart je pensais que ce ne serait pas un probleme d amener une plage vers une autre le seul soucis est que je pensais que cetait realiseable sans faire de procedure de copier coller mais comme personne ne m a donne de code le l ai fait moi meme en formules
je t ai explique que le resultat v net

alors utilise ceci à la place de ma suggestion en #15, cela va également préserver le format:

Private Sub linkrg(target As Range, source As Range)
source.Copy
target.Parent.Activate
target.Select
target.Parent.Paste Link:=True
target.PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
End Sub

Bonjour
je le mets ou ce code dans la feuille ou dans un module, et ou je mets le reste et de quelle manière
je ne retrouve pas ton message 15 sur le site
j'ai déjà cela comme code dans cette feuille
je te remets en dessous les plages a copier comment j écrit cela

Option Explicit

Private Sub CommandButton1_Click()

End Sub
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Byte, Col As Byte
If Not Application.Intersect(Target, Range("CV12:CV51,CX12:CX51,CV58:CV97,CX58:CX97")) Is Nothing Then
Range("DP2") = Target
End If

End Sub



BA101:BI141 Vers CK11:CS51 =Si(AX101=1;"") BO101:BW141 Vers DB11:DJ51 =Si(BZ101=1;"")
BA144:BI184 Vers CK11:CS51 =Si(AX144=1;"") BO144:BW184 Vers DB11:DJ51 =Si(BZ144=1;"")
BA187:BI227 Vers CK11:CS51 =Si(AX187=1;"") BO187:BW227 Vers DB11:DJ51 =Si(BZ187=1;"")
BA230:BI270 Vers CK11:CS51 =Si(AX230=1;"") BO230:BW270 Vers DB11:DJ51 =Si(BZ230=1;"")
BA273:BI313 Vers CK11:CS51 =Si(AX273=1;"") BO273:BW313 Vers DB11:DJ51 =Si(BZ273=1;"")

BA316:BI356 Vers CK57:CS97 =Si(AX316=1;"") BO316:BW356 Vers DB57:DJ97 =Si(BZ316=1;"")
BA359:BI399 Vers CK57:CS97 =Si(AX359=1;"") BO359:BW399 Vers DB57:DJ97 =Si(BZ359=1;"")
BA402:BI442 Vers CK57:CS97 =Si(AX402=1;"") BO402:BW442 Vers DB57:DJ97 =Si(BZ402=1;"")
BA445:BI485 Vers CK57:CS97 =Si(AX445=1;"") BO445:BW485 Vers DB57:DJ97 =Si(BZ445=1;"")
BA488:BI528 Vers CK57:CS97 =Si(AX488=1;"") BO488:BW528 Vers DB57:DJ97 =Si(BZ528=1;"")

je pensais avoir lu que le code de frenchie était bon à part que le format résultant n'était pas correct.
ce que je propose en #15, adapté en #59, c'est de faire quelques adaptations dans le code de frenchie pour créer des liens au lieu de copier des valeurs, et pour copier aussi les formats.
ces adaptations ne demandent pas d'expérience de programmation.

la boite de dialogue vient quand il y a plusieurs "ok", parce que, vu ce que tu demandes, cela semble être une anomalie à signaler. que doit-il se passer quand il y a plusieurs "ok"?

bizarre que tu aies la boite de dialogue si il n'y a jamais plus d'un OK dans AX101, AX144, AX187, AX230, AX273, BZ101, BZ144, BZ187, BZ230, BZ273...

(écrire le code est très simple. te comprendre est quasi impossible. communiquer avec toi est presque surhumain.)
relis ta description de départ:
si dans la cellule AX101 est inscrit"OK" affichez moi le contenue de la plage BA101:BI141 en CK11:CS51
(...)
si dans la cellule BZ101 est inscrit"OK" affichez moi le contenue de la plage BO101:BX141en CK11:CS51

que doit-il se passer si il y a OK en AX101 et aussi en BZ101?

ah, je comprends, tu as changé d'avis après avoir décrit ce que tu souhaitais que nous fassions pour toi.

alors tu peux supprimer les lignes 24 à 33 du code de frenchie, et, dans la ligne 6, supprimer ce qui commence par B. cela devrait faire ce que tu demandes pour la ligne CK.
tu pourras adapter ensuite, si cela fonctionne bien, pour ajouter la ligne DB.

"ca ne fonctionne pas": que veux-tu dire précisément? message d'erreur?
as-tu essayé de faire tourner ce code?
comme écrit en #8, il est important de toujours clairement et concisément décrire quand le code doit être exécuté, et ce qu'il doit faire.

qui est megabox?
qui appelle RecopiePlage()?

qui appelle RecopiePlage()?
pour supprimer la boite de dialogue du code de franchie, tu peux supprimer les lignes de 6 à 12, du "for each" au "next".

en #15, quand j'écrivais "ajouter ceci dans le même module:", je sous-entendais "tout en bas du module", en tous cas en dehors d'une procédure existante.
le mieux, quand tu modifies du code, est d'immédiatement vérifier que la syntaxe est correcte, pour éviter de découvrir des erreurs beaucoup plus tard. pour cela: clique sur Débogage > Compiler VBAProject
lecture utile: https://www.commentcamarche.net/contents/1381-debogage