macro pourn selectionner dans une autre feuille

[arturo]

Bonjour à tous
j'ai ce code qui repère l'intervalle entre la cellule "A2" et la dernière cellule qui contient quelque chose.
ça marche si je l'utilise dans la feuille où je l'ai enregistré:

Private Sub CommandButton1_Click()
Set LastCell = ActiveSheet.UsedRange.SpecialCells(xlLastCell)
Range(Range("A2"), LastCell).Select
Selection.ClearContents
End Sub

Par contre si je veux appliquer le code dans une autre feuille ça ne marche plus:

Private Sub CommandButton1_Click()
Sheets("Feuil2").Activate
Set LastCell = ActiveSheet.UsedRange.SpecialCells(xlLastCell)
Range(Range("A2"), LastCell).Select
Selection.ClearContents
End Sub

J'ai fait plusieurs essais mais je ne trouve pas la solution😕

Quelqu'un peut-il m'aider?
Merci

 

[Benjy]

Re : macro pourn selectionner dans une autre feuille

Passe par une macro.

Rentre ton code dans une macro et pour le code de ton bouton tu inscris " call nomdetamacro "

Sa devrait marcher ainsi.

 

[pierrejean]

Re : macro pourn selectionner dans une autre feuille

bonjour arturo

A tester:

Private Sub CommandButton1_Click()
 With Sheets("Feuil2")
   lastcell = .UsedRange.SpecialCells(xlLastCell)
  .Range(.Range("A2"), .Range("A" & lastcell)).ClearContents
 End With
End Sub

 

[gimli]

Re : macro pourn selectionner dans une autre feuille

Bonjour,
essaye ceci

Private Sub CommandButton1_Click()

Set LastCell = Feuil2.UsedRange.SpecialCells(xlLastCell)
Range(Range("A2"), LastCell).Select
Selection.ClearContents
End Sub

 

[arturo]

Re : macro pourn selectionner dans une autre feuille

merci mais malheureusement ni l'un ni l'autre marche

erreur d'exécution 1004

 

[arturo]

Re : macro pourn selectionner dans une autre feuille

J'ai la version 2003

 

[tototiti2008]

Re : macro pourn selectionner dans une autre feuille

Bonjour PierreJean, gimli, arturo, Benjy

un essai :

Private Sub CommandButton1_Click()
 With Sheets("Feuil2")
   Set lastcell = .UsedRange.SpecialCells(xlLastCell)
  .Range(.Range("A2"), lastcell).ClearContents
 End With
End Sub

 

[Benjy]

Re : macro pourn selectionner dans une autre feuille

Par contre si je veux appliquer le code dans une autre feuille ça ne marche plus:

Quand tu dis " sa ne marche plus ". Tu obtiens une erreur ou la macro s'execute mais ne fais rien sur la feuille 2 ?

 

[arturo]

Re : macro pourn selectionner dans une autre feuille

merci ça marche🙂

Bonne journée à tous et merci pour votre disponibilité

 

[arturo]

Re : macro pourn selectionner dans une autre feuille

C'est la version de Tototiti2008 qui marche.
Merci