otobox Maison fondée en 2005 | Il faut que tu testes le numéro de ligne de ta cellule active :
Dim NoLigne as Integer
NoLigne=activecells.rows
Select Case NoLigne
Case 10, 12, 14, 16, etc.
Faire l'action
End Select |
Je n'ai pas Excel à disposition (je poste de mon portable Ubuntu) donc je ne peux pas te donner la syntaxe exacte, mais c'est quelque chose dans ce goût là.
Il faudrait que tu poste le code que tu utilise déjà pour qu'on puisse t'aider un peu plus. ---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
|