OVH Cloud OVH Cloud

Repérer un string dans une cellule et trouver la valeur correspo nd

7 réponses
Avatar
Yoann (YoPi)
Bonsoir à tous,

J'avoue que j'ai passé ces derniers moments à chercher une réponse à mon
besoin sur le web (que je n'ai pas trouvée) et non sur ce newsgroup. Aussi,
n'étant pas un utilisateur très assidu de MPFE, excusez moi si ma question
fait écho à d'autres qui tombent régulièrement (mais ca m'étonnerai que ce
soit le cas)...

D'abord, je suis sous XL 2003.

Ensuite, étant contraint d'éplucher mes relevés de compte bancaire sur
plusieurs mois passés, je cherche à faire une classification automatique sur
3 niveaux en fonction du texte descriptif de chaque mouvement sur mon compte.
Par exemple, je souhaiterais que dès que la chaîne "SNCF " apparaît où que
ce soit dans la colonne qui contient le texte de description de la dépense,
XL en déduise que cette ligne peut être classée sous "Transport", "Train",
"Billet" pour respectivement les niveaux 1, 2 et 3 de ma catégorisation.

Je suis habituellement assez adroit avec les fonctions de base (Recherche &
Matrice, Texte, etc.), mais là franchement je sèche et je me dis que je vais
avoir du mal à éviter le VBA (que je comprends en lecture, mais ne pratique
pas...).

Pour l'instant je me dis que la meilleure solution est de créer une nouvelle
fonction du type
RECHERCHECHAINE(cellule_observée ; Tableau_des_correspondances ;
numéro_de_colonne) avec:
- cellule_observée = la cellule dans laquelle je vais demander à Excel de
trouver certaines chaînes de caractères caractéristiques de certaines
catégories de dépense ;
- Tableau_des_correspondances = Un Tableau de référence qui, dans sa
première colonne, liste toutes les chaînes de caractères caractéristiques
(ex: "SNCF ") et qui les fait correspondre dans les 3 colonnes voisines à
l'intitulé des niveaux 1 à 3 (ex: col 2 = "Transport", col 3 = "Train" et col
4 = "Billets")
- numéro_de_colonne = simplement le numéro de la colonne du Tableau de
correspondance qui contient le nom de la catégorie de dépense (en
l'occurrence, numéro_de_colonne = 2 quand je veux trouver la catégorie de
niveau 1 ; numéro_de_colonne = 3 pour le niv 2, etc.)

L'idée est simplement que dès qu'Excel voit une certaine chaîne de
caractères (où que ce soit dans le texte de description - cette souplesse est
importante !), il en déduit le type de dépense.

Je ne soumets pas cette question pour que quelqu'un fasse le job à ma place
(même si je serais très content de trouver une solution toute faite !), je
voudrais simplement que les experts qui lisent ce post confirment que je suis
sur la bonne piste (ou non) et me disent si ca vaut le coût que je me lance
dans l'écriture de la fonction (ce qui, à mon niveau de maîtrise de VBA,
représente un gros investissement).

Merci d'avance !

Yoann

7 réponses

Avatar
isabelle
bonjour Yoann,

pour trouver une texte à l'intérieur d'un autre texte,

=SI(ESTERREUR(TROUVE(B1;A1));0;1)

isabelle

Bonsoir à tous,

J'avoue que j'ai passé ces derniers moments à chercher une réponse à mon
besoin sur le web (que je n'ai pas trouvée) et non sur ce newsgroup. Aussi,
n'étant pas un utilisateur très assidu de MPFE, excusez moi si ma question
fait écho à d'autres qui tombent régulièrement (mais ca m'étonnerai que ce
soit le cas)...

D'abord, je suis sous XL 2003.

Ensuite, étant contraint d'éplucher mes relevés de compte bancaire sur
plusieurs mois passés, je cherche à faire une classification automatique sur
3 niveaux en fonction du texte descriptif de chaque mouvement sur mon compte.
Par exemple, je souhaiterais que dès que la chaîne "SNCF " apparaît où que
ce soit dans la colonne qui contient le texte de description de la dépense,
XL en déduise que cette ligne peut être classée sous "Transport", "Train",
"Billet" pour respectivement les niveaux 1, 2 et 3 de ma catégorisation.

