numéroter des cellules

[BobStriker]

Bjr,
j'ai écrit une petite macro pour numéroter des cellules ,dans une colonne,de 1 à 180.certaines cellules sont de couleur différente de xlNone,pour ne pas être numérotées.
quelle est l'écriture en vba pour ne numéroter que les cellules sans remplissage de couleur ?

merci au forum

 

[Michel_M]

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

 

[BobStriker]

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

 

[Michel_M]

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

 

[BobStriker]

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