Bonjour, je cherche à sélectionner via un module, une plage de 100
lignes et 5 colonnes. Cette sélection ne doit pas être d'un seul bloc
(.areas.count=1) mais de 100 (1 par ligne, .areas.count=100).
Avez-vous une solution ? Merci.
Le code suivant fonctionne jusqu'à 25 lignes max (~ 255 caractères):
sub Sélectionner1par1()
dim k as integer
dim Plage
for k=1 to Selection.rows.count
Plage = Plage & Selection.Rows(k).Range("A1").Address _
& ":" & Selection.Rows(k).End(xlToRight).Address & ","
next k
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
Joel
Bonsoir,
Sorry, ma réponse est partie sur email perso...
Bonsoir,
Oui, plantage dès que la chaîne de caractères atteint 256 caractères (Excel et ses limites...)
si tu passes en addresse relative, tu gange un peu ... .Address(True, True)
Question subsidiaire : pourquoi vouloir à tout prix faire une selection multizone ?
Il y a probablement une autre façon de faire ...
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "manu" a écrit dans le message de news:
Bonjour, je cherche à sélectionner via un module, une plage de 100 lignes et 5 colonnes. Cette sélection ne doit pas être d'un seul bloc (.areas.count=1) mais de 100 (1 par ligne, .areas.count0). Avez-vous une solution ? Merci.
Le code suivant fonctionne jusqu'à 25 lignes max (~ 255 caractères):
sub Sélectionner1par1() dim k as integer dim Plage
for k=1 to Selection.rows.count Plage = Plage & Selection.Rows(k).Range("A1").Address _ & ":" & Selection.Rows(k).End(xlToRight).Address & "," next k
Plage= Left(Plage, Len(Plage) - 1)
Range(Plage).select
end sub
Bonsoir,
Sorry, ma réponse est partie sur email perso...
Bonsoir,
Oui, plantage dès que la chaîne de caractères atteint 256 caractères (Excel
et ses limites...)
si tu passes en addresse relative, tu gange un peu ... .Address(True, True)
Question subsidiaire : pourquoi vouloir à tout prix faire une selection
multizone ?
Il y a probablement une autre façon de faire ...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"manu" <ephilibert@theramex.mc> a écrit dans le message de
news:b13a9032.0407060545.4486964d@posting.google.com...
Bonjour, je cherche à sélectionner via un module, une plage de 100
lignes et 5 colonnes. Cette sélection ne doit pas être d'un seul bloc
(.areas.count=1) mais de 100 (1 par ligne, .areas.count0).
Avez-vous une solution ? Merci.
Le code suivant fonctionne jusqu'à 25 lignes max (~ 255 caractères):
sub Sélectionner1par1()
dim k as integer
dim Plage
for k=1 to Selection.rows.count
Plage = Plage & Selection.Rows(k).Range("A1").Address _
& ":" & Selection.Rows(k).End(xlToRight).Address & ","
next k
Oui, plantage dès que la chaîne de caractères atteint 256 caractères (Excel et ses limites...)
si tu passes en addresse relative, tu gange un peu ... .Address(True, True)
Question subsidiaire : pourquoi vouloir à tout prix faire une selection multizone ?
Il y a probablement une autre façon de faire ...
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "manu" a écrit dans le message de news:
Bonjour, je cherche à sélectionner via un module, une plage de 100 lignes et 5 colonnes. Cette sélection ne doit pas être d'un seul bloc (.areas.count=1) mais de 100 (1 par ligne, .areas.count0). Avez-vous une solution ? Merci.
Le code suivant fonctionne jusqu'à 25 lignes max (~ 255 caractères):
sub Sélectionner1par1() dim k as integer dim Plage
for k=1 to Selection.rows.count Plage = Plage & Selection.Rows(k).Range("A1").Address _ & ":" & Selection.Rows(k).End(xlToRight).Address & "," next k