Je suis habituellement assez adroit avec les fonctions de base (Recherche &
Matrice, Texte, etc.), mais là franchement je sèche et je me dis que je vais
avoir du mal à éviter le VBA (que je comprends en lecture, mais ne pratique
pas...).

Pour l'instant je me dis que la meilleure solution est de créer une nouvelle
fonction du type
RECHERCHECHAINE(cellule_observée ; Tableau_des_correspondances ;
numéro_de_colonne) avec:
- cellule_observée = la cellule dans laquelle je vais demander à Excel de
trouver certaines chaînes de caractères caractéristiques de certaines
catégories de dépense ;
- Tableau_des_correspondances = Un Tableau de référence qui, dans sa
première colonne, liste toutes les chaînes de caractères caractéristiques
(ex: "SNCF ") et qui les fait correspondre dans les 3 colonnes voisines à
l'intitulé des niveaux 1 à 3 (ex: col 2 = "Transport", col 3 = "Train" et col
4 = "Billets")
- numéro_de_colonne = simplement le numéro de la colonne du Tableau de
correspondance qui contient le nom de la catégorie de dépense (en
l'occurrence, numéro_de_colonne = 2 quand je veux trouver la catégorie de
niveau 1 ; numéro_de_colonne = 3 pour le niv 2, etc.)

L'idée est simplement que dès qu'Excel voit une certaine chaîne de
caractères (où que ce soit dans le texte de description - cette souplesse est
importante !), il en déduit le type de dépense.

Je ne soumets pas cette question pour que quelqu'un fasse le job à ma place
(même si je serais très content de trouver une solution toute faite !), je
voudrais simplement que les experts qui lisent ce post confirment que je suis
sur la bonne piste (ou non) et me disent si ca vaut le coût que je me lance
dans l'écriture de la fonction (ce qui, à mon niveau de maîtrise de VBA,
représente un gros investissement).

Merci d'avance !

Yoann


Avatar
Yoann (YoPi)
Merci Isabelle,

Sauf incompréhension de ma part, et c'est possible, ceci ne répond pas
pleinement à ma question car dans ce cas il faudrait que je teste la présence
de toutes les chaînes de caractères caractéristiques possibles avant de
savoir quelle est la bonne catégorisation.
Je comprends donc qu'il faudrait que j'imbrique autant de SI() qu'il y a de
chaînes caracrtéristiques possibles, ce qui n'est pas tenable du fait de leur
nombre.... Celà dit, je conviens que ca peut le faire avec un nombre limité
de chaînes possibles. Donc merci pour ce premier coup de pouce !
Je reformulerai peut etre ma question plus tard avec un petit exemple à
l'appui pour être plus clair.

Encore une fois, je précise que je maîtrise 'honorablement' les fonctions de
base d'Excel et que je ne crois pas que mon problème soit soluble en
utilisant ces fonctions... mais j'espère que je me trompe !

Thanks !
Yo

"isabelle" wrote:

bonjour Yoann,

pour trouver une texte à l'intérieur d'un autre texte,

=SI(ESTERREUR(TROUVE(B1;A1));0;1)

isabelle

Bonsoir à tous,

J'avoue que j'ai passé ces derniers moments à chercher une réponse à mon
besoin sur le web (que je n'ai pas trouvée) et non sur ce newsgroup. Aussi,
n'étant pas un utilisateur très assidu de MPFE, excusez moi si ma question
fait écho à d'autres qui tombent régulièrement (mais ca m'étonnerai que ce
soit le cas)...

D'abord, je suis sous XL 2003.

Ensuite, étant contraint d'éplucher mes relevés de compte bancaire sur
plusieurs mois passés, je cherche à faire une classification automatique sur
3 niveaux en fonction du texte descriptif de chaque mouvement sur mon compte.
Par exemple, je souhaiterais que dès que la chaîne "SNCF " apparaît où que
ce soit dans la colonne qui contient le texte de description de la dépense,
XL en déduise que cette ligne peut être classée sous "Transport", "Train",
"Billet" pour respectivement les niveaux 1, 2 et 3 de ma catégorisation.

Je suis habituellement assez adroit avec les fonctions de base (Recherche &
Matrice, Texte, etc.), mais là franchement je sèche et je me dis que je vais
avoir du mal à éviter le VBA (que je comprends en lecture, mais ne pratique
pas...).

