Compter un nom sauf si il est écrit en italique

**Le POlonais** · 14/03/2008, 09h36

Bonjour,

Je voudrais faire une boucle qui me permet de compter un nom sauf si il est écrit en italique.
Par exemple : Norbert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim LeNom as variant
 
LeNom =right(Norbert,4)
 
For A to 5
 
If LeNom and LeNom<> italic = range("A1").offset(0,A).value then
LeNom+1 
else
end if
next A

Mais je n'arrive pas.

Merci par avance pour votre aide.

Norbert

**tomy7** · 14/03/2008, 09h41

Dzień dobry,

sur quel colonne, ligne ou range tu veux faire sa ?

**Le POlonais** · 14/03/2008, 09h46

Czesc

N'importe car j'ai un tabableau ou je dois verifier le nombre de poste que les personnes occupent chaque jour sauf si c'est un remplacement alors je l'écris en italique.
Depuis toujours je la faisais à la main.
Maintenant que je me suis lancé en VBA je voudrais le faire en automatique.

Dziekuje

Norbert