VBA coller dans une cellule dont les coordonées sont donnée par une formule

erbo59 · 29 Octobre 2010

bonjour,
voici mon souci, je doit coller dans une cellule de la feuille BdD dont les coordonées me sont donnée par une formule située dans la cellule A1 de la feuille SAISIE qui me renvoie comme resultat 'BdD!'!$AP$2

Sheets("saisie").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Sheets("BdD").Select
Range("C2").Select <= je veux remplacer C2 par le contenu de A1 de la feuille SAISIE qui est 'BdD!'!$AP$2
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

j'espere avoir été assez clair

Merci

Bebere · 29 Octobre 2010

Re : VBA coller dans une cellule dont les coordonées sont donnée par une formule

bonjour erbo
à essayer
CelDest = Range("saisie!A1").Text
Sheets("saisie").Range("E2").Copy
Range(CelDest).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ou
CelDest = Range("saisie!A1").Text
Range(CelDest).Value = Sheets("saisie").Range("E2").Value

à bientôt

ROGER2327 · 29 Octobre 2010

Re : VBA coller dans une cellule dont les coordonées sont donnée par une formule

Bonjour erbo59, Bebere

Je ne crois pas qu'on puisse résoudre le problème si A1 de la feuille saisie est 'BdD!'!$AP$2.

Avec ="'BdD!'$AP$2" en A1 de la feuille saisie, on peut essayer :

Code:

[COLOR="DarkSlateGray"][B]Sub toto()
Dim x
  x = Split(Replace(Sheets("saisie").[A1].Value, "'", ""), "!")
  Sheets("saisie").Range("E2").Copy
  Sheets(x(0)).Range(x(1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub[/B][/COLOR]

ROGER2327
#4412

Mardi 24 Haha 138 (Saint Claude Terasse, musicien des Phynances, SQ)
8 Brumaire An CCXIX
2010-W43-5T10:34:57Z

erbo59 · 1 Novembre 2010

Re : VBA coller dans une cellule dont les coordonées sont donnée par une formule

bonjour, et Bebere

merci de vos reponse
avec vos 2 reponse j'ai reglé mon probleme

Roger2327 cest vrais qu'avec 'BdD!'!$AP$2 ca ne maché pas j'ai donc modifié ma formule pour qu'elle me renvoie AP2 qui une fois integré dans la macro de Bebere fonctionné

VBA coller dans une cellule dont les coordonées sont donnée par une formule

erbo59

Guest

Bebere

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

erbo59

Guest

Discussions similaires

VBA coller dans une cellule dont les coordonées sont donnée par une formule

erbo59

Guest

Bebere

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

erbo59

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency