PlageCellule1 = PlageCellule2 ???

Et bien j'utilise une fonction du type :

Private Function isSameRange(ByVal range1 As Range, ByVal
range2 As Range) As Boolean
Dim sRange1 As String
Dim sRange2 As String
sRange1 = range1.Address(, , , True)
sRange2 = range2.Address(, , , True)
isSameRange = sRange1 = sRange2
End Function

qui renvoit true si les deux ranges en param désignent
bien les même cellules (indépendamment de leur contenu).

la variable sRange1 = range1.Address(, , , True)
contient un truc du style "[Classeur1]Feuil1!$D$9:$D$10"

ça marche?

-----Message d'origine-----
Bonjour,

Je voudrais savoir s'il est possible de faire quelque
chose de ce genre :

PlageCellule1 = PlageCellule2

Car j'ai essayé de faire Range(Cells(i + 1, 1), Cells(i
+ 1, 7)) =

Range(Cells(i, 1), Cells(i, 7)) mais celà ne fonctionne
pas... J'aurais

voulu éviter de faire un Copy/Paste.

Merci d'avance.
--
@+
David


.

Salut Dah !

Peut-être que cela pourra t'aider à considérer que tu a nommer tes plages de
cellules !!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Tutu").Value = Range("Toto").Value
End Sub

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"DAH" <dah@anti.spam.fr> a écrit dans le message de
news:bjkpko$2303$1@biggoron.nerim.net...

Bonjour,

Je voudrais savoir s'il est possible de faire quelque chose de ce genre :
PlageCellule1 = PlageCellule2

Car j'ai essayé de faire Range(Cells(i + 1, 1), Cells(i + 1, 7)) > Range(Cells(i, 1), Cells(i, 7)) mais celà ne fonctionne pas... J'aurais
voulu éviter de faire un Copy/Paste.

Merci d'avance.
--
@+
David

Bonsoir DAH,

Un truc comme ceci pourrait peut être constituer le début d'une piste :

Sub egalite()
'copie chaque cellule de la plage toto deux colonnes plus loin
Dim laCel As Range
For Each laCel In Range("toto")
laCel.Offset(, 2).Value = laCel.Value
Next laCel
End Sub

--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"DAH" <dah@anti.spam.fr> a écrit dans le message de news:bjkpko$2303$1@biggoron.nerim.net...

Bonjour,

Je voudrais savoir s'il est possible de faire quelque chose de ce genre :
PlageCellule1 = PlageCellule2

Car j'ai essayé de faire Range(Cells(i + 1, 1), Cells(i + 1, 7)) > Range(Cells(i, 1), Cells(i, 7)) mais celà ne fonctionne pas... J'aurais
voulu éviter de faire un Copy/Paste.

Merci d'avance.
--
@+
David