Pour l'instant je me dis que la meilleure solution est de créer une nouvelle
fonction du type
RECHERCHECHAINE(cellule_observée ; Tableau_des_correspondances ;
numéro_de_colonne) avec:
- cellule_observée = la cellule dans laquelle je vais demander à Excel de
trouver certaines chaînes de caractères caractéristiques de certaines
catégories de dépense ;
- Tableau_des_correspondances = Un Tableau de référence qui, dans sa
première colonne, liste toutes les chaînes de caractères caractéristiques
(ex: "SNCF ") et qui les fait correspondre dans les 3 colonnes voisines à
l'intitulé des niveaux 1 à 3 (ex: col 2 = "Transport", col 3 = "Train" et col
4 = "Billets")
- numéro_de_colonne = simplement le numéro de la colonne du Tableau de
correspondance qui contient le nom de la catégorie de dépense (en
l'occurrence, numéro_de_colonne = 2 quand je veux trouver la catégorie de
niveau 1 ; numéro_de_colonne = 3 pour le niv 2, etc.)

L'idée est simplement que dès qu'Excel voit une certaine chaîne de
caractères (où que ce soit dans le texte de description - cette souplesse est
importante !), il en déduit le type de dépense.

Je ne soumets pas cette question pour que quelqu'un fasse le job à ma place
(même si je serais très content de trouver une solution toute faite !), je
voudrais simplement que les experts qui lisent ce post confirment que je suis
sur la bonne piste (ou non) et me disent si ca vaut le coût que je me lance
dans l'écriture de la fonction (ce qui, à mon niveau de maîtrise de VBA,
représente un gros investissement).

Merci d'avance !

Yoann





Avatar
isabelle
bonjour Yoann,

tu pourrais inscrire dans une plage quelconque de ton classeur la liste
de tous les correspondances "SNCF" etc.
et utilisé une fonction perso.

Function Correspondance(cellule As Range, PlageDesCorrespondances As Range)
For Each c In PlageDesCorrespondances
Correspondance = Application.Search(c, cellule)
If Not IsError(Correspondance) Then
GoTo fin
End If
Next
fin:
Correspondance = c
End Function

isabelle


Merci Isabelle,

Sauf incompréhension de ma part, et c'est possible, ceci ne répond pas
pleinement à ma question car dans ce cas il faudrait que je teste la présence
de toutes les chaînes de caractères caractéristiques possibles avant de
savoir quelle est la bonne catégorisation.
Je comprends donc qu'il faudrait que j'imbrique autant de SI() qu'il y a de
chaînes caracrtéristiques possibles, ce qui n'est pas tenable du fait de leur
nombre.... Celà dit, je conviens que ca peut le faire avec un nombre limité
de chaînes possibles. Donc merci pour ce premier coup de pouce !
Je reformulerai peut etre ma question plus tard avec un petit exemple à
l'appui pour être plus clair.

Encore une fois, je précise que je maîtrise 'honorablement' les fonctions de
base d'Excel et que je ne crois pas que mon problème soit soluble en
utilisant ces fonctions... mais j'espère que je me trompe !

Thanks !
Yo

"isabelle" wrote:


bonjour Yoann,

pour trouver une texte à l'intérieur d'un autre texte,

=SI(ESTERREUR(TROUVE(B1;A1));0;1)

isabelle


Bonsoir à tous,

J'avoue que j'ai passé ces derniers moments à chercher une réponse à mon
besoin sur le web (que je n'ai pas trouvée) et non sur ce newsgroup. Aussi,
n'étant pas un utilisateur très assidu de MPFE, excusez moi si ma question
fait écho à d'autres qui tombent régulièrement (mais ca m'étonnerai que ce
soit le cas)...

D'abord, je suis sous XL 2003.

Ensuite, étant contraint d'éplucher mes relevés de compte bancaire sur
plusieurs mois passés, je cherche à faire une classification automatique sur
3 niveaux en fonction du texte descriptif de chaque mouvement sur mon compte.
Par exemple, je souhaiterais que dès que la chaîne "SNCF " apparaît où que
ce soit dans la colonne qui contient le texte de description de la dépense,
XL en déduise que cette ligne peut être classée sous "Transport", "Train",
"Billet" pour respectivement les niveaux 1, 2 et 3 de ma catégorisation.

