VBA Excel probleme avec des range

Résolu

Mrfrize Messages postés 188 Date d'inscription Statut Membre Dernière intervention -
Mrfrize Messages postés 188 Date d'inscription Statut Membre Dernière intervention - 2 févr. 2012 à 11:18

Bonjour,

Voici mon probleme, je dois juste recopier des valeurs d'un fichier a un autre.
Voici mon code mais il ne marche pas je ne sais pas pourquoi. Toutes mes cellules collées sont égal a ""

Pricing_sheet.Sheets("Pricing Sheet").Range("C11:C13").Value = database.Sheets("Cables").Range("A2:A4")

Alors que lorsque je fais cellule par cellule ca marche:

Pricing_sheet.Sheets("Pricing Sheet").Cells(11, 3).Value = database.Sheets("Cables").Cells(2, 1)

Quelqu'un a une idée de pourquoi ca ne marche pas? Merci d'avance

A voir également:

VBA Excel probleme avec des range
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Déplacer colonne excel - Guide
Si ou excel - Guide
Excel compter cellule couleur sans vba - Guide

4 réponses

Réponse 1 / 4

pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention 645

Bonjour,

Il manque peut-être un .value à la fin :

Pricing_sheet.Sheets("Pricing Sheet").Range("C11:C13").Value = database.Sheets("Cables").Range("A2:A4").Value

A tester
Cordialement,

Réponse 2 / 4

Mrfrize Messages postés 188 Date d'inscription Statut Membre Dernière intervention 6

Exactement c'était ca mais du coup je ne comprends pas pourquoi avec les cells ca marche sans .value

Pricing_sheet.Sheets("Pricing Sheet").Cells(11, 3).Value = batabase.Sheets("Cables").Cells(2, 1)

Quelqu'un a une explication?

Encore merci

chossette9 Messages postés 4239 Date d'inscription Statut Contributeur Dernière intervention 1 311

Bonjour,

c'est sûrement parce que la fonction de base associée à .Cells est .Value, ce qui n'est pas le cas avec les Range.

Mrfrize Messages postés 188 Date d'inscription Statut Membre Dernière intervention 6

OK merci

Réponse 3 / 4

Mrfrize Messages postés 188 Date d'inscription Statut Membre Dernière intervention 6

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

Réponse 4 / 4

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
Tu aurais dû ouvrir un autre poste.
Mais bon, je vais quand même y répondre.
Tu ne peu pas transposer la copie de ligne en colonne de cette façon.
Essaye avec..

Data.Sheets("Summary Contacts").Range(Cells(i, 10), Cells(i, 14)).Copy
NewSite.Cells(7, 3).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True

Si ça ne va pas, ouvre une nouvelle question.
A+

Mrfrize Messages postés 188 Date d'inscription Statut Membre Dernière intervention 6

Je viens d'ouvrir un nouveua sujet
https://forums.commentcamarche.net/forum/affich-24350349-vba-range-cells-value-range-cells-v#p24350349

Je ne transpose pas je copie une ligne et cela reste une ligne.

Discussions similaires

input signal out of range

comment désactiver out of range

Votre réponse

Discussions similaires