numéroter des cellules

Bonjour bob et le forum,

S tes cellules sont coloriés manuellement:

if tacellule.colorindex=xlnone then

...intructions pour numéroter

end if

Si la couleur est générée par une MFC, il faut reprendre les conditions de mise en forme conditionnellle(MFC)

Michel

Michel,
je te joins l'écriture de base de ma macro.
si dans la plage sélectionnée , des cellules ont un remplissage couleur,celle-ci ne doit pas être numérotée,et la boucle doit revisiter la plage suivante,numéroter si pas de remplissage et ainsi de suite jusque fin de plage.
j'ai mis une instruction comme tu me l'as dit,(adaptée à mon projet)mais la boucle ne s'arrête pas,et ne fais pas ce que j'aimerai qu'elle fasse.

merci

copie sub :

Range("A1:A181").Select

For v = 0 To 180
Range("A1").Offset(v, 0).Value = v
Next v
Merci

Re,

Essaies ce script:

Sub numeroter()
Dim v As Byte, num As Byte

ActiveSheet.Unprotect
Application.ScreenUpdating = False

num = 1
For v = 1 To 180
If Cells(v, 1).Interior.ColorIndex = xlNone Then
Cells(v, 1) = num
num = num + 1
End If
Next

'ActiveSheet.Protect

End Sub

Merci Michel,c'est exactement ce que j'avais besoin.
àbientôt peut être pour aider le déb que je suis.
merci