macro trop longue si 2 conditions

Bonjour à tous
Voici mon petit problème.
J'ai besoin que excel reconnaisse si dans une cellule, les mots sont barrés. S'ils sont barrés, il me met 1 dans la case sinon rien.
J'ai fait ma macro qui fonctionne et qui reconnait bien les mots barrés mais si jamais on remet le mot normalement, le 1 reste dans la colonne. J'ai donc voulu rajouter une condition lui disant que si le mot est normal, il ne mette rien dans la cellule et la…. catastrophe, la macro met un temps infini à calculer… j'ai donc du rater quelque chose. je vous mets ma formule

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() Dim i As Long   LastRow = Cells(Rows.Count, 1).End(xlUp).Row   For i = 1 To LastRow If Cells(i, 12).Font.Strikethrough = True Then Cells(i, 10) = "1" End If Next i End Sub

---

Quelqu'un aurait une idée pour qu'en rajoutant la 2ème condition, la macro ne mette pas une éternité à calculer ? (elle devrait lire environ 2000 lignes)

Et pourriez vous me dire comment faire pour qu'elle se déclenche dès que la cellule est changée svp?

Merci à tous pour votre aide:P

Tu devrais publier ton code avec la condition ajoutée.

si j'ai bien compris ton souhait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1() Dim i As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LastRow If Cells(i, 12).Font.Strikethrough = True Then Cells(i, 10) = "1" Else Cells(i, 10).ClearContents End If Next i End Sub

---

si le traitement est long et qu'il y a beaucoup de ligne
en passant par une variable tableau pour tout écrire en une seule fois
diminuerait le temps de traitement.

Bonjour,
Je passerais par une fonction personnalisée renvoyant une valeur booléenne

Code:

---

1 2 3

Function IsStrikethrough(c As Range) As Boolean IsStrikethrough = c.Font.Strikethrough End Function

---

et ensuite, tu insères la fonction en une seule instruction en VBA dans toute la colonne sans boucle

Exemple si la plage à contrôler est la colonne F2:F30000 et que la colonne où se trouve la formule est la G

Code:

---

1 2 3 4 5 6 7 8

Sub T() Dim rngColumn As Range Dim Addr As String Set rngColumn = shtTarget.Range("G2:G30000") Addr = "F2" rngColumn.Formula = "=IsStrikethrough(" & Addr & ")" Set rngColumn = Nothing End Sub

---

A lire éventuellement

• Comment écrire une formule dans une plage de cellules en VBA ?
• A l’aide de VBA, comment écrire une formule plus complexe dans une cellule ?

Bonjour vous deux et merci pour vos réponses

Alors a_diard : ta formule ne fonctionne pas. Elle ralentit encore plus et elle fait buguer ma 2 ème macro.

pour Philippe : je suis débutante et je ne comprends pas tout ce que tu as écrit. J'ai copié collé ta formule et il me met un message d'erreur objet requis et erreur d'exécution 424. la colonne à vérifier est L (de la ligne 2 à 2000) et la colonne qui recevra les 1 est la J.


En tout cas je vous remercie beaucoup pour votre aide

Bonjour,

Citation:

---

je suis débutante et je ne comprends pas tout ce que tu as écrit. J'ai copié collé ta formule et il me met un message d'erreur objet requis et erreur d'exécution 424. la colonne à vérifier est L (de la ligne 2 à 2000) et la colonne qui recevra les 1 est la J.

---

Que n'as-tu pas compris ?
Où as-tu copié la fonction personnalisée que j'ai publiée ?
As-tu lu les billets que je t'ai conseillé de lire ?

Plutôt qu'écrire "1", c'est déjà mieux d'écrire 1 et encore plus d'écrire VRAI ou FAUX ce que je préconise et ce que fait la fonction que j'ai publiée et qui est nommée IsStrikethrough. Celle-ci renvoyant VRAI si la police de la cellule référencée dans l'argument C est barrée et FAUX dans le cas contraire.

En plus des billets que j'ai référencés, je te conseille vivement la lecture de Les fonctions personnelles dans Excel

Philippe

Oui j'ai lu ce que tu as mis mais comme je t'ai dis je débute et je ne comprends pas comment faire.
J'ai mis ta formule pour créer la fonction mais après je ne comprends pas comment intégrer la formule dans la cellule. Je te mets une partie de mon fichier. J'ai besoin du 1 car j'ai besoin d'extraire les données après…

