[XL-2007] Supprimer les espaces et les doublons

[souad12]

Bonsoir,
Je me permets de solliciter votre aide concernant un petit exercice que voila:

Écrire une macro « formater » qui formate la liste des prénoms fournie dans la feuille « prénoms ». Il ne doit pas y avoir de lignes vides à l’intérieur de la liste ni d’espaces avant et après les prénoms, de plus ils doivent commencer par une majuscule. Et qui élimine tous les doublons de la liste des prénoms.

Code :

1
2
3
4
5
6
7
8
9
10
Sub formater()
Dim cell As Range
 
     For Each cell In Selection
      cell = Trim(cell) 
 Next cell
 For Each cell In Selection
  If IsEmpty(cell)  'je ne sais pas comment dire supprimer la ligne ...
 ' pour les doublons je pensé utiliser RemoveDuplicates mais ça ne fonctionne pas
End Sub

Je vous remercie d'avance pour votre aide et vos conseil je suis une novice en programmation et j'avoue avoir un peu de mal. C'est pour cela que je fais des petits exercices "simple" (pour les habitués)
Au plaisir

[Philippe JOCHMANS]

Bonjour

Un peu de recherche aurait put t'aider à trouver :

D'abord regardes du coté de Delete.

Ensuite un peu de lecture :

Manipuler les chaînes de caractères en VB6 et VBA Excel
La gestion des doublons dans Excel

Tu as tout ce qu'il faut dans ces tuto.

Philippe