ANNEXES
LEXIQUE
Selon les définitions de l'Organisation Mondiale du
Tourisme :
Patrimoine culturel : par
patrimoine culturel, on entendent les monuments historiques et les sites,
le patrimoine architectural et urbain, les musées (y compris les
musées scientifiques et techniques et ceux des traditions populaires),
les bibliothèques, l'archéologie, les spectacles vivants
(festivals, etc.) et audiovisuels, les oeuvres d'art (vitraux, peinture
contemporaine).
Tourisme culturel :
déplacement dont la motivation principale est d'élargir ses
horizons, de rechercher des connaissances et des émotions au travers de
la découverte d'un patrimoine et de son territoire.
Par extension, on y inclut les autres formes bien connues de
tourisme où interviennent des séquences culturelles, sans en
être une motivation principale, mais où le fait d'être en
vacances en favorise une pratique occasionnelle.
Touriste : Toute personne en
dehors de sa résidence habituelle pour une durée d'au moins 24
heures (ou une nuit) et de quatre mois au plus pour l'un des motifs
suivants : agrément (vacances et séjours de fin de semaine),
santé (thermalisme, thalassothérapie...), missions ou
réunions de toutes sortes (congrès, séminaires,
pèlerinage, manifestations sportives...), voyages d'affaires,
déplacements professionnels scolaires...)
Visiteur : personne qui se rend,
pour une période inférieure ou égale à 12 mois,
dans un autre lieu que celui qui correspond à son environnement
habituel, et dont le motif principal de visite est autre que celui d'exercer
une activité rémunérée dans le lieu
visité.
Musée : La
définition du musée a pu varier au cours de ses deux
siècles d'existence environ. Aujourd'hui il désigne « une
institution permanente, sans but lucratif, au service de la
société et de son développement, ouverte au public et qui
fait des recherches concernant les témoins matériels de l'homme
et de son environnement, acquiert ceux-là, les conserve, les communique
et notamment les expose à des fins d'études, d'éducation
et de délectation ». Longtemps associées au goût des
pouvoirs aristocratiques européens, les collections d'objets sont
présentes en fait dans la plupart des cultures humaines. Elles
traduisent un rapport au passé qui privilégie les traces
matérielles laissées par nos ancêtres, qui tend à
les protéger et même, parfois, à les rendre essentielles au
fonctionnement des sociétés humaines. Complétées
des témoignages monumentaux, elles constituent aujourd'hui la partie
principale de ce que l'on désigne globalement par le terme de patrimoine
culturel.
Le patrimoine muséographique est à la fois un
acteur et un instrument de la mise en place du dialogue entre les nations et
d'une vision commune sur le plan international dont l'objectif essentiel est le
développement culturel. Ce développement est de nature et de
forme très différentes selon les contextes historiques et
culturels.
Le musée est tout d'abord l'instrument de la
sauvegarde et de la préservation du patrimoine dans son ensemble. Il en
assure l'étude scientifique nécessaire à la
compréhension et à la détermination du sens autant
qu'à la propriété. En cela, le musée contribue
à l'élaboration d'une éthique globale fondée sur
des pratiques de conservation, de protection et de diffusion des valeurs du
patrimoine culturel. La mission éducative du musée, quelle qu'en
soit sa nature, est complémentaire de l'étude scientifique.
Le musée est également le lieu où les
interactions entre la culture et la nature sont exposées : de plus en
plus nombreux sont les musées qui présentent les sciences, les
sciences naturelles et les technologies.
Enfin, le musée est au service du développement
endogène des communautés sociales dont il conserve les
témoignages et dont il permet l'expression des aspirations culturelles.
Résolument tournés vers leurs publics, les musées
communautaires sont attentifs aux évolutions sociales et culturelles et
ils permettent la présentation de notre identité et de notre
diversité dans un monde en perpétuelle mutation.
Selon les définitions encyclopédiques :
Patrimoine mondial : Ensemble des
sites naturels et culturels auxquels l'humanité attache une valeur
particulière et faisant l'objet d'une protection spécifique. La
notion de patrimoine mondial élargit à l'ensemble de la
planète une notion du droit romain qui définit le patrimonium
comme un bien hérité, qui est transmis des pères et des
mères aux enfants. Cette mondialisation de la notion est une application
à l'échelle de la planète tout entière et de
l'humanité des principes de la Déclaration universelle des droits
de l'Homme.
La notion de patrimoine mondial a été
officiellement reconnue par la Conférence générale de
l'Organisation des Nations unies pour l'éducation, la science et la
culture (Unesco) de Paris en 1972 et entrée en vigueur en 1975. Une
convention internationale fixe le cadre administratif et financier pour la
protection du « patrimoine mondial culturel et naturel ». Celui-ci
est formé par « les monuments, ensembles et sites ayant une valeur
universelle exceptionnelle du point de vue de l'histoire, de l'art ou de la
science, et par les monuments naturels, formations géologiques, sites
naturels ayant une valeur exceptionnelle du point de vue esthétique ou
scientifique ».
L'inscription au patrimoine mondial est décidée
par un comité de l'Unesco composé des représentants des
États signataires de la Convention. Deux listes sont établies, la
première recense « les biens du patrimoine mondial », la
seconde celle « des biens en péril ». L'appréciation de
« la valeur universelle exceptionnelle » est déterminée
pour les biens culturels par une série de six critères plus un
jugement d'authenticité, et pour les biens naturels par une série
de quatre critères plus un jugement d'intégrité. Ce
dispositif, qui témoigne d'une volonté de formaliser le jugement
de classement, reste d'un maniement délicat. Les premières listes
ont été établies en 1979, et sont sans cesse
complétées.
La composition de la liste doit être
représentative de la diversité culturelle et naturelle du monde,
des religions aux paysages. Elle est aussi fonction de l'état des
inventaires et de l'évolution des valeurs sur la culture et la
nature.
Au-delà de leur symbolique, ces sites
protégés ont aussi une valeur marchande : ils attirent les
visiteurs (au point de mettre parfois en péril leur valeur patrimoniale)
et sont devenus des hauts lieux du système touristique international.
Culture : Ce sont les croyances,
le comportement, le langage et mode de vie propres à un groupe
d'individus à une période donnée.
La culture englobe les coutumes, les cérémonies,
les oeuvres d'art, les inventions et la technologie. La culture se
réfère d'abord chez les Latins à un objet précis :
culture du champ (agricultura), culture de l'esprit (animi cultura) pour
désigner la philosophie (Cicéron). L'expression
cicéronienne fut reprise par Francis Bacon pour désigner
l'activité intellectuelle et la pratique des lettres. Au XVIIe
siècle, le philosophe du droit naturel Pufendorf fut le premier qui
l'employa sans complément, en l'opposant à nature. Cette
conception atteignit son plus haut degré de précision chez Kant,
qui définit la culture comme un processus : « Produire chez un
être raisonnable l'aptitude générale aux fins qui lui
plaisent, par conséquent dans sa liberté. » Et il ajouta :
« Ainsi seule la raison peut être la fin dernière que l'on a
quelque raison d'attribuer à la nature par rapport à
l'espèce humaine. » Cette conception en quelque sorte finaliste de
la culture par rapport à la nature se prolongea chez Hegel, qui employa
le mot Bildung (« formation », « éducation ») pour
désigner le processus formateur et transformateur de l'Esprit. Dans son
ouvrage Primitive Culture (1871), l'anthropologue britannique Edward Burnett
Tylor définit la culture comme ce « tout complexe qui inclut les
connaissances, les croyances, l'art, la morale, les lois, les coutumes et
toutes autres dispositions et habitudes acquises par l'homme en tant que membre
d'une société ». Mais cette conception moderne de la
culture, introduite par le philosophe allemand Johann Gottfried Herder et
diffusée par les anthropologues anglo-saxons, ne permet pas d'expliquer
pourquoi on retrouve dans toutes les cultures certains universaux (notamment la
prohibition de l'inceste) et implique une hiérarchisation des cultures,
récusée par les anthropologues qui succédèrent
à Tylor, comme Franz Boas.
L'origine de la culture dans son acception moderne, les
mécanismes de son évolution, constituent autant de
problèmes qui divisent les anthropologues : les « diffusionnistes
» posent l'hypothèse de la diffusion d'éléments
culturels à partir de quelques centres ; les « structuralistes
» insistent sur l'irréductibilité de chaque modèle
culturel. Enfin l'école culturaliste américaine (Ruth Benedict,
Ralph Linton) souligne le rôle de la culture dans la formation de la
personnalité, notamment dans le choix des modèles comportementaux
qu'elle génère chez chaque individu.
Le tourisme : Ensemble des
activités liées au déplacement des personnes sur une
certaine distance dans le cadre d'une activité de loisir. Sur le plan
statistique la définition inclut les déplacements de plus de
vingt-quatre heures et par extension les voyages d'affaires. Par contre, les
migrations, les mouvements de militaires ou de professionnels du transport
(chauffeurs, marins, etc.) ne font pas partie des mouvements touristiques. Pour
les voyages de moins de vingt-quatre heures, les statistiques utilisent les
termes d'excursions et d'« excursionnistes ».
Programme VB élaboré spécialement
pour l'analyse des résultats de notre enquête
* Programme d'analyse des resultats de l'enquete sur le tourisme
culturel
* enquete faite au mois de mai 2006
* Master en Gestion Hoteliere et Touristique
Sub enquete_tourisme_culturel()
'N= Nombre de Questionnaires distribues
'Les questions commencent a partir de la colonne G : colonne
numero 7
'Les numeros des questionnaires commencent a partir de la ligne
numero 4
N = 55
'1- C'est votre premiere visite en Tunisie?
'2- Si non, quel est l'ordre de votre visite?
'A= nombre de touristes qui viennent pour la 1ere fois
'B= nombre de touristes qui viennent pour la 2eme fois
'C= nombre de touristes qui viennent pour la 3eme fois
'D= nombre de touristes qui viennent pour la 4eme fois
'E= nombre de touristes qui viennent pour la 5eme fois ou plus
A = 0 : B = 0 : C = 0 : D = 0 : E = 0
For I = 4 To 103
If Cells(I, 7) = "1" Then
A = A + 1
ElseIf Cells(I, 8) = "1" Then
B = B + 1
ElseIf Cells(I, 8) = "2" Then
C = C + 1
ElseIf Cells(I, 8) = "3" Then
D = D + 1
ElseIf Cells(I, 8) = "4" Then
E = E + 1
End If
Next I
MsgBox "Questions 1 et 2 : Ordre de visite en Tunisie ?" &
_
Chr(13) & _
Chr(13) & _
" Le Nombre de touristes qui viennent pour la premiere
fois est " & A & " [ " & A * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes qui viennent pour la deuxieme
fois est " & B & " [ " & B * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes qui viennent pour la troisieme
fois est " & C & " [ " & C * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes qui viennent pour la quatrieme
fois est " & D & " [ " & D * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes qui viennent pour la cinquieme
fois ou plus est " & E & " [ " & E * 100 / N & "% ]"
Cells(4, 32) = A
Cells(5, 32) = B
Cells(6, 32) = C
Cells(7, 32) = D
Cells(8, 32) = E
'3- Vous etes venu avec la formule?
'F= nombre de touristes venant avec la formule sejour
'G= nombre de touristes venant avec la formule decouverte
'H= nombre de touristes venant avec la formule
thalassotherapie
'J= nombre de touristes venant avec la formule mer et oasis
F = 0
G = 0
H = 0
J = 0
For I = 4 To 103
If Cells(I, 9) = "1" Then
F = F + 1
ElseIf Cells(I, 9) = "2" Then
G = G + 1
ElseIf Cells(I, 9) = "3" Then
H = H + 1
ElseIf Cells(I, 9) = "4" Then
J = J + 1
End If
Next I
MsgBox "Question 3 : Vous etes venu avec la formule ?" & _
Chr(13) & _
Chr(13) & _
" Le Nombre de touristes venant avec la formule sejour est
" & F & " [ " & F * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes venant avec la formule decouverte
est " & G & " [ " & G * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes venant avec la formule
thalassotherapie est " & H & " [ " & H * 100 / N & "% ]" &
_
Chr(13) & _
" Le Nombre de touristes venant avec la formule mer et
oasis est " & J & " [ " & J * 100 / N & "% ]"
Cells(20, 32) = F
Cells(21, 32) = G
Cells(22, 32) = H
Cells(23, 32) = J
'4- Vous etes venus ?
'K= nombre de touristes venus seuls
'L= nombre de touristes venus en couple
'M= nombre de touristes venus en famille
'O= nombre de touristes venus avec des amis
k = 0
l = 0
M = 0
O = 0
For I = 4 To 103
If Cells(I, 10) = "1" Then
k = k + 1
ElseIf Cells(I, 10) = "2" Then
l = l + 1
ElseIf Cells(I, 10) = "3" Then
M = M + 1
ElseIf Cells(I, 10) = "4" Then
O = O + 1
End If
Next I
MsgBox "Question 4 : Vous etes venus ?" & _
Chr(13) & _
Chr(13) & _
" Le Nombre de touristes venants seuls est " & k &
" [ " & k * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes venants en couple est " & l
& " [" & l * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes venants en famille est " & M
& " [ " & M * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes venants avec des amis est " &
O & " [ " & O * 100 / N & "% ]"
Cells(35, 32) = k
Cells(36, 32) = l
Cells(37, 32) = M
Cells(38, 32) = O
'5- Etes vous interesses par la culture ?
'P= nombre de touristes qui disent qu'ils sont interesses par la
culture
'Q= nombre de touristes qui disent qu'ils ne sont pas interesses
par la culture
P = 0
Q = 0
For I = 4 To 103
If Cells(I, 11) = "1" Then
P = P + 1
ElseIf Cells(I, 11) = "2" Then
Q = Q + 1
End If
Next I
MsgBox "Question 5 : Etes vous interesses par la culture ?" &
_
Chr(13) & _
Chr(13) & _
" Le Nombre de touristes qui disent qu'ils sont interesses
par la culture est " & P & " [ " & P * 100 / N & "% ]" &
_
Chr(13) & _
" Le Nombre de touristes qui disent qu'ils ne sont pas
interesses par la culture est " & Q & " [ " & Q * 100 / N & "%
]"
Cells(51, 32) = P
Cells(52, 32) = Q
'6- Connaissez vous " Hannibal "?
'R= nombre de touristes qui connaissent Hannibal
'S= nombre de touristes qui ne connaissent pas Hannibal
R = 0
S = 0
For I = 4 To 103
If Cells(I, 12) = "1" Then
R = R + 1
ElseIf Cells(I, 12) = "2" Then
S = S + 1
End If
Next I
MsgBox "Question 6 : Connaissez vous Hannibal ?" & _
Chr(13) & _
Chr(13) & _
" Le Nombre de touristes qui disent qu'ils connaissent
Hannibal est " & R & " [ " & R * 100 / N & "% ]" & _
Chr(13) & _
" Le Nombre de touristes qui disent qu'ils ne connaissent
pas Hannibal est " & S & " [ " & S * 100 / N & "% ]"
Cells(66, 32) = R
Cells(67, 32) = S
'7- Si oui, selon vous, etait-il un general de l'armee ?
'T= nombre de touristes qui disent qu'il etait un general de
l'armee romaine
'U= nombre de touristes qui disent qu'il etait un general de
l'armee ottomane
'V= nombre de touristes qui disent qu'il etait un general de
l'armee arabe
'W= nombre de touristes qui disent qu'il etait un general de
l'armee berbere
'X= nombre de touristes qui disent qu'il etait un general de
l'armee byzantine
'Y= nombre de touristes qui disent qu'il etait un general de
l'armee carthaginoise
T = 0
U = 0
V = 0
W = 0
x = 0
Y = 0
For I = 4 To 103
If Cells(I, 13) = "1" Then
T = T + 1
ElseIf Cells(I, 13) = "2" Then
U = U + 1
ElseIf Cells(I, 13) = "3" Then
V = V + 1
ElseIf Cells(I, 13) = "4" Then
W = W + 1
ElseIf Cells(I, 13) = "5" Then
x = x + 1
ElseIf Cells(I, 13) = "6" Then
Y = Y + 1
End If
Next I
MsgBox "Question 7 : Si oui, selon vous, etait-il un general de
l'armee ?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui disent qu'il etait un general
de l'armee romaine est " & T & " [ " & T * 100 / N & "% ]"
& _
Chr(13) & _
" Le nombre de touristes qui disent qu'il etait un general
de l'armee ottomane est " & U & " [" & U * 100 / N & "% ]"
& _
Chr(13) & _
" Le nombre de touristes qui disent qu'il etait un general
de l'armee arabe est " & V & " [ " & V * 100 / N & "% ]" &
_
Chr(13) & _
" Le nombre de touristes qui disent qu'il etait un general
de l'armee berbere est " & W & " [ " & W * 100 / N & "% ]"
& _
Chr(13) & _
" Le nombre de touristes qui disent qu'il etait un general
de l'armee byzantine est " & x & " [ " & x * 100 / N & "% ]"
& _
Chr(13) & _
" Le nombre de touristes qui disent qu'il etait un general
de l'armee carthaginoise est " & Y & " [ " & Y * 100 / N & "%
]"
Cells(82, 32) = T
Cells(83, 32) = U
Cells(84, 32) = V
Cells(85, 32) = W
Cells(86, 32) = x
Cells(87, 32) = Y
'8- Etes vous parti en excursion, une visite d'un musee, un site
culturel?
'AA= nombre de touristes qui sont partis en excursion, une visite
d'un musee ou site culturel
'AB= nombre de touristes qui n'ont pas fait de visites
AA = 0
AB = 0
For I = 4 To 103
If Cells(I, 14) = "1" Then
AA = AA + 1
ElseIf Cells(I, 14) = "2" Then
AB = AB + 1
End If
Next I
MsgBox "Question 8 : Etes vous parti en excursion, une visite
d'un musee, un site culturel?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui sont partis en excursion, une
visite d'un musee ou site culturel est " & AA & " [ " & AA * 100 /
N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui n'ont pas fait de visites est
" & AB & " [ " & AB / N & "% ]"
Cells(97, 32) = AA
Cells(98, 32) = AB
'9- Quelles sont les villes que vous avez visitees ?
'CC= nombre de touristes qui ont visite la ville de Sousse (A)
'CD= nombre de touristes qui ont visite la ville de
Monastir(B)
'CE= nombre de touristes qui ont visite la ville de Mahdia(C)
'CF= nombre de touristes qui ont visite la ville de Tunis(D)
'CG= nombre de touristes qui ont visite la ville de
Carthage(E)
'CH= nombre de touristes qui ont visite la ville de Sidi
Bousaid(F)
'CI= nombre de touristes qui ont visite la ville de
Kairouan(G)
'CJ= nombre de touristes qui ont visite la ville de
Haouaria(H)
'CK= nombre de touristes qui ont visite la ville de Sbeitla(I)
'CL= nombre de touristes qui ont visite la ville de Nabeul(J)
'CM= nombre de touristes qui ont visite la ville de
Hammamet(K)
'CN= nombre de touristes qui ont visite la ville de Sidi
Djedidi(L)
'CO= nombre de touristes qui ont visite la ville de Douz(M)
'CP= nombre de touristes qui ont visite la ville de Tozeur(N)
'CQ= nombre de touristes qui ont visite la ville de Matmata(O)
CC = 0
CD = 0
CE = 0
CF = 0
CG = 0
CH = 0
CI = 0
CJ = 0
CK = 0
CL = 0
CM = 0
CN = 0
CO = 0
CP = 0
CQ = 0
J = 0
l = 0
For I = 4 To 103
Z = Cells(I, 15)
l = Len(Z)
For J = 1 To l
If Mid(Z, J, 1) = "a" Then
CC = CC + 1
ElseIf Mid(Z, J, 1) = "b" Then CD = CD + 1
ElseIf Mid(Z, J, 1) = "c" Then CE = CE + 1
ElseIf Mid(Z, J, 1) = "d" Then CF = CF + 1
ElseIf Mid(Z, J, 1) = "e" Then CG = CG + 1
ElseIf Mid(Z, J, 1) = "f" Then CH = CH + 1
ElseIf Mid(Z, J, 1) = "g" Then CI = CI + 1
ElseIf Mid(Z, J, 1) = "h" Then CJ = CJ + 1
ElseIf Mid(Z, J, 1) = "i" Then CK = CK + 1
ElseIf Mid(Z, J, 1) = "j" Then CL = CL + 1
ElseIf Mid(Z, J, 1) = "k" Then CM = CM + 1
ElseIf Mid(Z, J, 1) = "l" Then CN = CN + 1
ElseIf Mid(Z, J, 1) = "m" Then CO = CO + 1
ElseIf Mid(Z, J, 1) = "n" Then CP = CP + 1
ElseIf Mid(Z, J, 1) = "o" Then CQ = CQ + 1
End If
Next J
Next I
MsgBox "Question 9 : Quelles sont les villes que vous avez
visitees ?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Sousse
est " & CC & " [ " & CC * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de
Monastir est " & CD & " [ " & CD * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Mahdia
est " & CE & " [ " & CE * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Tunis
est " & CF & " [ " & CF * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de
Carthage est " & CG & " [ " & CG * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Sidi
Bousaid est " & CH & " [ " & CH * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de
Kairouan est " & CI & " [ " & CI * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de
Haouaria est " & CJ & " [ " & CJ * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de
Sbeitla est " & CK & " [ " & CK * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Nabeul
est " & CL & " [ " & CL / N & "% ]"
MsgBox "Question 9 : (suite) Quelles sont les villes que vous
avez visitees ?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de
Hammamet est " & CM & " [ " & CM / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Sidi
Djedidi est " & CN & " [ " & CN / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Douz
est " & CO & " [ " & CO / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de Tozeur
est " & CP & " [ " & CP / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la ville de
MAtmata est " & CQ & " [ " & CQ / N & "% ]"
Cells(113, 32) = CC
Cells(114, 32) = CD
Cells(115, 32) = CE
Cells(116, 32) = CF
Cells(117, 32) = CG
Cells(118, 32) = CH
Cells(119, 32) = CI
Cells(120, 32) = CJ
Cells(121, 32) = CK
Cells(122, 32) = CL
Cells(123, 32) = CM
Cells(124, 32) = CN
Cells(125, 32) = CO
Cells(126, 32) = CP
Cells(127, 32) = CQ
'10- Quels sont les musees que vous avez visites?
'DD= nombre de touristes qui ont visite le musee du Bardo (1)
'DE= nombre de touristes qui ont visite le musee de Nabeul(2)
'DF= nombre de touristes qui ont visite le musee de Sousse(3)
'DG= nombre de touristes qui ont visite le Pupput de
Hammamet(4)
'DH= nombre de touristes qui ont visite le musee de Mahdia(5)
'DI= nombre de touristes qui ont visite l'ATP de manastir(6)
'DJ= nombre de touristes qui ont visite d'autres musees(7)
DD = 0
DE = 0
DF = 0
DG = 0
DH = 0
DI = 0
DJ = 0
J = 0
l = 0
For I = 4 To 103
Z = Cells(I, 16)
l = Len(Z)
For J = 1 To l
If Mid(Z, J, 1) = "1" Then
DD = DD + 1
ElseIf Mid(Z, J, 1) = "2" Then DE = DE + 1
ElseIf Mid(Z, J, 1) = "3" Then DF = DF + 1
ElseIf Mid(Z, J, 1) = "4" Then DG = DG + 1
ElseIf Mid(Z, J, 1) = "5" Then DH = DH + 1
ElseIf Mid(Z, J, 1) = "6" Then DI = DI + 1
ElseIf Mid(Z, J, 1) = "7" Then DJ = DJ + 1
End If
Next J
Next I
MsgBox "Question 10 : Quels sont les musees que vous avez
visites?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui ont visite le musee du Bardo
est " & DD & " [ " & DD * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le musee de Nabeul
est " & DE & " [ " & DE * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le musee de Sousse
est " & DF & " [ " & DF * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le Pupput de
Hammamet est " & DG & " [ " & DG * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le musee de Mahdia
est " & DH & " [ " & DH * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite l'ATP de manastir
est " & DI & " [ " & DI * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite d'autres musees
est " & DJ & " [ " & DJ * 100 / N & "% ]"
Cells(132, 32) = DD
Cells(133, 32) = DE
Cells(134, 32) = DF
Cells(135, 32) = DG
Cells(136, 32) = DH
Cells(137, 32) = DI
Cells(138, 32) = DJ
'11- Les Ribats, Mosquees et Forts que vous avez visites?
'EE= nombre de touristes qui ont visite le Fort de Mahdia (1)
'EF= nombre de touristes qui ont visite le Ribat de Sousse(2)
'EG= nombre de touristes qui ont visite le Fort de Kelibia(3)
'EH= nombre de touristes qui ont visite le Ribat de
Monastir(4)
'EI= nombre de touristes qui ont visite la mosquee de
Sousse(5)
'EJ= nombre de touristes qui ont visite d'autres places(6)
EE = 0
EF = 0
EG = 0
EH = 0
EI = 0
EJ = 0
J = 0
l = 0
For I = 4 To 103
Z = Cells(I, 17)
l = Len(Z)
For J = 1 To l
If Mid(Z, J, 1) = "1" Then
EE = EE + 1
ElseIf Mid(Z, J, 1) = "2" Then EF = EF + 1
ElseIf Mid(Z, J, 1) = "3" Then EG = EG + 1
ElseIf Mid(Z, J, 1) = "4" Then EH = EH + 1
ElseIf Mid(Z, J, 1) = "5" Then EI = EI + 1
ElseIf Mid(Z, J, 1) = "6" Then EJ = EJ + 1
End If
Next J
Next I
MsgBox "Question 11 : Les Ribats, Mosquees et Forts que vous avez
visites?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui ont visite le Fort de Mahdia
est " & EE & " [ " & EE * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le Ribat de Sousse
est " & EF & " [ " & EF * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le Fort de Kelibia
est " & EG & " [ " & EG * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le Ribat de
Monastir est " & EH & " [ " & EH * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite la mosquee de
Sousse est " & EI & " [ " & EI * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite d'autres places
est " & EJ & " [ " & EJ * 100 / N & "% ]"
Cells(147, 32) = EE
Cells(148, 32) = EF
Cells(149, 32) = EG
Cells(150, 32) = EH
Cells(151, 32) = EI
Cells(152, 32) = EJ
'12- Quels sont les sites que vous avez visites?
'FF= nombre de touristes qui ont visite le Parc de Carthage
(1)
'FG= nombre de touristes qui ont visite le Colisee d'El Jem(2)
'FH= nombre de touristes qui ont visite Kerkouen (3)
'FI= nombre de touristes qui ont visite les Catacombes de
Sousse(4)
'FJ= nombre de touristes qui ont visite Thuburbo Majus(5)
'FK= nombre de touristes qui ont visite Utique(6)
'FL= nombre de touristes qui ont visite Bulla Regia(7)
'FM= nombre de touristes qui ont visite Dougga(8)
'FN= nombre de touristes qui ont visite d'autres sites(9)
FF = 0
FG = 0
FH = 0
FI = 0
FJ = 0
FK = 0
FL = 0
FM = 0
FN = 0
J = 0
l = 0
For I = 4 To 103
Z = Cells(I, 18)
l = Len(Z)
For J = 1 To l
If Mid(Z, J, 1) = "1" Then
FF = FF + 1
ElseIf Mid(Z, J, 1) = "2" Then FG = FG + 1
ElseIf Mid(Z, J, 1) = "3" Then FH = FH + 1
ElseIf Mid(Z, J, 1) = "4" Then FI = FI + 1
ElseIf Mid(Z, J, 1) = "5" Then FJ = FJ + 1
ElseIf Mid(Z, J, 1) = "6" Then FK = FK + 1
ElseIf Mid(Z, J, 1) = "7" Then FL = FL + 1
ElseIf Mid(Z, J, 1) = "8" Then FM = FM + 1
ElseIf Mid(Z, J, 1) = "9" Then FN = FN + 1
End If
Next J
Next I
MsgBox "Question 12 : Quels sont les sites que vous avez
visites?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui ont visite le Parc de
Carthage est " & FF & " [ " & FF * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite le Colisee d'El
Jem est " & FG & " [ " & FG * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite Kerkouen est "
& FH & " [ " & FH * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite les Catacombes de
Sousse est " & FI & " [ " & FI * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite Thuburbo Majus est
" & FJ & " [ " & FJ * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite Utique est " &
FK & " [ " & FK * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite Bulla Regia est "
& FL & " [ " & FL * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite Dougga est " &
FM & " [ " & FM * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ont visite d'autres sites est
" & FN & " [ " & FN * 100 / N & "% ]"
Cells(162, 32) = FF
Cells(163, 32) = FG
Cells(164, 32) = FH
Cells(165, 32) = FI
Cells(166, 32) = FJ
Cells(167, 32) = FK
Cells(168, 32) = FL
Cells(169, 32) = FM
Cells(170, 32) = FN
'13- Etes vous alles a la soiree " Baloum " ?
'AC= nombre de touristes qui sont alles a la soiree Baloum
'AD= nombre de touristes qui ne sont pas alles a la soiree
Baloum
AC = 0
AD = 0
For I = 4 To 103
If Cells(I, 19) = "1" Then
AC = AC + 1
ElseIf Cells(I, 19) = "2" Then
AD = AD + 1
End If
Next I
MsgBox "Question 13 : Etes vous alles a la soiree Baloum ?" &
_
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui sont alles a la soiree Baloum
est " & AC & " [ " & AC * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ne sont pas alles a la soiree
Baloum est " & AD & " [ " & AD * 100 / N & "% ]"
Cells(178, 32) = AC
Cells(179, 32) = AD
'14- Etes vous satisfait de cette soiree ?
'AE= nombre de touristes qui sont satisfaits de la soiree
Baloum
'AF= nombre de touristes qui ne sont pas satisfaits de la soiree
Baloum
AE = 0
AF = 0
For I = 4 To 103
If Cells(I, 20) = "1" Then
AE = AE + 1
ElseIf Cells(I, 20) = "2" Then
AF = AF + 1
End If
Next I
MsgBox "Question 14 : Etes vous satisfait de cette soiree ?"
& _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui sont satisfaits de la soiree
Baloum est " & AE & " [ " & AE * 100 / AC & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui ne sont pas satisfaits de la
soiree Baloum est " & AF & " [ " & AF * 100 / AC & "% ]"
Cells(195, 32) = AE
Cells(196, 32) = AF
'15- Etes vous satisfait des visites culturelles que vous avez
faites ?
'AG= nombre de touristes qui disent qu'ils sont non satisfaits du
tout
'AH= nombre de touristes qui disent qu'ils sont non satisfaits
'AI= nombre de touristes qui disent qu'ils sont indifferents
'AJ= nombre de touristes qui disent qu'ils sont satisfaits
'AK= nombre de touristes qui disent qu'ils sont tres
satisfaits
AG = 0
AH = 0
AI = 0
AJ = 0
AK = 0
For I = 4 To 103
If Cells(I, 21) = "1" Then
AG = AG + 1
ElseIf Cells(I, 21) = "2" Then
AH = AH + 1
ElseIf Cells(I, 21) = "3" Then
AI = AI + 1
ElseIf Cells(I, 21) = "4" Then
AJ = AJ + 1
ElseIf Cells(I, 21) = "5" Then
AK = AK + 1
End If
Next I
MsgBox "Question 15 : Etes vous satisfait des visites culturelles
que vous avez faites ?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont non
satisfaits du tout est " & AG & " [ " & AG * 100 / AA & "% ]"
& _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont non
satisfaits est " & AH & " [" & AH * 100 / AA & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont
indifferents est " & AI & " [ " & AI * 100 / AA & "% ]" &
_
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont satisfaits
est " & AJ & " [ " & AJ * 100 / AA & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont tres
satisfaits est " & AK & " [ " & AK * 100 / AA & "% ]"
Cells(212, 32) = AG
Cells(213, 32) = AH
Cells(214, 32) = AI
Cells(215, 32) = AJ
Cells(216, 32) = AK
'16- Qu'est ce que vous n'avez pas aime dans les sites que vous
avez visites ?
'GG= nombre de touristes qui n'ont pas aime l'urbanisation (1)
'GH= nombre de touristes qui n'ont pas aime
l'infrastructure(2)
'GI= nombre de touristes qui n'ont pas aime la degradation
naturelle(3)
'GJ= nombre de touristes qui n'ont pas aime la signaletique(4)
'GK= nombre de touristes qui n'ont pas aime
surfrequentation(5)
'GL= nombre de touristes qui n'ont pas aime l'accueil(6)
GG = 0
GH = 0
GI = 0
GJ = 0
GK = 0
GL = 0
J = 0
l = 0
For I = 4 To 103
Z = Cells(I, 22)
l = Len(Z)
For J = 1 To l
If Mid(Z, J, 1) = "1" Then
GG = GG + 1
ElseIf Mid(Z, J, 1) = "2" Then GH = GH + 1
ElseIf Mid(Z, J, 1) = "3" Then GI = GI + 1
ElseIf Mid(Z, J, 1) = "4" Then GJ = GJ + 1
ElseIf Mid(Z, J, 1) = "5" Then GK = GK + 1
ElseIf Mid(Z, J, 1) = "6" Then GL = GL + 1
End If
Next J
Next I
MsgBox "Question 16 : Qu'est ce que vous n'avez pas aime dans les
sites que vous avez visites ?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui n'ont pas aime l'urbanisation
est " & GG & " [ " & GG * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui n'ont pas aime
l'infrastructure est " & GH & " [ " & GH * 100 / N & "% ]"
& _
Chr(13) & _
" Le nombre de touristes qui n'ont pas aime la degradation
naturelle est " & GI & " [ " & GI * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui n'ont pas aime la
signaletique est " & GJ & " [ " & GJ * 100 / N & "% ]" &
_
Chr(13) & _
" Le nombre de touristes qui n'ont pas aime
surfrequentation est " & GK & " [ " & GK * 100 / N & "% ]"
& _
Chr(13) & _
" Le nombre de touristes qui n'ont pas aime l'accueil est
" & GL & " [ " & GL * 100 / N & "% ]"
Cells(225, 32) = GG
Cells(226, 32) = GH
Cells(227, 32) = GI
Cells(228, 32) = GK
Cells(229, 32) = GL
'17- Et qu'est ce que vous avez apprecie?
'HH= nombre de touristes qui apprecie l'authenticite (1)
'HI= nombre de touristes qui apprecie l'amenagement (2)
'HJ= nombre de touristes qui apprecie l'originalite (3)
'HK= nombre de touristes qui apprecie l'organisation (4)
'HL= nombre de touristes qui apprecie les explications du guide
(5)
'HM= nombre de touristes qui apprecie d'autres choses (6)
HH = 0
HI = 0
HJ = 0
HK = 0
HL = 0
HM = 0
J = 0
l = 0
For I = 4 To 103
Z = Cells(I, 23)
l = Len(Z)
For J = 1 To l
If Mid(Z, J, 1) = "1" Then
HH = HH + 1
ElseIf Mid(Z, J, 1) = "2" Then HI = HI + 1
ElseIf Mid(Z, J, 1) = "3" Then HJ = HJ + 1
ElseIf Mid(Z, J, 1) = "4" Then HK = HK + 1
ElseIf Mid(Z, J, 1) = "5" Then HL = HL + 1
ElseIf Mid(Z, J, 1) = "6" Then HM = HM + 1
End If
Next J
Next I
MsgBox "Question 17 : Et qu'est ce que vous avez apprecie?" &
_
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui apprecie l'authenticite est "
& HH & " [ " & HH * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui apprecie l'amenagement est "
& HI & " [ " & HI * 100 / N & "% ]" & _
Chr(13) & _
" Le nnombre de touristes qui apprecie l'originalite est "
& HJ & " [ " & HJ * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui apprecie l'organisation est "
& HK & " [ " & HK * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui apprecie les explications du
guide est " & HL & " [ " & HL * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui apprecie d'autres choses est
" & HM & " [ " & HM * 100 / N & "% ]"
Cells(242, 32) = HH
Cells(243, 32) = HI
Cells(244, 32) = HJ
Cells(245, 32) = HK
Cells(246, 32) = HL
Cells(247, 32) = HM
'18- Si l'occasion se presente, reviendriez vous en Tunisie?
'AL= nombre de touristes qui disent qu'ils vont revenir
'AM= nombre de touristes qui disent qu'ils ne vont plus
revenir
AL = 0
AM = 0
For I = 4 To 103
If Cells(I, 24) = "1" Then
AL = AL + 1
ElseIf Cells(I, 24) = "2" Then
AM = AM + 1
End If
Next I
MsgBox "Question 18 : Si l'occasion se presente, reviendriez vous
en Tunisie?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils vont revenir
est " & AL & " [ " & AL * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils ne vont plus
revenir est " & AM & " [ " & AM * 100 / N & "% ]"
Cells(259, 32) = AL
Cells(260, 32) = AM
'19- Vous etes?
'AN= nombre de touristes hommes
'AO= nombre de touristes femmes
AN = 0
AO = 0
For I = 4 To 103
If Cells(I, 25) = "1" Then
AN = AN + 1
ElseIf Cells(I, 25) = "2" Then
AO = AO + 1
End If
Next I
MsgBox "Question 19 : Vous etes?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes hommes est " & AN & " [ "
& AN * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes femmes est " & AO & " [ "
& AO * 100 / N & "% ]"
Cells(277, 32) = AN
Cells(278, 32) = AO
'20- Etat civil?
'AP= nombre de touristes celibataires
'AQ= nombre de touristes maries
'AR= nombre de touristes voeufs
'AT= nombre de touristes divorces
AP = 0
AQ = 0
AR = 0
AT = 0
For I = 4 To 103
If Cells(I, 26) = "1" Then
AP = AP + 1
ElseIf Cells(I, 26) = "2" Then
AQ = AQ + 1
ElseIf Cells(I, 26) = "3" Then
AR = AR + 1
ElseIf Cells(I, 26) = "4" Then
AT = AT + 1
End If
Next I
MsgBox "Question 20 : Etat civil?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes celibataires est " & AP &
" [ " & AP * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes maries est " & AQ & " ["
& AQ * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes voeufs est " & AR & " [ "
& AR * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes divorces est " & AT & " [
" & AT * 100 / N & "% ]"
Cells(290, 32) = AP
Cells(291, 32) = AQ
Cells(292, 32) = AR
Cells(293, 32) = AT
'21- A quelle tranche d'age appartenez vous ?
'AU= nombre de touristes dont l'age est inferieur a 20 ans
'AV= nombre de touristes dont l'age est compris entre 21 et 30
ans
'AW= nombre de touristes dont l'age est compris entre 31 et 45
ans
'AX= nombre de touristes dont l'age est compris entre 46 et 60
ans
'AY= nombre de touristes dont l'age est superieur a 60 ans
AU = 0
AV = 0
AW = 0
AX = 0
AY = 0
For I = 4 To 103
If Cells(I, 27) = "1" Then
AU = AU + 1
ElseIf Cells(I, 27) = "2" Then
AV = AV + 1
ElseIf Cells(I, 27) = "3" Then
AW = AW + 1
ElseIf Cells(I, 27) = "4" Then
AX = AX + 1
ElseIf Cells(I, 27) = "5" Then
AY = AY + 1
End If
Next I
MsgBox "Question 21 : A quelle tranche d'age appartenez vous ?"
& _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes dont l'age est inferieur a 20 ans
est " & AU & " [ " & AU * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes dont l'age est compris entre 21
et 30 ans est " & AV & " [" & AV * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes dont l'age est compris entre 31
et 45 ans est " & AW & " [ " & AW * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes dont l'age est compris entre 46
et 60 ans est " & AX & " [ " & AX * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes dont l'age est superieur a 60 ans
est " & AY & " [ " & AY * 100 / N & "% "
Cells(300, 32) = AU
Cells(301, 32) = AV
Cells(302, 32) = AW
Cells(303, 32) = AX
Cells(304, 32) = AY
'22- Quelle est votre profession?
'BA= nombre de touristes etudiants
'BB= nombre de touristes enseignants
'BC= nombre de touristes artisans ou techniciens
'BD= nombre de touristes retraites
'BE= nombre de touristes employes de bureaux
'BF= nombre de touristes inactifs
'BG= nombre de touristes cadres superieurs ou ayants des
professions liberales
BA = 0
BB = 0
BC = 0
BD = 0
BE = 0
BF = 0
BG = 0
For I = 4 To 103
If Cells(I, 28) = "1" Then
BA = BA + 1
ElseIf Cells(I, 28) = "2" Then
BB = BB + 1
ElseIf Cells(I, 28) = "3" Then
BC = BC + 1
ElseIf Cells(I, 28) = "4" Then
BD = BD + 1
ElseIf Cells(I, 28) = "5" Then
BE = BE + 1
ElseIf Cells(I, 28) = "6" Then
BF = BF + 1
ElseIf Cells(I, 28) = "7" Then
BG = BG + 1
End If
Next I
MsgBox "Question 22 : Quelle est votre profession?" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes etudiants est " & BA & "
[ " & BA * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes enseignants est " & BB &
" [" & BB * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes artisans ou techniciens est "
& BC & " [ " & BC * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes retraites est " & BD & "
[ " & BD * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes employes de bureaux est " &
BE & " [ " & BE * 100 / N & "% " & _
Chr(13) & _
" Le nombre de touristes inactifs est " & BF & " [
" & BF * 100 / N & "% ]" & _
Chr(13) & _
" Le nombre de touristes cadres superieurs ou ayants des
professions liberales est " & BG & " [ " & BG / N & "% ]"
Cells(309, 32) = BA
Cells(310, 32) = BB
Cells(311, 32) = BC
Cells(312, 32) = BD
Cells(313, 32) = BE
Cells(314, 32) = BF
Cells(315, 32) = BG
'===========================================================================================================
'Analyse des resultats combines
'AAA= nombre de touristes qui sont venus pour la premiere fois et
qui ont fait des excursions ou des visites culturelles
'AAB= nombre de touristes qui seont venus pour la deuxieme fois
ou plus et qui ont fait des excursions ou des visites culturelles
AAA = 0
AAB = 0
For I = 4 To 103
If Cells(I, 7) = "1" And Cells(I, 14) = "1" Then
AAA = AAA + 1
ElseIf Cells(I, 7) = "2" And Cells(I, 14) = "1" Then
AAB = AAB + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui sont venus pour la premiere
fois et qui ont fait des excursions ou des visites culturelles est " & AAA
& _
Chr(13) & _
" Le nombre de touristes qui seont venus pour la deuxieme
fois ou plus et qui ont fait des excursions ou des visites culturelles est "
& AAB
Cells(5, 51) = AAA
Cells(17, 51) = AAB
'AAC= nombre de touristes qui sont venus avec la formule sejour
et qui ont fait des visites
'AAD= nombre de touristes qui sont venus avec la formule
decouverte et qui ont fait des visites
'ATA= nombre de touristes qui sont venus avec la formule
thalassotherapie et qui ont fait des visites
'ATT= nombre de touristes qui sont venus avec la formule mer
& oasis et qui ont fait des visites
AAC = 0
AAD = 0
ATA = 0
ATT = 0
For I = 4 To 103
If Cells(I, 9) = "1" And Cells(I, 14) = "1" Then
AAC = AAC + 1
ElseIf Cells(I, 9) = "2" And Cells(I, 14) = "1" Then
AAD = AAD + 1
ElseIf Cells(I, 9) = "3" And Cells(I, 14) = "1" Then
ATA = ATA + 1
ElseIf Cells(I, 9) = "4" And Cells(I, 14) = "1" Then
ATT = ATT + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui sont venus avec la formule
sejour et qui ont fait des visites est " & AAC & _
Chr(13) & _
" Le nombre de touristes qui sont venus avec la formule
decouverte et qui ont fait des visites est " & AAD & _
Chr(13) & _
" Le nombre de touristes qui sont venus avec la formule
thalassotherapie et qui ont fait des visites est " & ATA & _
Chr(13) & _
" Le nombre de touristes qui sont venus avec la formule
mer & oasis et qui ont fait des visites est " & ATT
Cells(34, 51) = AAC
Cells(39, 51) = AAD
Cells(44, 51) = ATA
Cells(49, 51) = ATT
'AAE= nombre de touristes qui sont venus seuls et qui ont fait
des visites
'AAF= nombre de touristes qui sont venus en couple et qui ont
fait des visites
'AAG= nombre de touristes qui sont venus en famille et qui ont
fait des visites
'AAH= nombre de touristes qui sont venus avec des amis et qui ont
fait des visites
AAE = 0
AAF = 0
AAG = 0
AAH = 0
For I = 4 To 103
If Cells(I, 10) = "1" And Cells(I, 14) = "1" Then
AAE = AAE + 1
ElseIf Cells(I, 10) = "2" And Cells(I, 14) = "1" Then
AAF = AAF + 1
ElseIf Cells(I, 10) = "3" And Cells(I, 14) = "1" Then
AAG = AAG + 1
ElseIf Cells(I, 10) = "4" And Cells(I, 14) = "1" Then
AAH = AAH + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui sont venus seuls et qui ont
fait des visites est " & AAE & _
Chr(13) & _
" Le nombre de touristes qui sont venus en couple et qui
ont fait des visites est " & AAF & _
Chr(13) & _
" Le nombre de touristes qui sont venus en famille et qui
ont fait des visites est " & AAG & _
Chr(13) & _
" Le nombre de touristes qui sont venus avec des amis et
qui ont fait des visites est " & AAH
Cells(55, 51) = AAE
Cells(61, 51) = AAF
Cells(67, 51) = AAG
Cells(73, 51) = AAH
'AAI= nombre de touristes qui disent qu'ils sont interesses par
la culture et qui n'ont pas fait des visites
'AAJ= nombre de touristes qui disent qu'ils ne sont pas
interesses par la culture et qui ont fait des visites
AAI = 0
AAJ = 0
For I = 4 To 103
If Cells(I, 11) = "1" And Cells(I, 14) = "2" Then
AAI = AAI + 1
ElseIf Cells(I, 11) = "2" And Cells(I, 14) = "1" Then
AAJ = AAJ + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont interesses
par la culture et qui n'ont pas fait des visites est " & AAI & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils ne sont pas
interesses par la culture et qui ont fait des visites est " & AAJ
Cells(81, 51) = AAI
Cells(86, 51) = AAJ
'AAK= nombre de touristes qui disent qu'ils sont interesses par
la culture et qui connaissent Hannibal
'AAL= nombre de touristes qui disent qu'ils sont interesses par
la culture et qui ne connaissent pas Hannibal
'AAM= nombre de touristes qui disent qu'ils sont interesses par
la culture et qui connaissent Hannibal et a quelle armee il appartient
AAK = 0
AAL = 0
AAM = 0
For I = 4 To 103
If Cells(I, 11) = "1" And Cells(I, 12) = "1" Then
AAK = AAK + 1
ElseIf Cells(I, 11) = "1" And Cells(I, 12) = "2" Then
AAL = AAL + 1
End If
Next I
For I = 4 To 103
If Cells(I, 11) = "1" And Cells(I, 12) = "1" And Cells(I, 13) =
"6" Then
AAM = AAM + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont interesses
par la culture et qui connaissent Hannibal est " & AAK & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont interesses
par la culture et qui ne connaissent pas Hannibal est " & AAL & _
Chr(13) & _
" Le nombre de touristes qui disent qu'ils sont interesses
par la culture et qui connaissent Hannibal et a quelle armee il appartient est
" & AAM
Cells(92, 51) = AAK
Cells(93, 51) = AAL
Cells(99, 51) = AAM
'AAN= nombre de touristes qui sont alles a la soiree Baloum et
qui ne sont pas satisfaits
AAN = 0
For I = 4 To 103
If Cells(I, 19) = "1" And Cells(I, 20) = "2" Then
AAN = AAN + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes qui sont alles a la soiree Baloum
et qui ne sont pas saisfaits est " & AAN
Cells(107, 51) = AAN
'visites culturelles et etat civil
'AAO= nombre de touristes celibataires qui ont fait des visites
culturelles
'AAP= nombre de touristes maries qui ont fait des visites
culturelles
'AAQ= nombre de touristes voeufs qui ont fait des visites
culturelles
'AAR= nombre de touristes divorces qui ont fait des visites
culturelles
AAO = 0
AAP = 0
AAQ = 0
AAR = 0
For I = 4 To 103
If Cells(I, 14) = "1" And Cells(I, 26) = "1" Then
AAO = AAO + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 26) = "2" Then
AAP = AAP + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 26) = "3" Then
AAQ = AAQ + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 26) = "4" Then
AAR = AAR + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes celibataires qui ont fait des
visites culturelles est " & AAO & _
Chr(13) & _
" Le nombre de touristes maries qui ont fait des visites
culturelles est " & AAP & _
Chr(13) & _
" Le nombre de touristes voeufs qui ont fait des visites
culturelles est " & AAQ & _
Chr(13) & _
" Le nombre de touristes divorces qui ont fait des visites
culturelles est " & AAR
Cells(112, 51) = AAO
Cells(118, 51) = AAP
Cells(124, 51) = AAQ
Cells(130, 51) = AAR
'AAS= nombre de touristes ages de moins de 20 ans et qui ont fait
des visites culturelles
'AAT= nombre de touristes dont l'age est compris entre 21 et 30
ans et qui ont fait des visites culturelles
'AAU= nombre de touristes dont l'age est compris entre 31 et 45
ans et qui ont fait des visites culturelles
'AAV= nombre de touristes dont l'age est compris entre 46 et 60
ans et qui ont fait des visites culturelles
'AAW= nombre de touristes ages de plus de 60 ans et qui ont fait
des visites culturelles
AAS = 0
AAT = 0
AAU = 0
AAV = 0
AAW = 0
For I = 4 To 103
If Cells(I, 14) = "1" And Cells(I, 27) = "1" Then
AAS = AAS + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 27) = "2" Then
AAT = AAT + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 27) = "3" Then
AAU = AAU + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 27) = "4" Then
AAV = AAV + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 27) = "5" Then
AAW = AAW + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes ages de moins de 20 ans et qui
ont fait des visites culturelles est " & AAS & _
Chr(13) & _
" Le nombre de touristes dont l'age est compris entre 21
et 30 ans et qui ont fait des visites culturelles est " & AAT & _
Chr(13) & _
" Le nombre de touristes dont l'age est compris entre 31
et 45 ans et qui ont fait des visites culturelles est " & AAU & _
Chr(13) & _
" Le nombre de touristes dont l'age est compris entre 46
et 60 ans et qui ont fait des visites culturelles est " & AAV & _
Chr(13) & _
" Le nombre de touristes ages de plus de 60 ans et qui ont
fait des visites culturelles est " & AAW
Cells(136, 51) = AAS
Cells(142, 51) = AAT
Cells(149, 51) = AAU
Cells(156, 51) = AAV
Cells(163, 51) = AAW
'ABB= nombre de touristes etudiants qui ont fait des visites
culturelles
'ABC= nombre de touristes enseignants qui ont fait des visites
culturelles
'ABD= nombre de touristes artisans ou techniciens qui ont fait
des visites culturelles
'ABE= nombre de touristes retraites qui ont fait des visites
culturelles
'ABF= nombre de touristes employes de bureau qui ont fait des
visites culturelles
'ABG= nombre de touristes inactifs qui ont fait des visites
culturelles
'ABH= nombre de touristes cadres superieurs ou ayant des
professions liberales qui ont fait des visites culturelles
ABB = 0
ABC = 0
ABD = 0
ABE = 0
ABF = 0
ABG = 0
ABH = 0
For I = 4 To 103
If Cells(I, 14) = "1" And Cells(I, 28) = "1" Then
ABB = ABB + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 28) = "2" Then
ABC = ABC + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 28) = "3" Then
ABD = ABD + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 28) = "4" Then
ABE = ABE + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 28) = "5" Then
ABF = ABF + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 28) = "6" Then
ABG = ABG + 1
ElseIf Cells(I, 14) = "1" And Cells(I, 28) = "7" Then
ABH = ABH + 1
End If
Next I
MsgBox "Questions combinees" & _
Chr(13) & _
Chr(13) & _
" Le nombre de touristes etudiants qui ont fait des
visites culturelles est " & AAB & _
Chr(13) & _
" Le nombre de touristes enseignants qui ont fait des
visites culturelles est " & ABC & _
Chr(13) & _
" Le nombre de touristes artisans ou techniciens qui ont
fait des visites culturelles est " & ABD & _
Chr(13) & _
" Le nombre de touristes retraites qui ont fait des
visites culturelles est " & ABE & _
Chr(13) & _
" Le nombre de touristes employes de bureau qui ont fait
des visites culturelles est " & ABF & _
Chr(13) & _
" Le nombre de touristes inactifs qui ont fait des visites
culturelles est " & ABG & _
Chr(13) & _
" Le nombre de touristes cadres superieurs ou ayant des
professions liberales qui ont fait des visites culturelles est " & ABH
Cells(170, 51) = AAB
Cells(177, 51) = ABC
Cells(184, 51) = ABD
Cells(191, 51) = ABE
Cells(198, 51) = ABF
Cells(205, 51) = ABG
Cells(212, 51) = ABH
MsgBox " F I N de l'analyse des resultats"
End Sub
| 