Bonjour,
Je n'ouvre pas les classeur joints

Comment as-tu fais pour le code que tu as publié ?
Je suppose que tu l'as inséré dans un module ?
Et bien pour les deux codes que j'ai publié, c'est pareil. Soit tu fais un copier et un coller dans le même module que le code que tu as publié soit tu insères un nouveau module où tu colles le code.

Lorsque l'on écrit une fonction personnelle, elle est utilisable déjà dans Excel donc si tu écris =IsStrikethrough(A2) dans la cellule B2 ou C2, la fonction te renverra VRAI ou FAUX en fonction de l'option Barré de la police.
Attention toutefois que cela fonctionnera dès que tu valideras la formule mais en cas de changement le résultat ne changera pas car la modification d'une propriété comme la couleur d'une police n'est pas considéré par Excel comme une modification qui enclenche un recalcul.

Pour la formule que j'ai mise j'ai cherché et cherché sur le net… fait des essais jusqu'à ce que ça fonctionne :mouarf::mouarf:

Bonjour,
Il est inutile à chacune de tes réponses de répéter la conversation qui précède, cela rend la lecture plus difficile.

Peut on considérer que cela fonctionne ?

Oui en effet cela fonctionne sans problème. En fait j'avais déjà créé une fonction (pour que excel me donne le numéro d'une couleur) mais elle se faisait en une seule fois, c'est pour cela que je ne comprenais pas pourquoi toi il y en avait 2 à faire.
Par contre, comme tu le dis, si on change, ca ne change pas. Que faut il faire pour qu'ils puissent mettre à jour? en faisant F9, ça ne fonctionne pas.
En tout cas un grand merci pour ton aide précieuse

Ah non problème… j'ai trouvé pour faire un bouton de mise à jour mais mon problème c'est le VRAI et FAUX. En fait quand je mettais 1 ou rien c'était pour que si il y avait un 1, il ne recopiait pas une cellule et si il n'y avait rien, il recopiait la cellule. et avec le vrai faux, ça ne fonctionne plus

LOL, surtout ne me prenez pas pour une folle… en fait j'ai trouvé : dans ma formule je mettait que si il voyait "VRAI", il ne mettait rien etc. en fait il fallait enlever les "" pour que ça fonctionne. D'après ce que j'avais appris, quand c'était du texte, il fallait toujours mettre entre "" et pas là… est-ce parce que ça vient d'une formule?
8O:mrgreen: Excel m'épatera toujours….

Bonjour,
En fait VRAI et FAUX sont des valeurs booléenne et pas du texte.
Mise à part les formules, dans Excel, on peut essentiellement stocker trois types de données distinctes dans les cellules

1. des valeurs numériques
2. du texte
3. des valeurs logiques (VRAI et FAUX)

Tous le reste n'est que formatage, comme les dates

VRAI vaut 1 et FAUX vaut 0. Ce qui fait que l'on peut multiplier et additionner les valeurs booléennes

Ainsi dans certains cas, on peut se passer d'un SI et même d'un ET et/ou d'un OU imbriqué dans un SI en utilisant les valeurs booléennes

A lire éventuellement ces billets

• Remplacer la fonction SI par une formule logique
• Excel – Pourquoi placer des guillemets dès le moment où j’utilise une constante alphanumérique ?

Bonjour Philippe,

Citation:

---

Envoyé par Philippe Tulliez

..., dans Excel, on peut essentiellement stocker trois types de données distinctes dans les cellules

1. des valeurs numériques
2. du texte
3. des valeurs logiques (VRAI et FAUX)

---

Il y en a une 4ème : les erreurs.
C'est très très rarement utilisée en temps que donnée, hormis #N/A qui est très utile dans certains cas de graphiques.
Tu diras que c'est le résultat de formules : oui mais ... on peut aussi faire un copier / coller valeur pour obtenir la donnée ou la saisir directement.

Bonjour Patrice,
Tu as tout à fait raison, je ne l'avais pas mentionné car je voulais insister sur les valeurs constantes que l'on encode.

Merci à vous deux pour vos explications. Je découvre petit à petit. Vous êtes une mine d'information!!!! :lol::lol: