indice n'appartient pas sélection

JC de Lorient

XLDnaute Impliqué

• 28 Mai 2007

• #2

Re : indice n'appartient pas sélection

Salut tout le monde

Juste une petite erreur içi :
If ws.Name = Recap_Ecart Then
les guillemets !!!!
remplace par : If ws.Name = "Recap_Ecart" Then

Bon courage
JC

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 28 Mai 2007

• #3

Re : indice n'appartient pas sélection

Essayé mais ne fonctionne pas
Message imossible de renommer une feuille comme une aure feuille etc..

 

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 28 Mai 2007

• #4

Re : indice n'appartient pas sélection

Bonjour Hoareau, JC

Si j'ai bien pigé ton truc, essaies ceci

Sub Exist_Feuil()

Dim ws As Object
Sheets("Feuil2").Copy Before:=Sheets(1)
cptr = 1
For Each ws In Worksheets
ws.Name = "Recap_Ecart_" & cptr
'End If
cptr = cptr + 1
Next ws
End Sub

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 28 Mai 2007

• #5

Re : indice n'appartient pas sélection

cela fonctionne mais j'ai maintenant 3 feuilles Recap_Ecart_

je fais un double de feuil2 si Recap_Ecart existe, je veux que le double de feuille2 s'appelle Recap_Ecart_2
Sinon il s'appelle Recap_Ecart

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Mai 2007

• #6

Re : indice n'appartient pas sélection

bonjour Hoareau

Salut JC

Salut michel_m

pour ma part je verrais plutot:

Code:

Sub Exist_Feuil()
 
Dim ws As Object
Dim exist as Boolean
 
Sheets("Feuil2").Copy Before:=Sheets(1)
 
For Each ws In Worksheets
If ws.Name = "Recap_Ecart" Then
 exist=True
 exit for
End if
next ws
 
if exist then
Activesheet.Name = "Recap_Ecart_2"
Else
Activesheet.Name = "Recap_Ecart"
End If
 
End Sub

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 28 Mai 2007

• #7

Re : indice n'appartient pas sélection

Salut à tous,

Essaie cela (pour ne renommer qu'une feuille) :

Code:

Dim ws As Object
Sheets(2).Copy Before:=Sheets(1)
For Each ws In Worksheets
  On Error Resume Next
  If ws.Name <> "Recap_Ecart" Then
    Sheets("Feuil2 (2)").Name = "Recap_Ecart_2"
  Else
    Sheets("Feuil2 (2)").Name = "Recap_Ecart"
    Exit For
  End If
Next ws
End Sub

Si j'ai bien compris ta prococédure,michel, toutes les feuilles sont renommées !
@+

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 28 Mai 2007

• #8

Re : indice n'appartient pas sélection

Impecable

merci a tous

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Mai 2007

• #9

Re : indice n'appartient pas sélection

bonsoir

peux-tu preciser ce qui est impeccable S.T.P

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 28 Mai 2007

• #10

Re : indice n'appartient pas sélection

pierrejean mais l'aute macro va aussi me servir

 

Vote positif 0 Vote négatif