Problème de Code
Bonjour à tous,
Nouveau dans le VBA je commence tout doucement à me familiariser avec ce langage.
Cependant je bute sur une phase de codage depuis un petit moment.
Qui a pour but de me récupérer des données en fonction du nom d'onglet ou je me trouve :
Sub RemplissageTBD()
'Définition des Variables nécessaires
Dim LigneTBD As Integer
Dim magasin As String
Dim NMag As Integer
Dim MarcheTBD As String
'Codage des Variables
LigneTBD = 3
While LigneTBD < 122 'Tant que la cellule est remplie
Sheets("nom marche").Activate 'activation de la feuille marché
MarcheTBD = Sheets("nom marche").Cells(LigneTBD, 1)
magasin = Sheets("nom marche").Range("G3") 'Définition Nom Magasin
NMag = Sheets("nom marche").Range("H3") 'Définition Nom Magasin
With Sheets(magasin).Activate
Sheets(MarcheTBD).Cells(NMag + 4, 2).Offset(0, 1).Select
Range(ActiveCell, Cells(NMag + 4, 15)).Select
.Copy .Range(LigneTBD, 3) 'Copie Marché Entier
End With
ligne = ligne + 1 'Boucle sur l'ensemble des onglets
Wend
End Sub
Sheets(MarcheTBD).Cells(NMag + 4, 2).Offset(0, 1).Select
Range(ActiveCell, Cells(NMag + 4, 15)).Select
.Copy .Range(LigneTBD, 3) 'Copie Marché Entier
C'est en fait cette partie la qui me pose problème.
Le but est d'aller dans la feuille Marche TBD de sélectionner la cellule sur ma feuille avec un nom variable et de sélectionner les celulles a côté de celle ci.
Merci à vous
Bonjour
Le select de cellule ne peux se faire que sur une feuille active d'où ton problème tu essaye de faire un select alors que tu vient d'activer l'autre feuille .
un fichier serait nécessaire pour t'aider....
pourrais tu expliquer un peu plus dans le détails ce que tu souhaite faire et je pourrais t'aider a copier tes cellules d'une feuille a une autre (les plages de cellules a copier)
Fred