Bonjour Caro44,
Voyez si la solution proposée dans le fichier joint peut vous aider, il comporte une fonction personnalisée et des formules du type de celle ci-dessous
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Function NomFeuille(Optional position as integer)
Dim oDoc As Object, oSheets As Object, Feuille As Object
Dim NmbFeuilles As Integer 'Variable qui va stocker le nombre de feuilles
On error goto Erreurs 'Si erreur va à Erreurs
oDoc = ThisComponent
oSheets = oDoc.Sheets
NmbFeuilles = oDoc.Sheets.Count 'stockage nbre de feuille du classeur
NomFeuille = oDoc.Sheets(position-1).Name'la première feuille est la feuille 0, d'où le -1
Erreurs: 'Gestion des erreurs
If position < 1 then goto nul'si le critère position est inférieur à 1 alors va à Nul
If IsMissing(position) then goto nul'si le critère position est oublié alors va à Nul
If position > NmbFeuilles then goto nul 'si le critère position est supérieur à NmbFeuilles alors va à Nul
Goto fin 'va à Fin
Nul:'instruction si le critère position est erroné
NomFeuille = ""'ne rien afficher
Goto fin
Fin:
End Function |
=SI(INDIRECT(ADRESSE(EQUIV("NORD";INDIRECT(CONCATENER(ADRESSE(1;1;4;1;$A2);":";ADRESSE(100;1;4;1;$A2));1);0)+NB.SI.ENS($A$1:$A2;$A2);COLONNE()-1;4;1;$A2);1)="";"";INDIRECT(ADRESSE(EQUIV("NORD";INDIRECT(CONCATENER(ADRESSE(1;1;4;1;$A2);":";ADRESSE(100;1;4;1;$A2));1);0)+NB.SI.ENS($A$1:$A2;$A2);COLONNE()-1;4;1;$A2);1))
Partager