VBA Range(cells(...).value=Range(cells(...).v Résolu

Question

Bonjour a tous,

Voila j'ai un probleme tout a fait similaire,

Lorsque j'écris :
NewSite.Cells(3, 3).Value = Data.Sheets("Summary Contacts").Cells(i, 5).Value

ma macro fonctionne mais lorsque j'écris:
NewSite.Range(Cells(7, 3), Cells(7, 7)).Value = Data.Sheets("Summary Contacts").Range(Cells(i, 10), Cells(i, 14)).Value

Elle ne fonctionne pas je ne comprends pas pourquoi?
Quelqu'un aurai une idée?

Mon message d'erreur est:

Run-time error '1004':
Application-defined or object-defined error

Merci d'avance


Configuration: Windows XP / Firefox 9.0.1

michel_m · Accepted Answer

Bonjour
NewSite.Range(Cells(7, 3), Cells(7, 7)) = Data.Sheets("Summary Contacts").Range(Cells(i, 10), Cells(i, 14)).Value 
ou
NewSite.Range("C3").resize(1,4)= Data.Sheets("Summary Contacts").Range(Cells(i, 10), Cells(i, 14)).Value

chossette9 · Answer

Bonjour, 

lermite a donné la réponse ici.

Cordialement.

lermite222 · Answer

Oui, Suis pas encore bien réveillé :-)  
Tu fais idem mais tu supprime transpose.  
Data.Sheets("Summary Contacts").Range(Cells(i, 10),  _
Cells(i, 14)).Copy NewSite.Cells(7, 3)
En une seule ligne 
A+  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.

Mrfrize · Answer

Ba en faite j'aime pas trop les copier colé,

Ca marche avec:
NewSite.Range("C7:G7").Value = Data.Sheets("Summary Contacts").Range("J" & i & ":" & "N" & i).Value

Mais pourquoi quand j'essaye avec une expression avec des cellules ca ne marche pas?

pilas31 · Answer

Re -Bonjour, 

Au risque d'épaissir encore le mystère j'ai fait quelques tests. 
Je pense que c'est le compilateur VBA qui se mélange les pinceaux... 

Il perd la référence des cellules. Si on écrit comme cela: 

NewSite.Range(Cells(7, 3), Cells(7, 7)).Value = Range(Data.Sheets("Summary Contacts").Cells(i, 10), Data.Sheets("Summary Contacts").Cells(i, 14)).Value  

Sa fonctionne chez moi !!! 

Cordialement,

pijaku · Answer

Bonjour,
Ya du beau monde ici...
Alors bonjour à tous!!

J'y vais de ma petite tentative...
Allez j'me lâche...

What about les blocs "With End With"...

With Data.Sheets("Summary Contacts")
    NewSite.Range(Cells(7, 3), Cells(7, 7)).Value = .Range(.Cells(i, 10), .Cells(i, 14)).Value
End With

<Mode Fainéant>J'ai pas testé moi par contre...... </Mode Fainéant>

gab33 · Answer

la reponse vient du fait que les Range du type Rnge(Cells(),Cells()) ne peuvent s'éffectuer que sur la feuille active, il suffit donc de faire un

This.WorkSheets("Summary Contacts").Activate avant tes commandes et voila

dockhams · Answer

slt,
Ecrire juste çà :
NewSite.Range("C" & 7 & ":" & "G" & 7).Value = Data.Sheets("Summary Contacts").Range("J" & i & ":" & "N" & i).Value

VBA Range(cells(...).value=Range(cells(...).v

8 réponses

Discussions similaires

Newsletters