guigui1492
XLDnaute Nouveau
Bonjour,
Je suis nouveaux sur le forum, et j'ai un soucie en VBA j'ai cherché sur le forum une solution à mon problème mais sans success. Je me demandai si vous pouviez m'aider?
Je cherche à copier des cellules dans d'autres ( pour l'instant aucun probléme ) mais je veux passer par une feuille xls mapping (premiere ligne les cellules source et 2éme ligne les cellules destinations). Cette feuille me permet de ne pas modifier le code si jamais les correspondances ne sont pas bonnes mais de modifier la feuille.
J'avais pensé à un code de ce genre
Sub Test()
'on declare la variable comme une cell
Dim NomVariable As Range
'variable = la valeur de la cell b2 de la feuille 2 or dans B2 sheet2 on la valeur C3
NomVariable = Workbooks("book1").Sheets("Sheet2").Range("B2").Value
'on copie la cell "NomVariable" (soit c3) de sheet1 dans une cellule( sheet3 range A1)
Sheets("Sheet1").Range("NomVariable").Cells.Copy Workbooks("book1").Sheets("Sheet3").Range("A1")
End Sub
mais "Sheets("Sheet1").Range("NomVariable").Cells.Copy Workbooks("book1").Sheets("Sheet3").Range("A1")
" ne marche pas (ça aurait été trop beau). Pouvez-vous m'aider?
Merci
Cordialement
Je suis nouveaux sur le forum, et j'ai un soucie en VBA j'ai cherché sur le forum une solution à mon problème mais sans success. Je me demandai si vous pouviez m'aider?
Je cherche à copier des cellules dans d'autres ( pour l'instant aucun probléme ) mais je veux passer par une feuille xls mapping (premiere ligne les cellules source et 2éme ligne les cellules destinations). Cette feuille me permet de ne pas modifier le code si jamais les correspondances ne sont pas bonnes mais de modifier la feuille.
J'avais pensé à un code de ce genre
Sub Test()
'on declare la variable comme une cell
Dim NomVariable As Range
'variable = la valeur de la cell b2 de la feuille 2 or dans B2 sheet2 on la valeur C3
NomVariable = Workbooks("book1").Sheets("Sheet2").Range("B2").Value
'on copie la cell "NomVariable" (soit c3) de sheet1 dans une cellule( sheet3 range A1)
Sheets("Sheet1").Range("NomVariable").Cells.Copy Workbooks("book1").Sheets("Sheet3").Range("A1")
End Sub
mais "Sheets("Sheet1").Range("NomVariable").Cells.Copy Workbooks("book1").Sheets("Sheet3").Range("A1")
" ne marche pas (ça aurait été trop beau). Pouvez-vous m'aider?
Merci
Cordialement