[Résolu] [Calc] Remise à zéro listes déroulantes en cascade

[clownhouse]

Bonjour à tous,

Je viens vers vous car malgré mes recherches dans le forum et un sujet dans partie tableur (https://forum.openoffice.org/fr/forum/v ... =4&t=47441), je ne parvient pas à trouver une solution adaptée à mon problème. Peut-être une macro pourrai me permettre d'avancer.

Je vous explique, j'ai créé un fichier avec des listes déroulantes qui découlent les unes des autres (Département puis arrondissement, puis commune) avec "INDIRECT" et en relation avec les données stockées sur d'autres feuilles du fichier.
Cela fonctionne très bien seulement lorsque je viens modifier une des premières listes déroulantes, les valeurs des autres restent par défaut.

Ce que je souhaiterai, c'est que si je reviens sur une liste déroulante précédente, c'est que la ou les suivante(s) revienne(nt) à 0 et ceci pour chaque ligne de mon tableau.

Je vous joins un fichier exemple afin de simplifier les recherches et comprendre ma démarche.

J'ai récupérer un code sous excel mais ne sait pas comment l'adapter sous calc et comment l'appliquée à ttes les lignes de mon tableau.

Code : Tout sélectionner

[color=#4040FF]Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZoneAEffacer As Range

Set ZoneAEffacer = Range("B2:C2")
If Target.Address = "$A$2" Then ZoneAEffacer.ClearContents
Set ZoneAEffacer = Range("C2")
If Target.Address = "$B$2" Then ZoneAEffacer.ClearContents
End Sub[/color]

Je vous remercie par avance de vos recherches intellectuelles.

Bonne journée à tous.

[Dude]

Salut,

Tu as fait des recherches dans la partie Tableur, il te suffit de faire la même chose ici.
Et d'un problème complexe, il faut décomposer ce dernier en tâches élémentaires.
Chaque tâche a forcément un bout de code qui lui correspond.

Par exemple avec

récupérer un code sous excel mais ne sait pas comment l'adapter sous calc

Worksheet_change est un événement de feuille qui est géré différemment :



Il suffit de brancher ton code sur "Contenu modifié".

[clownhouse]

Merci Dude,

J'ai effectuer mes recherches sur l'ensemble du forum et sur le net, mais sans trouver ma solution.

J'ai tester le code sous excel et cela fonctionne pour une ligne.

Par contre, lors de sa transposition sous calc, il me met une "erreur 91"

Erreur 91.jpg

Ne faisant pas de programmation, je n'arrive pas à découvrir d'où provient cette erreur.

De plus, même sous excel, je ne sais pas comment répercuter ce code sur les autres lignes.

Merci de votre aide. Je continue toujours à chercher.

[Dude]

J'ai effectuer mes recherches sur l'ensemble du forum et sur le net, mais sans trouver ma solution.

Solution ? Tu ne trouveras que très rarement un cas semblable au tien sauf s'il est courant.
Donc, bis repetitae :

d'un problème complexe, il faut décomposer ce dernier en tâches élémentaires

J'ai tester le code sous excel et cela fonctionne pour une ligne.

Tu viens de poser la question qui tue

Les listes en cascade font l'objet d'un suprême de code.
Pars plutôt de cet exemple pour l'adapter à ton cas.

[luky-luke]

Bonjour

Un exemple à tester.

Code : Tout sélectionner

Option Explicit
Sub Main
Dim oSheet As Object, oSelectCell As Object
Dim oRa As Object
oSheet = ThisComponent.Sheets.GetByName("DPT")
oSelectCell = ThisComponent.currentselection
oRa = oSelectCell.CellAddress
If oRa.Column = 0 Then
	oSheet.GetCellByPosition(1,oRa.Row).String = ""
	oSheet.GetCellByPosition(2,oRa.Row).String = ""
End if	
End Sub

Il suffit de brancher ton code sur "Contenu modifié".

C'est ce qui est fait dans le fichier joint.

clownhouse.ods

Cordialement
Luke

[clownhouse]

MERCI luky-luke

Tu es un génie, ta macro fonctionne comme souhaité. Le résultat obtenu correspond à mes recherches.

Il me manque juste un dernier point, c'est que cela fonctionne quand on change la première liste déroulante, elle remet à 0 les 2 autres,

par contre lorsque je ne change que la 2ème liste, je voudrais que la 1ère reste identique mais que la 3ème revienne à 0.

J'espère avoir été assez clair dans mes explications.

Bonne journée à tous les membres du forum et à ceux qui passe du temps pour aider les moins débrouillard comme moi..... surtout pour de la macro....

[luky-luke]

ReBonjour

lorsque je ne change que la 2ème liste, je voudrais que la 1ère reste identique mais que la 3ème revienne à 0.

Il suffit d'ajouter une condition à la macro

Code : Tout sélectionner

If oRa.Column = 1 Then
	oSheet.GetCellByPosition(2,oRa.Row).String = ""
End if	

Et dans le fichier joint.
Cordialement
Luke

[clownhouse]

MERCI luky-luke

TU ES FORMIDABLE, rapide et génial.

C'est exactement ce que je cherchais à faire, cela fonctionne impeccablement.

Un seul détail, dont je me suis aperçu par hasard, c'est que lorsque j'ai entré des données, que je sélectionne mes 3 liste déroulantes et que je fais supprimer, le logiciel me mets le message d'erreur ci-dessous:

Erreur.jpg

Cela ne la fait pas quand je supprime cellule par cellule ......;

MERCI

[luky-luke]

Rere
Encore une petite condition

Code : Tout sélectionner

If oSelectCell.supportsService("com.sun.star.table.Cell") Then

Contrôle si l'on a bien sélectionné qu'une seule cellule.
La macro complète

Code : Tout sélectionner

Option Explicit
Sub Main
Dim oSheet As Object, oSelectCell As Object
Dim oRa As Object
oSheet = ThisComponent.Sheets.GetByName("DPT")
oSelectCell = ThisComponent.currentselection
oRa = oSelectCell.CellAddress
	If oSelectCell.supportsService("com.sun.star.table.Cell") Then
		If oRa.Column = 0 Then
			oSheet.GetCellByPosition(1,oRa.Row).String = ""
			oSheet.GetCellByPosition(2,oRa.Row).String = ""
		End if
		If oRa.Column = 1 Then
			oSheet.GetCellByPosition(2,oRa.Row).String = ""
		End if
	End if
End Sub

Je manque de pratique en ce moment

Cordialement
Luke

[clownhouse]

Re

En fait, cela ne change pas le pb, j'ai tjs le code erreur. Ce code intervient dès que je sélectionne au moins 2 cellules et que j'appuie sur la touche supprimer.....

Et ce quelque soit les cellules sélectionnées (dans ou or tableau)....

Je manque de pratique en ce moment

Que j'aimerais manquer de pratique comme toi.....

[luky-luke]

Rerere

Ce code intervient dès que je sélectionne au moins 2 cellules et que j'appuie sur la touche supprimer

Je ne reproduis pas l'erreur que tu signale. Test le fichier joint.

clownhouse_2.ods

Cordialement
Luke

[clownhouse]

Bonjour,

MERCI LUKY-LUKE,

En effet, le fichier que tu as transmis ne présente aucune erreur et celui sur lequel j'ai travaillé ne le faisait plus après avoir entièrement relancé LibreOffice. Tu est FORMIDABLE

Grâce à toi, cela fonctionne parfaitement alors que je n'y serais pas arrivé seul, car même avec la macro sous les yeux, j'ai du mal à tout comprendre. Heureusement qu'il existe des personnes comme toi et d'autres du forum pour aider les pauvres âmes en perdition comme moi.
Merci à tous ceux qui prennent du temps pour aider les autres à progresser et longue vie à ce forum....

Bonne journée à tous.