Ajouter une fonction
Résolu
jack2125
Messages postés
457
Date d'inscription
Statut
Membre
Dernière intervention
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
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
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
A voir également:
- Ajouter une fonction
- Fonction si et - Guide
- Ajouter une signature sur word - Guide
- Ajouter une liste déroulante excel - Guide
- Ajouter une application au démarrage - Guide
- Impossible d'ajouter un ami sur facebook - Guide
1 réponse
Bonjour,
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.
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.