Bonjour à tous,
Pour sélectionner les cellules de ma feuille dont le fond est en gris j'utilise une macro trouvée sur ce forum (que je mets ci-dessous).
Cette macro fonctionne très bien mais je m'aperçois qu'au dessus d'un certain nombre de cellules, j'ai une erreur sur l'objet range (lorsque le nombre de cellules à sélectionner est supérieur à moins d'une centaine..)
Quelqu'un peut-il me dire quelle est la limitation du nombre de cellules dans un objet Range.select ?
Et dans le cas ou il y a une limite, comment faire pour sélectionner toutes mes cellules, qui sont souvent plus d'une centaine ? En plusieurs fois sans doute mais comment?
Merci de votre aide..
Public Sub SelCelGris()
'selectionne les cellules grises
Dim c As Range, CellGris As String
For Each c In Range("C3:C2000")
If c.Interior.ThemeColor = xlThemeColorDark2 Then
CellGris = CellGris & "," & c.Address
End If
Next
MsgBox CellGris 'jusque là tout va bien
Range(Mid(CellGris, 2, Len(CellGris) - 1)).Select 'là j'ai un refus
End Sub
Pour sélectionner les cellules de ma feuille dont le fond est en gris j'utilise une macro trouvée sur ce forum (que je mets ci-dessous).
Cette macro fonctionne très bien mais je m'aperçois qu'au dessus d'un certain nombre de cellules, j'ai une erreur sur l'objet range (lorsque le nombre de cellules à sélectionner est supérieur à moins d'une centaine..)
Quelqu'un peut-il me dire quelle est la limitation du nombre de cellules dans un objet Range.select ?
Et dans le cas ou il y a une limite, comment faire pour sélectionner toutes mes cellules, qui sont souvent plus d'une centaine ? En plusieurs fois sans doute mais comment?
Merci de votre aide..
Public Sub SelCelGris()
'selectionne les cellules grises
Dim c As Range, CellGris As String
For Each c In Range("C3:C2000")
If c.Interior.ThemeColor = xlThemeColorDark2 Then
CellGris = CellGris & "," & c.Address
End If
Next
MsgBox CellGris 'jusque là tout va bien
Range(Mid(CellGris, 2, Len(CellGris) - 1)).Select 'là j'ai un refus
End Sub