Déclarer dans code VBA non d'onglet variable

[yoyobat]

Salut le forum,

Je suis confronté à un nouveau problème sur lequel je me casse les dents:
- je voudrais copier une plage de données d'une feuille avec un nom d'onglet variable dans une autre feuille avec un nom d'onglet fixe.

Le problème vient du fait que je ne connais pas à l'avance les noms des onglets.

Tout ce que je peux dire c'est que le nom se trouvera dans la cellule O2 de ma feuille à nom variable.

Ma macro arrive à trouver la plage de destination mais pas celle de départ.

Voici le code (mon fichier est vraiment trop lourd pour le mettre désolé):


Private Sub CommandButton1_Click() 'bouton "Copier"

Dim pl As Range 'déclare la variable pl (PLage)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
With Sheets(Range("O2").Value) 'prend en compte l'onglet
Set pl = Sheets(Range("O2").Value).Range("S25:S30") 'définit la plage pl
Set dest = Sheets("Comparatif BPE").Range("IV6").End(xlToLeft).Offset(0, 1) 'définit la cellule de destination
End With 'fin de la prise en compte de l'onglet "Feuil1"
pl.Copy dest 'copie la plage pl dans la cellule de destination

End Sub


Merci de votre aide.

Yoyobat

 

[DL_13]

Re : Déclarer dans code VBA non d'onglet variable

Bonjour,

essaye comme cela

Private Sub CommandButton1_Click() 'bouton "Copier"

Dim pl As Range 'déclare la variable pl (PLage)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
With Sheets(CStr(Range("O2"))) 'prend en compte l'onglet
Set pl = .Range("S25:S30") 'définit la plage pl
Set dest = Sheets("Comparatif BPE").Range("IV6").End(xlToLeft).Offset(0, 1) 'définit la cellule de destination
End With 'fin de la prise en compte de l'onglet "Feuil1"
pl.Copy dest 'copie la plage pl dans la cellule de destination

End Sub

Bonne Journée

 

[yoyobat]

Re : Déclarer dans code VBA non d'onglet variable

Salut DL_13,

Tout d'abord merci de te pencher sur le problème c'est sympa.

Malheureusement, cela ne marche toujours pas, il me trouve bien la destination mais il m'affiche #Ref dans les cellules de destination

Saurais-tu pourquoi ?? C'est comme si il ne me trouvait pas les cellules sources du copier/coller ??

Merci de ton aide.

Yoyobat

 

[yoyobat]

Re : Déclarer dans code VBA non d'onglet variable

Salutations !!

Help !!!!!