Je suis habituellement assez adroit avec les fonctions de base (Recherche &
Matrice, Texte, etc.), mais là franchement je sèche et je me dis que je vais
avoir du mal à éviter le VBA (que je comprends en lecture, mais ne pratique
pas...).

Pour l'instant je me dis que la meilleure solution est de créer une nouvelle
fonction du type
RECHERCHECHAINE(cellule_observée ; Tableau_des_correspondances ;
numéro_de_colonne) avec:
- cellule_observée = la cellule dans laquelle je vais demander à Excel de
trouver certaines chaînes de caractères caractéristiques de certaines
catégories de dépense ;
- Tableau_des_correspondances = Un Tableau de référence qui, dans sa
première colonne, liste toutes les chaînes de caractères caractéristiques
(ex: "SNCF ") et qui les fait correspondre dans les 3 colonnes voisines à
l'intitulé des niveaux 1 à 3 (ex: col 2 = "Transport", col 3 = "Train" et col
4 = "Billets")
- numéro_de_colonne = simplement le numéro de la colonne du Tableau de
correspondance qui contient le nom de la catégorie de dépense (en
l'occurrence, numéro_de_colonne = 2 quand je veux trouver la catégorie de
niveau 1 ; numéro_de_colonne = 3 pour le niv 2, etc.)

L'idée est simplement que dès qu'Excel voit une certaine chaîne de
caractères (où que ce soit dans le texte de description - cette souplesse est
importante !), il en déduit le type de dépense.

Je ne soumets pas cette question pour que quelqu'un fasse le job à ma place
(même si je serais très content de trouver une solution toute faite !), je
voudrais simplement que les experts qui lisent ce post confirment que je suis
sur la bonne piste (ou non) et me disent si ca vaut le coût que je me lance
dans l'écriture de la fonction (ce qui, à mon niveau de maîtrise de VBA,
représente un gros investissement).

Merci d'avance !

Yoann







Avatar
isabelle
tu pourrais aussi rendre dynamique la plage des correspondances
en nommant cette plage (Insertion, Nom)
Noms dans le classeur : plgC
Fait référence à : ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))

de cette façon tu pourrais ajouter des correspondance à la liste
et utiliser la formule comme ça :

=Correspondance(A1;plgC)

isabelle


Merci Isabelle,

Sauf incompréhension de ma part, et c'est possible, ceci ne répond pas
pleinement à ma question car dans ce cas il faudrait que je teste la présence
de toutes les chaînes de caractères caractéristiques possibles avant de
savoir quelle est la bonne catégorisation.
Je comprends donc qu'il faudrait que j'imbrique autant de SI() qu'il y a de
chaînes caracrtéristiques possibles, ce qui n'est pas tenable du fait de leur
nombre.... Celà dit, je conviens que ca peut le faire avec un nombre limité
de chaînes possibles. Donc merci pour ce premier coup de pouce !
Je reformulerai peut etre ma question plus tard avec un petit exemple à
l'appui pour être plus clair.

Encore une fois, je précise que je maîtrise 'honorablement' les fonctions de
base d'Excel et que je ne crois pas que mon problème soit soluble en
utilisant ces fonctions... mais j'espère que je me trompe !

Thanks !
Yo

"isabelle" wrote:


bonjour Yoann,

pour trouver une texte à l'intérieur d'un autre texte,

=SI(ESTERREUR(TROUVE(B1;A1));0;1)

isabelle


Bonsoir à tous,

J'avoue que j'ai passé ces derniers moments à chercher une réponse à mon
besoin sur le web (que je n'ai pas trouvée) et non sur ce newsgroup. Aussi,
n'étant pas un utilisateur très assidu de MPFE, excusez moi si ma question
fait écho à d'autres qui tombent régulièrement (mais ca m'étonnerai que ce
soit le cas)...

D'abord, je suis sous XL 2003.

Ensuite, étant contraint d'éplucher mes relevés de compte bancaire sur
plusieurs mois passés, je cherche à faire une classification automatique sur
3 niveaux en fonction du texte descriptif de chaque mouvement sur mon compte.
Par exemple, je souhaiterais que dès que la chaîne "SNCF " apparaît où que
ce soit dans la colonne qui contient le texte de description de la dépense,
XL en déduise que cette ligne peut être classée sous "Transport", "Train",
"Billet" pour respectivement les niveaux 1, 2 et 3 de ma catégorisation.

