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
Ellimac
Bonjour,
Il y a sûrement plus simple mais en attendant mieux : Sub couleur() For Each c In Selection If c.Interior.ColorIndex = 36 Then t = c.Address If e = "" Then e = Range(t).Address Else e = Union(Range(e), Range(t)).Address End If End If Next Range(e).Select End Sub
Camille
"RGI" wrote:
Bonjour
Dans une colonne je voudrai sélectionner toutes les cellules dont la couleur interior colorindex est 36
comment peut-on faire ?
Merci de vos réponses
RGI
Bonjour,
Il y a sûrement plus simple mais en attendant mieux :
Sub couleur()
For Each c In Selection
If c.Interior.ColorIndex = 36 Then
t = c.Address
If e = "" Then
e = Range(t).Address
Else
e = Union(Range(e), Range(t)).Address
End If
End If
Next
Range(e).Select
End Sub
Camille
"RGI" wrote:
Bonjour
Dans une colonne je voudrai sélectionner toutes les cellules
dont la couleur interior colorindex est 36
Il y a sûrement plus simple mais en attendant mieux : Sub couleur() For Each c In Selection If c.Interior.ColorIndex = 36 Then t = c.Address If e = "" Then e = Range(t).Address Else e = Union(Range(e), Range(t)).Address End If End If Next Range(e).Select End Sub
Camille
"RGI" wrote:
Bonjour
Dans une colonne je voudrai sélectionner toutes les cellules dont la couleur interior colorindex est 36
comment peut-on faire ?
Merci de vos réponses
RGI
FFO
Salut à toi Je te propose ce code
Range("A1", "A10").Select For Each c In Selection If c.Interior.ColorIndex = 36 Then c.Select i = ActiveCell.Row A = A & "A" & i & "," End If Next B = Mid(A, 1, Len(A) - 1) Range(B).Select
La plage est à adapter ligne : Range("A1", "A10").Select
Attention Nombre de cellules à sélectionner est limité (40 à 50)
Celà devrait te convenir
Bonjour
Dans une colonne je voudrai sélectionner toutes les cellules dont la couleur interior colorindex est 36
comment peut-on faire ?
Merci de vos réponses
RGI
Salut à toi
Je te propose ce code
Range("A1", "A10").Select
For Each c In Selection
If c.Interior.ColorIndex = 36 Then
c.Select
i = ActiveCell.Row
A = A & "A" & i & ","
End If
Next
B = Mid(A, 1, Len(A) - 1)
Range(B).Select
La plage est à adapter ligne :
Range("A1", "A10").Select
Attention Nombre de cellules à sélectionner est limité (40 à 50)
Celà devrait te convenir
Bonjour
Dans une colonne je voudrai sélectionner toutes les cellules
dont la couleur interior colorindex est 36
Range("A1", "A10").Select For Each c In Selection If c.Interior.ColorIndex = 36 Then c.Select i = ActiveCell.Row A = A & "A" & i & "," End If Next B = Mid(A, 1, Len(A) - 1) Range(B).Select
La plage est à adapter ligne : Range("A1", "A10").Select
Attention Nombre de cellules à sélectionner est limité (40 à 50)
Celà devrait te convenir
Bonjour
Dans une colonne je voudrai sélectionner toutes les cellules dont la couleur interior colorindex est 36
comment peut-on faire ?
Merci de vos réponses
RGI
RGI
Merci à vous deux
j'ai réussi à trouver une solution qui me convient car le colorindex provoque des problèmes
Merci beaucoup
RGI
Merci à vous deux
j'ai réussi à trouver une solution qui me convient
car le colorindex provoque des problèmes