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
Pascal Engelmajer
Salut, pour ceci :
Sélectionner une cellule jaune. puis exécuter : Sub sélectionner() Dim couleur As Integer Dim cell As Range Dim plage As Range 'il faut trouver la valeur du ColorIndex 'on suppose une seule couleur dans la cellule active 'sinon adapter en distinguant la première cellule trouvé pour initialiser plage 'if plage=nothing then ' plageÎll 'else ' plage=Union ... 'end if Set plage = ActiveCell couleur = ActiveCell.Interior.ColorIndex 'sortir si non coloré If couleur = xlNone Then Exit Sub For Each cell In ActiveSheet.UsedRange If cell.Interior.ColorIndex = couleur Then Set plage = Union(plage, cell) End If Next cell plage.Select End Sub un petit bouton dans une barre de menu ...
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Jean LANNELUCQ" a écrit dans le message de news: Bonjour,
J'ai un classeur dans lequel les cellules modifiables (zones à saisir) sont identifiées par une couleur jaune pale.
Afin de préserver les cellules contenant des formules, je souhaite protéger les feuilles de mon classeur.
Comment sélectionner d'un bloc toutes les cellules colorées en jaune afin de pouvoir effetuer en une passe un dévérouillage ?
Merci par avance de vos bons conseils et solutions et merci aussi pour la bonne humeur qui règne sur ce forum
A vous lire bientôt
jean
Salut,
pour ceci :
Sélectionner une cellule jaune.
puis exécuter :
Sub sélectionner()
Dim couleur As Integer
Dim cell As Range
Dim plage As Range
'il faut trouver la valeur du ColorIndex
'on suppose une seule couleur dans la cellule active
'sinon adapter en distinguant la première cellule trouvé pour
initialiser plage
'if plage=nothing then
' plageÎll
'else
' plage=Union ...
'end if
Set plage = ActiveCell
couleur = ActiveCell.Interior.ColorIndex
'sortir si non coloré
If couleur = xlNone Then Exit Sub
For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex = couleur Then
Set plage = Union(plage, cell)
End If
Next cell
plage.Select
End Sub
un petit bouton dans une barre de menu ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Jean LANNELUCQ" <jean.lannelucq@libertysurf.fr> a écrit dans le message de
news: MPG.1ad91fc085e27dc8989684@news.wanadoo.fr...
Bonjour,
J'ai un classeur dans lequel les cellules modifiables (zones à saisir)
sont identifiées par une couleur jaune pale.
Afin de préserver les cellules contenant des formules, je souhaite
protéger les feuilles de mon classeur.
Comment sélectionner d'un bloc toutes les cellules colorées en jaune
afin de pouvoir effetuer en une passe un dévérouillage ?
Merci par avance de vos bons conseils et solutions et merci aussi pour
la bonne humeur qui règne sur ce forum
Sélectionner une cellule jaune. puis exécuter : Sub sélectionner() Dim couleur As Integer Dim cell As Range Dim plage As Range 'il faut trouver la valeur du ColorIndex 'on suppose une seule couleur dans la cellule active 'sinon adapter en distinguant la première cellule trouvé pour initialiser plage 'if plage=nothing then ' plageÎll 'else ' plage=Union ... 'end if Set plage = ActiveCell couleur = ActiveCell.Interior.ColorIndex 'sortir si non coloré If couleur = xlNone Then Exit Sub For Each cell In ActiveSheet.UsedRange If cell.Interior.ColorIndex = couleur Then Set plage = Union(plage, cell) End If Next cell plage.Select End Sub un petit bouton dans une barre de menu ...
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Jean LANNELUCQ" a écrit dans le message de news: Bonjour,
J'ai un classeur dans lequel les cellules modifiables (zones à saisir) sont identifiées par une couleur jaune pale.
Afin de préserver les cellules contenant des formules, je souhaite protéger les feuilles de mon classeur.
Comment sélectionner d'un bloc toutes les cellules colorées en jaune afin de pouvoir effetuer en une passe un dévérouillage ?
Merci par avance de vos bons conseils et solutions et merci aussi pour la bonne humeur qui règne sur ce forum