Ajouter une fonction
Résolu
bonjour a tous
voila ma fonction qui marche partiellement quand c'est vraie
si font Bold on passe à 0 la ligne qui correspond a ma cellule ecrite en gras Cela fonctionne
par contre pour les cellules nos gras je dois les incrémenter de 1
Sub jack()
Dim r As Range
Dim c As Range
Set r = Range("a10:a62")
For Each c In r.Cells
If c.Font.Bold Then
Application.EnableEvents = False
c.Offset(0, 72).Value = 0
Application.EnableEvents = True
End If
Next c
End Sub
--
vous êtes super!
merci à tous
voila ma fonction qui marche partiellement quand c'est vraie
si font Bold on passe à 0 la ligne qui correspond a ma cellule ecrite en gras Cela fonctionne
par contre pour les cellules nos gras je dois les incrémenter de 1
Sub jack()
Dim r As Range
Dim c As Range
Set r = Range("a10:a62")
For Each c In r.Cells
If c.Font.Bold Then
Application.EnableEvents = False
c.Offset(0, 72).Value = 0
Application.EnableEvents = True
End If
Next c
End Sub
--
vous êtes super!
merci à tous
1 réponse
-
ModérateurBonjour,
Déjà, à l'avenir, merci de poster ton code correctement sur le forum en utilisant les BALISES DE CODE.
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Ensuite,
Pour ce qui est de ta question.... tu as le IF ..... il te suffit de mettre un ELSE.
