[Résolu][Calc]Validité réciproque Feuille1<==>Feuille2

[zeguedon]

Bonjour,

Pour faire suite à ce fil en section tableur où l'auteur souhaite qu'une sélection effectuée dans une liste de validité sur une Feuille1 soit aussi effectué simultanément dans une seconde liste de validité identique située sur une Feuille2, et réciproquement de la Feuille2 vers la Feuille1 :

Code : Tout sélectionner

Sub Main(oevt As Object)
Select Case oevt.AbsoluteName 
	Case "$Feuille1.$A$1"
		Thiscomponent.Sheets(1).GetCellRangeByName("A1").SetString(oevt.String)
	Case "$Feuille2.$A$1"
		Thiscomponent.Sheets(0).GetCellRangeByName("A1").SetString(oevt.String)
End Select
End Sub

Les listes de validité sont en A1 de chaque feuille. La sub est connectée à l’événement de feuille contenu modifié de chaque feuille.