Je suis habituellement assez adroit avec les fonctions de base (Recherche &
Matrice, Texte, etc.), mais là franchement je sèche et je me dis que je vais
avoir du mal à éviter le VBA (que je comprends en lecture, mais ne pratique
pas...).

Pour l'instant je me dis que la meilleure solution est de créer une nouvelle
fonction du type
RECHERCHECHAINE(cellule_observée ; Tableau_des_correspondances ;
numéro_de_colonne) avec:
- cellule_observée = la cellule dans laquelle je vais demander à Excel de
trouver certaines chaînes de caractères caractéristiques de certaines
catégories de dépense ;
- Tableau_des_correspondances = Un Tableau de référence qui, dans sa
première colonne, liste toutes les chaînes de caractères caractéristiques
(ex: "SNCF ") et qui les fait correspondre dans les 3 colonnes voisines à
l'intitulé des niveaux 1 à 3 (ex: col 2 = "Transport", col 3 = "Train" et col
4 = "Billets")
- numéro_de_colonne = simplement le numéro de la colonne du Tableau de
correspondance qui contient le nom de la catégorie de dépense (en
l'occurrence, numéro_de_colonne = 2 quand je veux trouver la catégorie de
niveau 1 ; numéro_de_colonne = 3 pour le niv 2, etc.)

L'idée est simplement que dès qu'Excel voit une certaine chaîne de
caractères (où que ce soit dans le texte de description - cette souplesse est
importante !), il en déduit le type de dépense.

Je ne soumets pas cette question pour que quelqu'un fasse le job à ma place
(même si je serais très content de trouver une solution toute faite !), je
voudrais simplement que les experts qui lisent ce post confirment que je suis
sur la bonne piste (ou non) et me disent si ca vaut le coût que je me lance
dans l'écriture de la fonction (ce qui, à mon niveau de maîtrise de VBA,
représente un gros investissement).

Merci d'avance !

Yoann







Avatar
JB
Bonjour,

http://cjoint.com/?crpvTkMTqW

Function ChercheCatégorie(chaine, ChampMots As Range, ChampCatégories
As Range)
Dim a()
ReDim a(1 To ChampMots.Count) 'transfert dans tableau pour
rapidité
For i = 1 To ChampMots.Count: a(i) = ChampMots(i): Next i
ChercheCatégorie = ""
For i = 1 To ChampMots.Count
If InStr(UCase(chaine), UCase(a(i))) > 0 And a(i) <> 0 And a(i) <>
"" Then
ChercheCatégorie = ChampCatégories(i)
End If
Next i
End Function

Dépenses Catégorie
Billet Sncf Transport
Sncf Transport
Hotel **** Hébergement
Ticket de Métro Transport
Location de vélo Transport
Plein d'essence Transport
Ticket de camping Hébergement


JB
Avatar
Yoann (YoPi)
Oh Yes !!! là ca déchire !! c'est pile poil ce que je cherchais ! Merci à toi
Isabelle.


tu pourrais aussi rendre dynamique la plage des correspondances
en nommant cette plage (Insertion, Nom)
Noms dans le classeur : plgC
Fait référence à : ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))

de cette façon tu pourrais ajouter des correspondance à la liste
et utiliser la formule comme ça :

=Correspondance(A1;plgC)

isabelle


Merci Isabelle,

Sauf incompréhension de ma part, et c'est possible, ceci ne répond pas
pleinement à ma question car dans ce cas il faudrait que je teste la présence
de toutes les chaînes de caractères caractéristiques possibles avant de
savoir quelle est la bonne catégorisation.
Je comprends donc qu'il faudrait que j'imbrique autant de SI() qu'il y a de
chaînes caracrtéristiques possibles, ce qui n'est pas tenable du fait de leur
nombre.... Celà dit, je conviens que ca peut le faire avec un nombre limité
de chaînes possibles. Donc merci pour ce premier coup de pouce !
Je reformulerai peut etre ma question plus tard avec un petit exemple à
l'appui pour être plus clair.

