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

Résolu/Fermé

Mrfrize Messages postés 188 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 28 novembre 2023 - 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:

Cells vba
Cells.value - Meilleures réponses
Vba range = range - Meilleures réponses
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

8 réponses

Réponse 1 / 8

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 188 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 28 novembre 2023 6
2 févr. 2012 à 11:41

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Réponse 2 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
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 190
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 305
2 févr. 2012 à 11:18

Bonjour,

lermite a donné la réponse ici.

Cordialement.

Mrfrize Messages postés 188 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 28 novembre 2023 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 188 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 28 novembre 2023 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 190
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 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
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 188 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 28 novembre 2023 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

VBA Excel : sélection d'une plage variable

[Excel VBA] - Range(Cells et Sheets

Excel VBA range(cells(i,1),cells(i,100)).find

Problème RANGE(cells(),cells())

Fonction Cell en VBA-excel

Range en VB Excel C'est quoi exactement ?

Discussions similaires

Newsletters