Ajouter une fonction

Résolu/Fermé

jack2125 Messages postés 457 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 21 mars 2025 - 27 févr. 2020 à 18:10
jordane45 Messages postés 38457 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 mars 2025 - 27 févr. 2020 à 18:14

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

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

Réponse 1 / 1

jordane45 Messages postés 38457 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 mars 2025 4 740
27 févr. 2020 à 18:14

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.

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...

Comment savoir comment on nous a ajouté sur Snap

J’aimerai savoir si quelqu’un sait comment cela ce fait que j’ai des ajout sur snap mais qu’il n’y a pas marqué comment on m’a ajouté (ajout rapide, mention etc) il y a juste marqué le nom de la personne et à la place de comment la personne m’a ajouter son identifiant snap. Et je ne pense pas que ce soit un beugue parce que je reçois dés ajout ou là il y a écrit comment on m’a ajouté. Et quand je demande au personne ou ils ont eut mon snap ils me répondent ajout rapide je répond que c’est bizzare puisque ça ne me l’a pas mit et là personne change de sujet ( ce n’est pas la première). Et deuxième question aussi concernant les ajouts, un jour j’ai reçu un ajout sur snap via mention sachant que...