Discussion :

[Muriel77]

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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

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

si j'ai bien compris ton souhait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Muriel77]

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

[Philippe Tulliez]

Bonjour,

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

[Muriel77]

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…