Sub CommentaireLabel14()
Dim W$, Z$, Y$, X$, Q$
Dim Descriptif$, Descriptif2$
W = Chr(10) 'saute à la ligne suivante
Z = Chr(9) 'tabulation
Y = Chr(32) 'espace
X = Chr(13) 'saute une ligne
Q = Label11.Caption
Descriptif = "Utilitaire Codes Postaux France et Outre-Mer version-4" & W _
& "auteur --> Viard Jean-Paul" & W & W _
& "La première fenêtre donne le choix sur la sélection du département" & W & Z _
& "Soit par Numéro ou par Nom" & W & Z _
& "avec indication du nombre de Communes." & W & W _
& "Fenêtre Jaune" & W & Z _
& "Sélection par le numéro de code postal, dans ce cas plusieurs" & W & Z _
& "Noms peuvent apparaître dans la fenêtre suivante" & W & Z _
& "La sélection d'un nom sera validé en 'Fenêtre Verte' 'Commune'" & W & W _
& "Fenêtre Bleu" & W & Z _
& "C'est l'opération inverse, le choix est fait par nom de Commune" & W & Z _
& "la sélection donne automatiquement le code postal, qu'il faut valider" & W & Z _
& "pour obtenir dans la 'Fenêtre Verte' le 'Code Postal'" & W & W _
& "La Fenêtre 'Recherche' " & W & Z _
& "Cette recherche est effectuée" & W & Z _
& " sur le totalité des communes (" & Q & ") après réduction " & W & Z _
& "des doublons" & W & Z _
& "Deux modes de recherche sont possible" & W & Z _
& "1° - 'Précis' seul les noms exactes sont affichés." & W & Z _
& "2° - 'Global' quelques lettres suffisent. " & W & Z & Z _
& "attention avec une seule lettres, le nombre de" & W & Z & Z _
& "données est très important et le temps aussi." & W & Z & Z _
& "Lettre 'B' >3000 données" & W & Z & Z _
& "Lettre 'S' >6000 données temps >2 minutes"
'--------------------------------------
Descriptif2 = "Bouton Wikipédia" & W & W _
& "Cette commande fonctionne que si un nom est présent dans" & W & Z _
& "la fenêtre verte 'Commune'" & W & Z _
& "Toutes les Communes donnent accès à Wikipédia pour des infos" & W & Z _
& "complémentaires, tel Code 'INSEE', coordonnées GPS etc." & W & W _
& "Nota: La Nouvelle-Calédonie est considée comme territoire d'outre-mer" & W & W _
& "Bouton 'Raccourci'" & W & Z _
& "Il génère un 'Icône' sur le Bureau"
End Sub