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

Résolu/Fermé

Vba

Mrfrize

Messages postés: 185
Date d'inscription: jeudi 20 septembre 2007
Statut: Membre
Dernière intervention: 17 août 2018

- 2 févr. 2012 à 11:16
Larry - 22 juil. 2015 à 21:44

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

A voir également:

Vba range cells
Range cells vba - Meilleures réponses
Range cells - Meilleures réponses
VBA Range(cells(...).value=Range(cells(...).v ✓ - Forum - VB / VBA
Vba range cells variable - Forum - Bureautique
Excel VBA range(cells(i,1),cells(i,100)).find ✓ - Forum - Excel
[Excel VBA] - Range(Cells et Sheets ✓ - Forum - Excel
Vba range(cells variable) ✓ - Forum - VB / VBA

8 réponses

Réponse 1 / 8

michel_m

Messages postés: 16570
Date d'inscription: lundi 12 septembre 2005
Statut: Contributeur
Dernière intervention: 26 mai 2022

3 280
2 févr. 2012 à 11:35

Bonjour

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

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

Mrfrize

Messages postés: 185
Date d'inscription: jeudi 20 septembre 2007
Statut: Membre
Dernière intervention: 17 août 2018

6
2 févr. 2012 à 11:41

Désoler, mais aucune des tes méthodes ne marche.

michel_m

Messages postés: 16570
Date d'inscription: lundi 12 septembre 2005
Statut: Contributeur
Dernière intervention: 26 mai 2022

3 280
2 févr. 2012 à 11:53

j'avais testé sur une maquette et ca marchait, sinon, je ne me serais pas permis de te proposer une solution

pilas31

Messages postés: 1823
Date d'inscription: vendredi 5 septembre 2008
Statut: Contributeur
Dernière intervention: 24 avril 2020

630
2 févr. 2012 à 11:56

Bonjour tout le monde,

C'est effectivement trés curieux . J'ai remarqué que cela fonctionne si on exécute la macro en étant positioné dans la feuille "Summary Contacts". Comme dit Lermite222 mystère !

lermite222

Messages postés: 8702
Date d'inscription: dimanche 8 avril 2007
Statut: Contributeur
Dernière intervention: 22 janvier 2020

1 193
2 févr. 2012 à 12:00

Bonjour Michel,
OK, chez moi ça fonctionne aussi.
A+

Mrfrize

Messages postés: 185
Date d'inscription: jeudi 20 septembre 2007
Statut: Membre
Dernière intervention: 17 août 2018

6
2 févr. 2012 à 12:14

Chez moi ca ne marche toujours pas ca me mets la meme erreur. la seul chose qui marche c'est:
NewSite.Range("C7:G7").Value = Data.Sheets("Summary Contacts").Range("J" & i & ":" & "N" & i).Value

Mais j'aimerai bien savoir pourquoi les autres solutions ne marche pas chez moi.

Réponse 2 / 8

pijaku

Messages postés: 12257
Date d'inscription: jeudi 15 mai 2008
Statut: Modérateur
Dernière intervention: 3 septembre 2021

2 695
2 févr. 2012 à 12:43

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>

lermite222

Messages postés: 8702
Date d'inscription: dimanche 8 avril 2007
Statut: Contributeur
Dernière intervention: 22 janvier 2020

1 193
2 févr. 2012 à 13:12

Salut Pijaku,
Ça c'est vraiment le mode... comme tu dis. :-)

Réponse 3 / 8

chossette9

Messages postés: 4239
Date d'inscription: lundi 20 avril 2009
Statut: Contributeur
Dernière intervention: 12 septembre 2014

1 310
2 févr. 2012 à 11:18

Bonjour,

lermite a donné la réponse ici.

Cordialement.

Mrfrize

Messages postés: 185
Date d'inscription: jeudi 20 septembre 2007
Statut: Membre
Dernière intervention: 17 août 2018

6
2 févr. 2012 à 11:20

Oui mais comme je l'ai dis dan sl'autre sujet je ne transpose pas. Ce sont des cellules cote a cote qui reste cote a cote apres.

Réponse 4 / 8

Mrfrize

Messages postés: 185
Date d'inscription: jeudi 20 septembre 2007
Statut: Membre
Dernière intervention: 17 août 2018

6
2 févr. 2012 à 11:29

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?

lermite222

Messages postés: 8702
Date d'inscription: dimanche 8 avril 2007
Statut: Contributeur
Dernière intervention: 22 janvier 2020

1 193
2 févr. 2012 à 11:41

Effectivement, ça marche pas avec Cells !! mystère d'Excel !!
Par contre, avec copy ça fonctionne.

Réponse 5 / 8

pilas31

Messages postés: 1823
Date d'inscription: vendredi 5 septembre 2008
Statut: Contributeur
Dernière intervention: 24 avril 2020

630
Modifié par pilas31 le 2/02/2012 à 12:20

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,

Mrfrize

Messages postés: 185
Date d'inscription: jeudi 20 septembre 2007
Statut: Membre
Dernière intervention: 17 août 2018

6
2 févr. 2012 à 12:28

Ok donc pour plus de sécurité il vaux mieux jamais écrir avec les Cells dans un Range comme ca on est sur que ca marche.

Discussions similaires

Range en VB Excel C'est quoi exactement ?

VBA Excel : sélection d'une plage variable

VBA: Range avec variable

excel macro cells et range

VBA : Sélectionner une plage de cellules

Sites fiables pour achat de batteries ?

Discussions similaires

Newsletters