Encore une fois, je précise que je maîtrise 'honorablement' les fonctions de
base d'Excel et que je ne crois pas que mon problème soit soluble en
utilisant ces fonctions... mais j'espère que je me trompe !

Thanks !
Yo

"isabelle" wrote:


bonjour Yoann,

pour trouver une texte à l'intérieur d'un autre texte,

=SI(ESTERREUR(TROUVE(B1;A1));0;1)

isabelle


Bonsoir à tous,

J'avoue que j'ai passé ces derniers moments à chercher une réponse à mon
besoin sur le web (que je n'ai pas trouvée) et non sur ce newsgroup. Aussi,
n'étant pas un utilisateur très assidu de MPFE, excusez moi si ma question
fait écho à d'autres qui tombent régulièrement (mais ca m'étonnerai que ce
soit le cas)...

D'abord, je suis sous XL 2003.

Ensuite, étant contraint d'éplucher mes relevés de compte bancaire sur
plusieurs mois passés, je cherche à faire une classification automatique sur
3 niveaux en fonction du texte descriptif de chaque mouvement sur mon compte.
Par exemple, je souhaiterais que dès que la chaîne "SNCF " apparaît où que
ce soit dans la colonne qui contient le texte de description de la dépense,
XL en déduise que cette ligne peut être classée sous "Transport", "Train",
"Billet" pour respectivement les niveaux 1, 2 et 3 de ma catégorisation.

Je suis habituellement assez adroit avec les fonctions de base (Recherche &
Matrice, Texte, etc.), mais là franchement je sèche et je me dis que je vais
avoir du mal à éviter le VBA (que je comprends en lecture, mais ne pratique
pas...).

Pour l'instant je me dis que la meilleure solution est de créer une nouvelle
fonction du type
RECHERCHECHAINE(cellule_observée ; Tableau_des_correspondances ;
numéro_de_colonne) avec:
- cellule_observée = la cellule dans laquelle je vais demander à Excel de
trouver certaines chaînes de caractères caractéristiques de certaines
catégories de dépense ;
- Tableau_des_correspondances = Un Tableau de référence qui, dans sa
première colonne, liste toutes les chaînes de caractères caractéristiques
(ex: "SNCF ") et qui les fait correspondre dans les 3 colonnes voisines à
l'intitulé des niveaux 1 à 3 (ex: col 2 = "Transport", col 3 = "Train" et col
4 = "Billets")
- numéro_de_colonne = simplement le numéro de la colonne du Tableau de
correspondance qui contient le nom de la catégorie de dépense (en
l'occurrence, numéro_de_colonne = 2 quand je veux trouver la catégorie de
niveau 1 ; numéro_de_colonne = 3 pour le niv 2, etc.)

L'idée est simplement que dès qu'Excel voit une certaine chaîne de
caractères (où que ce soit dans le texte de description - cette souplesse est
importante !), il en déduit le type de dépense.

Je ne soumets pas cette question pour que quelqu'un fasse le job à ma place
(même si je serais très content de trouver une solution toute faite !), je
voudrais simplement que les experts qui lisent ce post confirment que je suis
sur la bonne piste (ou non) et me disent si ca vaut le coût que je me lance
dans l'écriture de la fonction (ce qui, à mon niveau de maîtrise de VBA,
représente un gros investissement).

Merci d'avance !

Yoann










Avatar
Yoann (YoPi)
Merci baucoup à toi aussi JB, c'est exactement la matière dont j'avais besoin
pour répondre à ma question ! Cool !


Bonjour,

http://cjoint.com/?crpvTkMTqW

Function ChercheCatégorie(chaine, ChampMots As Range, ChampCatégories
As Range)
Dim a()
ReDim a(1 To ChampMots.Count) 'transfert dans tableau pour
rapidité
For i = 1 To ChampMots.Count: a(i) = ChampMots(i): Next i
ChercheCatégorie = ""
For i = 1 To ChampMots.Count
If InStr(UCase(chaine), UCase(a(i))) > 0 And a(i) <> 0 And a(i) <>
"" Then
ChercheCatégorie = ChampCatégories(i)
End If
Next i
End Function

Dépenses Catégorie
Billet Sncf Transport
Sncf Transport
Hotel **** Hébergement
Ticket de Métro Transport
Location de vélo Transport
Plein d'essence Transport
Ticket de camping Hébergement


JB