j'ai écrit une macro pour regrouper des dates en fonction du jour de la
semaine.
Les adresses des cellules du type "F24" sont ajoutées au fur et à mesure
dans la variable " Sélection ".
En fin de traitement j'utilise :
Range(Sélection).Select
Selection.Group
Tout ce passe bien tant que Sélection ne dépasse pas 256 caractères.
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
Denis Michon
Bonjour Thierry,
Ce n'est pas possible de dépasser cette limite.... Si dans ton exemple la variable " Sélection " est de type "String" et représente une kyrielle d'adresses de cellules.
Mais si tu utilises un objet de type Range, alors tu pourras dépasser cette limite.
Voici un petit exemple pour illustrer le propos:
La variable Objet "Rg" va représenter tous les cellules de la plage A1:A50 qui sont égales à "".
.------------------------------ Sub AjouterDesCellules()
Dim Rg As Range, A as Long
For A = 1 To 50 If Range("A" & A) = "" Then If Rg Is Nothing Then Set Rg = Range("A" & A) Else Set Rg = Union(Rg, Range("A" & A)) End If End If Next
Rg.Select Set Rg = Nothing
End Sub .------------------------------
Salutations!
"Thierry" a écrit dans le message de news: Bonjours à tous,
j'ai écrit une macro pour regrouper des dates en fonction du jour de la semaine. Les adresses des cellules du type "F24" sont ajoutées au fur et à mesure dans la variable " Sélection ". En fin de traitement j'utilise :
Range(Sélection).Select Selection.Group
Tout ce passe bien tant que Sélection ne dépasse pas 256 caractères.
Comment aller au delà de 256 caractères.
Merci pour votre aide.
Thierry.
Bonjour Thierry,
Ce n'est pas possible de dépasser cette limite....
Si dans ton exemple la variable " Sélection " est de type "String" et représente une kyrielle d'adresses de cellules.
Mais si tu utilises un objet de type Range, alors tu pourras dépasser cette limite.
Voici un petit exemple pour illustrer le propos:
La variable Objet "Rg" va représenter tous les cellules de la plage A1:A50
qui sont égales à "".
.------------------------------
Sub AjouterDesCellules()
Dim Rg As Range, A as Long
For A = 1 To 50
If Range("A" & A) = "" Then
If Rg Is Nothing Then
Set Rg = Range("A" & A)
Else
Set Rg = Union(Rg, Range("A" & A))
End If
End If
Next
Rg.Select
Set Rg = Nothing
End Sub
.------------------------------
Salutations!
"Thierry" <admin.tr@free.fr> a écrit dans le message de news:uU3sUGOlDHA.1656@tk2msftngp13.phx.gbl...
Bonjours à tous,
j'ai écrit une macro pour regrouper des dates en fonction du jour de la
semaine.
Les adresses des cellules du type "F24" sont ajoutées au fur et à mesure
dans la variable " Sélection ".
En fin de traitement j'utilise :
Range(Sélection).Select
Selection.Group
Tout ce passe bien tant que Sélection ne dépasse pas 256 caractères.
Ce n'est pas possible de dépasser cette limite.... Si dans ton exemple la variable " Sélection " est de type "String" et représente une kyrielle d'adresses de cellules.
Mais si tu utilises un objet de type Range, alors tu pourras dépasser cette limite.
Voici un petit exemple pour illustrer le propos:
La variable Objet "Rg" va représenter tous les cellules de la plage A1:A50 qui sont égales à "".
.------------------------------ Sub AjouterDesCellules()
Dim Rg As Range, A as Long
For A = 1 To 50 If Range("A" & A) = "" Then If Rg Is Nothing Then Set Rg = Range("A" & A) Else Set Rg = Union(Rg, Range("A" & A)) End If End If Next
Rg.Select Set Rg = Nothing
End Sub .------------------------------
Salutations!
"Thierry" a écrit dans le message de news: Bonjours à tous,
j'ai écrit une macro pour regrouper des dates en fonction du jour de la semaine. Les adresses des cellules du type "F24" sont ajoutées au fur et à mesure dans la variable " Sélection ". En fin de traitement j'utilise :
Range(Sélection).Select Selection.Group
Tout ce passe bien tant que Sélection ne dépasse pas 256 caractères.
