[Résolu][Calc] Miroir=clone de deux cellules

[mathylde]

Bonjour,
je souhaiterai savoir comment faire pour cloner deux cellules?
tel que Feuille1.F3=Feuille2.F3 et inversement.

En cherchant sur le net, j'ai trouvé des macros. Cependant, openoffice ou libreoffice ne fonctionne pas avec.
Je pense que cela vient du fait que c'était des macros pour excel.

Du coup, je viens ici pour vous demander de l'aide!
merci d'avance

[papa_georges]

bonjour

attention aux références circulaires
si cellule 1 = cellule 2 et que cellule 2 = cellule 1 on devrait avoir une erreur 522
il faut peut-être passer par une cellule 3 qui fournit la valeur aux 2 auteures cellules

je ne sais pas si je réponds à ta question

cordialement

[mathylde]

Merci de cette réponse!
Mais je ne pense pas que ce soit mon cas.
En effet, je ne veux pas y faire un calcul.
Je veux écrire un texte dans une cellule feuille1.F3 qui s'affiche sur la feuille2.F3 et pouvoir par la suite complèter le texte sur la feuille2.F3. J'aimerais que la modification apparaisse sur la cellule feuille 1.F3.

C'est pourquoi il me faut par exemple A=B1 et B1=A1

[Churay]

Bonjour

En associant cette macro à Evènement de la Feuille (pour Feuille1 et Feuille2)

Code : Tout sélectionner

Sub maj( oEvt )
Dim sCell1 As String, sCell2 As String, oSource As Object
Dim oCell1 As Object, oCell2 As Object, oCible As Object
	sCell1 = "$Feuille1.$F$3" : oCell1 = thisComponent.Sheets(0).getCellRangeByName(sCell1)
	sCell2 = "$Feuille2.$F$3" : oCell2 = thisComponent.Sheets(1).getCellRangeByName(sCell2)

	If oEvt.AbsoluteName = sCell1  Then
		oSource = oCell1
		oCible = oCell2
		oCible.Formula = oSource.Formula
	elseif oEvt.AbsoluteName = sCell2 Then
		oSource = oCell2
		oCible = oCell1
		oCible.Formula = oSource.Formula
	End if
End Sub

Les deux cellules sont identiques : elles contiennent la dernière modification effectuée sur l'une ou l'autre des feuilles (sans risque d'érreur références circulaires)

[mesmes]

Bonjour,
Vu que l'on m'a énormément aidé, je me dois d'aider à mon tour, même si tu n'a fournis aucun effort pour pondre un bout de code même qui ne fonctionne pas.

Alors Tu as besoin de Cette macro :

Code : Tout sélectionner

Global oDoc as Object, oF1 as Object, oF2 as Object
Global oCell as Object, oFeuille as object, oMoi as Object, oPlage as Object, oresult as object

Sub SurFeuille1(oEvt)
	oDoc = thisComponent
	oF1 =  oDoc.Sheets.getByName("Feuille1")
	oF2 = oDoc.Sheets.getByName("Feuille2")
	
	oCell = oEvt
	oFeuille = oDoc.currentController.activeSheet
	oMoi = oFeuille.getcellrangebyname(oCell.AbsoluteName)
	oPlage = oFeuille.getcellrangebyname("A2")
	oResult = oMoi.queryIntersection(oPlage.RangeAddress)
	
	If oResult.RangeAddressesAsString <> "" Then 
			oF2.getCellRangeByName("A2").string = oF1.getCellRangeByName("A2").string
	end If
End Sub

Sub SurFeuille2(oEvt)
	If oResult.RangeAddressesAsString <> "" Then 
			oF1.getCellRangeByName("A2").string = oF2.getCellRangeByName("A2").string
	end If
End Sub

Sur la Feuille1, clik droit, evenement de la feuille, contenu modifié et tu lui assigne la macro SurFeuille1
Sur la Feuille2, clik droit, evenement de la feuille,contenu modifié, et tu lui assigne la macro SurFeuille2

C'est mochement codé mais c'est fait à la va vite.

je te joins un fichier exemple

MathyldeMiroir.ods

bon courage

J'ai été précédée par une plus Jolie solution . mais bon 46 msg <<<<< 1199 msg

[Jean-Louis Cadeillan]

Bonjour,
Je te propose une solution qui passe par l'intermédiaire d'une liste de validité et d'une mise en forme conditionnelle.
Tu saisis un texte en Feuille1.A1 et aussitôt le fond de la cellule devient rouge. Cela veut dire que la cellule Feuille2.A1 ne contient pas la même chose. Il suffit de cliquer sur la liste de validité de cette cellule pour la remplir du même contenu. Réciproquement, si tu modifies le contenu de Feuille2.A1, le fond devient rouge et il te faudra synchroniser par un clic sur la liste de validité de Feuille1.A1.
Cordialement
Jean-Louis

[bm92]

Bonjour,
Sans macro.
Sélectionne les feuilles 1 et 3 à la fois. Modifie la cellule F3. Reviens à une sélection unique.

Copie vers de multiples feuilles
Dans OpenOffice.org Calc, vous pouvez insérer des valeurs, du texte ou des formules tout en les copiant dans d'autres feuilles sélectionnées dans le document.

• Sélectionnez toutes les feuilles souhaitées en maintenant la touche Ctrl et en cliquant sur les onglets d'enregistrement correspondants qui sont toujours grisés à la marge basse de l'espace de travail. Tous les onglets d'enregistrement sélectionnés sont maintenant blancs.
  Vous pouvez utiliser Maj+Ctrl+Page précédente ou Page suivante pour faire une sélection multiple de feuilles en utilisant le clavier.
• Maintenant, lorsque vous insérez des valeurs, du texte ou des formules dans la feuille active, ils apparaîtront également, aux positions identiques, dans les autres feuilles sélectionnées. Par exemple, les données saisies dans la cellule A1 de la feuille active sont automatiquement insérées dans la cellule A1 des autres feuilles sélectionnées.

[Churay]

La pertinence de Bernard ne sera pas mise en défaut...

Mais bon pourquoi faire simple quand on peut faire compliqué...

[mathylde]

Je vous remercie à tous pour ces réponses.
Pour répondre à mesmes, si je ne m'y connais pas du tout en informatique et pour cela
je ne peux pas du tout trouver la solution.
C'est d'ailleurs pour cela que je pose la question dans un forum.
J'ai regardé ce que tu as fait "mathylde miroir" et c'est exactement ce que je souhaiterai faire.
Mais comme je ne m'y connais pas, je ne sais pas comment le reproduire.
Pour être plus claire, je vais expliquer mon projet.

Je suis enseignante et je souhaiterais sur la première feuille "mettre l'emploi du temps détaillé de ma semaine".
Et sur la deuxième feuille, j'aimerais qu'apparraisse l'emploi du temps et pour chaque jour je noterai en dessous le bilan ( ce qui a été fait ou pas).
Et selon le bilan je modifierai l'emploi du temps du jour suivant.
C'est pour cela qu'il faut que les modifications réapparraissent aussi sur la feuille 1.

Et donc en conclusion, ce que Mesmes a fait pour deux cellules, je souhaiterais le reproduire pour plusieurs.

Je joins mon tableau sans l'emploi du temps mais en notant les cellules à cloner pour mieux comprendre ce que je viens d'expliquer.

J'ai bien compris le système d'entraide et malheureusement en informatique je ne peux aider.
Mais par contre, si j'arrive à faire cet outil avec vous, je le laisserai en libre service pour que d'autres enseignants puissent l'utiliser.

Merci d'avance

[mesmes]

Hello Mathylde,

si je ne m'y connais pas du tout en informatique et pour cela
je ne peux pas du tout trouver la solution.
C'est d'ailleurs pour cela que je pose la question dans un forum.

Je comprend tout à fait. Sache que je suis informaticienne, et que même moi j'ai du mal avec Calc que je ne connaissais encore pas y a un mois.

Là j'ai pas trop le temps, mais je vais me pencher sur ton fichier et te le renvoyer en t'expliquant en détail ce que j'ai fais.

Bon courage

[mathylde]

Je te remercie de ton aide.
On est plusieurs enseignantes de l'école à espérer pourvoir faire cela par ordinateur au lieu
de l'éternel cahier journal tout rayé qui devient finalement un cahier de brouillon.

En tout cas, merci si tu arrives à résoudre notre problème, ce qui facilitera beaucoup notre quotidien.

Merci

[Grenouille]

Bonjour,

On est plusieurs enseignantes de l'école à espérer pourvoir faire cela par ordinateur au lieu de l'éternel cahier journal tout rayé qui devient finalement un cahier de brouillon.

Les enseignants sont nombreux à vouloir faire la même chose semble t-il :
http://user.services.openoffice.org/fr/ ... er+journal
http://user.services.openoffice.org/fr/ ... er+journal
http://user.services.openoffice.org/fr/ ... er+journal

Dommage, toutes ces personnes n'ont jamais donné suite pour offrir un vrai document exploitable par tous.

A+

[mesmes]

Pour l'instant comme solution immédiate, tu peux faire comme l'a proposé bm92

Donc tu sélectionne la feuille que tu souhaite remplir, exemple Feuille1 :
- Quand tu veux cloner ta feuille: tu appuie sur la touche Ctrl de ton clavier et en même temps tu clic sur la Feuille2, que tu souhaite cloner et la tout ce que tu écrira sur la Feuille1 va se calquer sur la Feuille2
- Quand tu souhaite écrire sans calquer, tu refais la même chose CTRL + clic sur la Feuille.

Fais des tests, tu verra que c'est plus facile à faire qu'à expliquer.

[Jean-Louis Cadeillan]

sur la deuxième feuille, j'aimerais qu'apparaisse l'emploi du temps et pour chaque jour je noterais en dessous le bilan ( ce qui a été fait ou pas).

Je ne suis pas sûr d'avoir compris ce que tu souhaites obtenir.

• Chaque cellule représente une plage de temps : une heure, une demi-journée ?
• Chaque cellule peut contenir plusieurs tâches à effectuer ?
• Ton bilan consiste en quoi ? Ajouter pour chaque tâche Fait, Pas fait ? D'autres catégories, comme fait à x%, Abandon, Reporté, etc ?
• Je n'ai pas compris pourquoi tu voulais faire un bilan en-dessous... à moins que ton bilan soit en texte libre ?

Si vraiment tu souhaites associer à chaque plage de temps un bilan, il t'est très facile, pour chaque plage horaire de prévoir 2 cellules :

• une première (B3, par exemple) où tu entres tes tâches prévues sur Feuille1 et son pendant sur Feuille2 qui contient =Feuille1.A3
• une seconde (C3, par exemple) que tu renseignes à partir de Feuille2 et son pendant sur Feuille1 qui contient =Feuille2.C3.

Voir le fichier joint où ce principe est mis en œuvre. Les cellules en couleur (jaune ou vert) sont à renseigner, les cellules sans couleur se remplissent automatiquement. On pourrait sans problème verrouiller la saisie dans les cellules qui ne sont pas à renseigner, pour éviter d'écraser les formules, mais je ne l'ai pas fait, dans cette phase d'ébauche.
Le seul intérêt d'avoir ces deux feuilles miroir est de leur appliquer une mise en forme particulière... puisqu'elles contiennent les mêmes informations !
A+
Jean-Louis

[mesmes]

Hello JLC

Je me permet de répondre à sa place, mais ce n'est pas tout à fait ce qu'elle veut faire(de ce que j'ai compris), car elle veut aussi calquer les cellule de la feuille2 en Feuille1
Donc ça doit aller dans les deux sens --> et <--

[Jean-Louis Cadeillan]

La seule chose que ne permet ma solution est de rentrer le bilan ou l'emploi du temps indifféremment dans les deux feuilles : Il faut saisir les emplois du temps dans la feuille Prévu et les bilans dans la feuille Fait. Je réponds au souci principal :

Et sur la deuxième feuille, j'aimerais qu'apparaisse l'emploi du temps et pour chaque jour je noterai en dessous le bilan ( ce qui a été fait ou pas).Et selon le bilan je modifierai l'emploi du temps du jour suivant.C'est pour cela qu'il faut que les modifications réapparaissent aussi sur la feuille 1.

On peut sans problème modifier l'EDT du jour suivant sur la feuille Prévu, puisque le bilan du jour précédent y est visible !
A+
Jean-Louis

[mesmes]

JLC au temps pour moi !!! j'avais pas vu les cases Bilan !!! à mathylde de dire si c'est bon ou pas

[Churay]

Yeap

J'en suis resté bêtement à mon approche précédente : on modifie la cellule d'une feuille -> on reporte la modif de la cellule sur l'autre feuille.

Pour ne pas m'embêter à gérer la ligne supplémentaire qui apparait en feuille2, j'ai ajouté une ligne en feuille1 pour garder la même structure de feuille, ce qui permet d'utiliser .RangeAddress sans casse-tête.

Ajout : On peut bien évidemment revenir à la feuille d'origine sous réserve de supprimer une des deux lignes intercalaires de la feuille2 pour que soit conservée une structure à l'identique des deux feuilles ou gérer la différence de structure pour que le clonage ne soit pas farfelu...

Je propose un code un peu compact, mais qui me semble lisible (pas alambiqué comme certaines formules hein...) : au besoin je commenterai.

Ajout : 2 Suite au message suivant, je suis content que cela convienne (pour une fois que je comprends la demande du premier coup... )

[mathylde]

Je vous suis vraiment reconnaissante de ce travail et d'avoir pris du temps pour me répondre.
Alors, j'avoue ne pas avoir compris tout le monde.
Mais je viens de regarder le dernier fichier celui de churay et c'est exactement ce que je souhaitais.
Je vais essayer de comprendre comment tu as fait.
Pour réussir une prochaine fois par moi même.

En tout cas, je vais le légender et le mettre en forme pour qu'il soit utilisable par le plus de monde possible.

Merci beaucoup

[londoners]

Bonjour,

c'est exactement ce que je souhaitais.
...
je vais le légender

Tu peux aussi légender ta question [Résolu] et

Merci

[mathylde]

Voilà, j'ai à peu près mis en forme en mettant un exemple bidon dedans.
Mais j'avoue qu'il y a qd même un petit hic " qd je mets en gras ou en couleur ce que je rajoute sur la feuille 2 pour que cela soit évident sur la feuille 1 des modifications
de l'emploi du temps, cela ne s'affiche pas sur la feuille 1"

Je suis qd même contente de pouvoir le faire fonctionner.
Merci

[Churay]

qd je mets en gras ou en couleur ce que je rajoute sur la feuille 2 pour que cela soit évident sur la feuille 1 des modifications de l'emploi du temps, cela ne s'affiche pas sur la feuille 1"

Dans l'autre sens non plus : une modification de couleur sur la feuille1 se sera pas reporté sur la feuille2.
Cela tient au fait que la surveillance des feuilles s'effectue sur le contenu et non la mise en forme.

Vite fait : une modif qui copie la couleur de fond et/ou de caractère, si une modification est faite ensuite sur le contenu. Autrement dit, il faut d'abord changer la couleur de fond et/ou de caractère, puis effectuer une modification de contenu, comme par exemple, l'ajout d'une espace en fin de texte. Il y a mieux, mais l'approche utilisée ne va permet pas beaucoup plus de manière simple.

Par exemple, cloner une partie seulement du texte en gras demande d'analyser plus finement le contenu. J'y réfléchis...

Elles sont bien les maîtresses de nos jours :
elles demandent d'abord un truc simple, ensuite elles précisent l'usine à gaz attendue...

Ajout : Une V2bis un peu améliorée, mais c'est loin d'être parfait... S'il y a modification du texte, le clonage s'effectue aussi sur la couleur des caractères et la mise en caractère gras. L'analyse est faite caractère par caractère. S'il n'y eu que modification des attributs de caractère, rien ne se passe : mais un bouton permet de cloner la cellule sélectionnée (avec couleur des caractères et caractère gras). A l'impression, le bouton n'apparaîtra pas sur les feuilles imprimées. Le bouton n'agit que sur la cellule sélectionnée, mais on peut envisager une mise à niveau des formats de toutes les cellules. Je patine un peu pour le sous-lignage et l'italique, j'ai du zapper quelque chose... Code : Tout sélectionner oCursorCbl.CharUnderline = oCursorSrc.CharUnderline oCursorCbl.CharUnderlineHasColor = oCursorSrc.CharUnderlineHasColor oCursorCbl.CharUnderlineColor = oCursorSrc.CharUnderlineColor oCursorCbl.FontDescriptor = oCursorSrc.FontDescriptor ' .Slant Trop simple pour fonctionner... comme quoi, même avec une utilisation massive de XRay, il me reste du chemin à faire et encore quelques automatismes à prendre pour maîtriser l'imbrication des objets...

[Churay]

Plagiant Brel :

Ma mère voici le temps venu
D'aller prier pour mon salut
Mathilde est revenue
Bougnat tu peux garder ton vin
Ce soir je boirai mon chagrin
Forum nous boirons notre chagrin
Mathilde est revenue
Mathylde n'est pas revenue...

[Churay]

Yeap

Le clonage cellulaire en V3 :
couleurs,
gras,
italique,
souligné
Le tout cumulable bien sûr...

fonctionne sur un simple changement d'attribut (pas besoin de modifier le texte)

exemple-V3.ods