[Résolu][Calc]Effacer données d'une colonne selon une autre

[RegorB]

[J'ai créé une petit macro pour insérer une formule en A1 en fonction du contenu de F1, c'est à dire que si en F1 on trouve Démission, le contenu en A1 est effacé. Cela marche, mais je voudrais savoir comment faire pour que si systématiquement quand on trouve Démission dans la colonne F le contenu de la cellule correspondant en colonne A soit effacé.
En PJ mon fichier exemple….
Merci à vous...

[micmac]

Bonjour (Règle du forum n°10 : Politesse),

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même au risque de voir votre sujet verrouillé.

Avant de poster une nouvelle question, il nous serait agréable que vous donniez suite au fil précédemment ouvert :
Commentaire sous condition
notamment en précisant la solution retenue et en ajoutant le balisage [Résolu] si c'est le cas.
C'est une question de courtoisie pour les gens qui vous ont répondu et consacré bénévolement de leur temps. Notre forum est plus lisible avec ce balisage comme vous avez pu vous en rendre compte en le parcourant.

OpenOffice 3.4.1
windows10

Votre signature indique une version de OpenOffice qui n'est plus maintenue.
Est-ce une erreur, un oubli, un choix, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature par "Obligation de version".

Pour connaître la version que vous possédez : https://forum.openoffice.org/fr/forum/v ... 582#p11582

Afin de profiter des dernières améliorations, il est fortement recommandé d'être à jour de la dernière version

Accès direct à votre signature pour la corriger en y indiquant
1- La version exacte de AOO ou LibO (AOO 4.1.5, LibO 6.0.6 par exemple) ;
2- La version exacte du système d'exploitation (Windows XP SP3, Vista SP2, Windows 7 SP1, Win 8.1, Win 10, Ubuntu 18.04, MacOS 10.13.6 par exemple).

Cordialement.

[Dude]

Fournir le code de la macro permet déjà d'analyser sans avoir à télécharger un document inutile.

Code : Tout sélectionner

Sub insereFomuleDemission
Dim monDoc as Object, maCel as object
   monDoc = thisComponent.sheets.getByName("Feuille1")
   maCel = monDoc.getCellRangeByName("A1")
   maCel.Formulalocal= "=SI(F1=""Démission"";"" "";)"
End Sub

Ta formule renvoie une erreur 511 (mauvaise syntaxe).
Je t'invite à revoir les paramètres à envoyer à SI.
Si tu veux une formule indépendante de l'emplacement, sers-toi du couple INDIRECT / LIGNE.

Dernier point : on recommande de ne pas utiliser FormulaLocal.

[RegorB]

Merci Dude.
La formule chez moi ne donne pas d'erreur? Je dois m'y prendre mal…?
Je ne comprend pas la combinaison INDIRECT et LIGNE

[Dude]

Je ne comprend pas la combinaison INDIRECT et LIGNE

Peut-être faire un effort de recherche non ?
https://forum.openoffice.org/fr/forum/s ... id%5B%5D=4

Capture.PNG

[RegorB]

Décidément ce soir je ne comprend rien…..

[Piaf]

Bonjour

mais je voudrais savoir comment faire pour que si systématiquement quand on trouve Démission dans la colonne F le contenu de la cellule correspondant en colonne A soit effacé.

A tester

Code : Tout sélectionner

Sub insereFomuleDemission(oEv as Object)
Dim oDoc as Object
	oDoc = thisComponent
	If oEv.CellAddress.Column = 5 And oEv.CellAddress.Row < 3 Then
		If oEv.String = "Démission" Then
			oDoc.Sheets(oEv.CellAddress.Sheet).getCellByPosition(0,oEv.CellAddress.Row).String = ""
		End If	
	End if
End Sub

A+

[RegorB]

Un grand merci à toi Piaf, c'est exactement ce que je cherchais. Encore merci à toi