Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
CAP2
Salut,
voici, en considérant que tu as bien utilisé la couleur nommée "bleu" et pas "indigo", ou "bleu clair" ou autre ;o))
(par contre je te conseille FORTEMENT d'adapter le Range("A1:IV65536") à la plage dans laquelle tu veux trouver les cellules ayant un contenu bleu, parce que là ça passe TOUTES les cellules de la feuille --> TRES long)
Private Sub CommandButton1_Click() Dim cell As Range
For Each cell In Range("A1:IV65536") If cell.Font.ColorIndex = 5 Then cell.ClearContents End If Next
End Sub
Ca marche ?
CAP2
Salut,
voici, en considérant que tu as bien utilisé la couleur nommée "bleu" et pas
"indigo", ou "bleu clair" ou autre ;o))
(par contre je te conseille FORTEMENT d'adapter le Range("A1:IV65536") à la
plage dans laquelle tu veux trouver les cellules ayant un contenu bleu,
parce que là ça passe TOUTES les cellules de la feuille --> TRES long)
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Range("A1:IV65536")
If cell.Font.ColorIndex = 5 Then
cell.ClearContents
End If
Next
voici, en considérant que tu as bien utilisé la couleur nommée "bleu" et pas "indigo", ou "bleu clair" ou autre ;o))
(par contre je te conseille FORTEMENT d'adapter le Range("A1:IV65536") à la plage dans laquelle tu veux trouver les cellules ayant un contenu bleu, parce que là ça passe TOUTES les cellules de la feuille --> TRES long)
Private Sub CommandButton1_Click() Dim cell As Range
For Each cell In Range("A1:IV65536") If cell.Font.ColorIndex = 5 Then cell.ClearContents End If Next
End Sub
Ca marche ?
CAP2
tipi
Merci c'est exactement ce que je cherchais
Mais ne serait il pas possible pour excel de savoir jusqu'où va la feuille ( comme quand on tape Ctrl+fin) et ainsi trouver une plage variable et ainsi changer le range ("A1:IV65536") par qqe chose de variable adapté automatiquement par Excel ( un range qui commence par A1 et qui finit là où atterirait le curseur lorsqu'on tape sur Ctrl + Fin)
Merci
Anis
"CAP2" a écrit dans le message de news: %
Salut,
voici, en considérant que tu as bien utilisé la couleur nommée "bleu" et pas "indigo", ou "bleu clair" ou autre ;o))
(par contre je te conseille FORTEMENT d'adapter le Range("A1:IV65536") à la plage dans laquelle tu veux trouver les cellules ayant un contenu bleu, parce que là ça passe TOUTES les cellules de la feuille --> TRES long)
Private Sub CommandButton1_Click() Dim cell As Range
For Each cell In Range("A1:IV65536") If cell.Font.ColorIndex = 5 Then cell.ClearContents End If Next
End Sub
Ca marche ?
CAP2
Merci c'est exactement ce que je cherchais
Mais ne serait il pas possible pour excel de savoir jusqu'où va la feuille
( comme quand on tape Ctrl+fin) et ainsi trouver une plage variable et ainsi
changer le range ("A1:IV65536") par qqe chose de variable adapté
automatiquement par Excel ( un range qui commence par A1 et qui finit là où
atterirait le curseur lorsqu'on tape sur Ctrl + Fin)
Merci
Anis
"CAP2" <No_SpamCAP2@jzerhethth.fr> a écrit dans le message de news:
%234sJJN6iFHA.3568@TK2MSFTNGP10.phx.gbl...
Salut,
voici, en considérant que tu as bien utilisé la couleur nommée "bleu" et
pas
"indigo", ou "bleu clair" ou autre ;o))
(par contre je te conseille FORTEMENT d'adapter le Range("A1:IV65536") à
la
plage dans laquelle tu veux trouver les cellules ayant un contenu bleu,
parce que là ça passe TOUTES les cellules de la feuille --> TRES long)
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Range("A1:IV65536")
If cell.Font.ColorIndex = 5 Then
cell.ClearContents
End If
Next
Mais ne serait il pas possible pour excel de savoir jusqu'où va la feuille ( comme quand on tape Ctrl+fin) et ainsi trouver une plage variable et ainsi changer le range ("A1:IV65536") par qqe chose de variable adapté automatiquement par Excel ( un range qui commence par A1 et qui finit là où atterirait le curseur lorsqu'on tape sur Ctrl + Fin)
Merci
Anis
"CAP2" a écrit dans le message de news: %
Salut,
voici, en considérant que tu as bien utilisé la couleur nommée "bleu" et pas "indigo", ou "bleu clair" ou autre ;o))
(par contre je te conseille FORTEMENT d'adapter le Range("A1:IV65536") à la plage dans laquelle tu veux trouver les cellules ayant un contenu bleu, parce que là ça passe TOUTES les cellules de la feuille --> TRES long)
Private Sub CommandButton1_Click() Dim cell As Range
For Each cell In Range("A1:IV65536") If cell.Font.ColorIndex = 5 Then cell.ClearContents End If Next
End Sub
Ca marche ?
CAP2
CAP2
Si,
il faut qu'avant de lancer la macro tu partes d'une cellule du tableau à trouver :
Ca donne ça :
Private Sub CommandButton1_Click() Dim cell As Range
Selection.CurrentRegion.Select
For Each cell Selection If cell.Font.ColorIndex = 5 Then cell.ClearContents End If Next
End Sub
Ca marche ?
CAP2
Si,
il faut qu'avant de lancer la macro tu partes d'une cellule du tableau à
trouver :
Ca donne ça :
Private Sub CommandButton1_Click()
Dim cell As Range
Selection.CurrentRegion.Select
For Each cell Selection
If cell.Font.ColorIndex = 5 Then
cell.ClearContents
End If
Next
