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

[erbo59]

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]

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]

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 :

[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]

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é