gratifiant > microsoft.* > microsoft.excel

tutor0 (27/10/2005, 14h53)
Auriez-vous été confronté à ce pb :
range("D1").value=range ("A1").value marche quelque soit la taille du
contenu de la cellule, mais range("D1:D2").value = range("A1:A2").value
plante si la cellule A1 ou A2 possède un contenu de taille supérieure à 911
car.
Oliv' (27/10/2005, 15h21)
tutor0 <tutor0> que je salut a écrit :
> Auriez-vous été confronté à ce pb :
> range("D1").value=range ("A1").value marche quelque soit la taille du
> contenu de la cellule, mais range("D1:D2").value =
> range("A1:A2").value plante si la cellule A1 ou A2 possède un contenu
> de taille supérieure à 911 car.


j'ai fait le test je confirme
mais ne connais pas la cause ...
michdenis (27/10/2005, 15h27)
Bonjour Tutor,

Ton affirmation est for possible... je ne l'ai pas testé!

IL y a ceci pour s'en sortir :

For a = 1 to 4
Range("D" & a) = Range("A"& A)
Next

Salutations!

"tutor0" <tutor0> a écrit dans le message de news:849e
Auriez-vous été confronté à ce pb :
range("D1").value=range ("A1").value marche quelque soit la taille du
contenu de la cellule, mais range("D1:D2").value = range("A1:A2").value
plante si la cellule A1 ou A2 possède un contenu de taille supérieure à 911
car.
tutor0 (27/10/2005, 15h37)
Je suis Ok sur ta réponse, mais lorsque le nombre de cellules est important,
les perfs s'en ressentent

merci pour ta réponse
Jacky (27/10/2005, 15h47)
Bonjour,

Chez moi cela fonctionne sans problème.....ouff
Il y a aussi cela:
Sheets("Feuil1").Range("a1:a5").Copy Sheets("Feuil1").Range("c1")

Salutations
JJ

"michdenis" <michdenis> a écrit dans le message de
news:3244
[..]
Jacky (27/10/2005, 15h56)
Re...
Je retire mon ouff, ça plante aussi avec >911
Mais ceci fonctionne
Sheets("Feuil1").Range("a1:a5").Copy Sheets("Feuil1").Range("c1")

JJ

"Jacky" <nospam> a écrit dans le message de
news:3788
[..]
tutor0 (27/10/2005, 16h00)
si cela fonctionne chez toi, peux-tu me dire quelle est ta version d'excel
(la mienne est 2003). merci
michdenis (27/10/2005, 16h07)
Bonjour Tutor0)

| les perfs s'en ressentent

tu peux aussi utiliser ceci :

Dim Tblo As Variant
Tblo = Range("D1:D2").Value
Range("A1").Resize(UBound(Tblo, 1)) = Tblo

Salutations!

"tutor0" <tutor0> a écrit dans le message de news:2785
Je suis Ok sur ta réponse, mais lorsque le nombre de cellules est important,
les perfs s'en ressentent

merci pour ta réponse
Jacky (27/10/2005, 16h11)
J'ai retiré mon 'ouff' un peu plus haut, cela plante tout aussi joliment sur
xl97.
Excuse, j'ai lu trop vite....;o(
Cependant la copie fonctionne. Mais je ne sait pas si cela sera assez
performant dans ton cas.
JJ

"tutor0" <tutor0> a écrit dans le message de
news:2b04
[..]
Oliv' (27/10/2005, 16h18)
michdenis <michdenis> que je salut a écrit :
> Bonjour Tutor0)
>> les perfs s'en ressentent

> tu peux aussi utiliser ceci :
> Dim Tblo As Variant
> Tblo = Range("D1:D2").Value
> Range("A1").Resize(UBound(Tblo, 1)) = Tblo


désolé michdenis mais ca ne marche pas !
AV (27/10/2005, 16h36)
Juste pour info : Pas de souci avec XL2000

AV
michdenis (27/10/2005, 17h08)
Oui, tu as raison, même cette méthode semble liée à 911 caractères.

Salutations!

"Oliv'" <(supprimerceci)catteau> a écrit dans le message de news:3912

michdenis <michdenis> que je salut a écrit :
> Bonjour Tutor0)
>> les perfs s'en ressentent

> tu peux aussi utiliser ceci :
> Dim Tblo As Variant
> Tblo = Range("D1:D2").Value
> Range("A1").Resize(UBound(Tblo, 1)) = Tblo


désolé michdenis mais ca ne marche pas !
Discussions similaires