macro pourn selectionner dans une autre feuille

arturo · 28 Mai 2010

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 · 28 Mai 2010

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 · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

bonjour arturo

A tester:

Code:

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

gimli · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

Bonjour,
essaye ceci

arturo à dit:
Private Sub CommandButton1_Click()

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

arturo · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

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

erreur d'exécution 1004

arturo · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

J'ai la version 2003

tototiti2008 · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

Bonjour PierreJean, gimli, arturo, Benjy

un essai :

Code:

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

Benjy · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

arturo à dit:
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 · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

merci ça marche

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

arturo · 28 Mai 2010

Re : macro pourn selectionner dans une autre feuille

C'est la version de Tototiti2008 qui marche.
Merci

macro pourn selectionner dans une autre feuille

arturo

XLDnaute Nouveau

Benjy

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

gimli

XLDnaute Occasionnel

arturo

XLDnaute Nouveau

arturo

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Benjy

XLDnaute Occasionnel

arturo

XLDnaute Nouveau

arturo

XLDnaute Nouveau

Discussions similaires