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