formule qui ne marche pas (VBA

bansan · 10 Juin 2008

Bonjour

Je suis sous vista, j'ai differents poste qui n'ont pas tous vista....et actuellement quand j'ecris cette formule:

sub nomm()
For i = 1 To Sheets.Count
With Sheets(i)
.Select
.Name = [J3]
End With
Next i
end sub

Elle ne marche pas et me dit que j'ai tapé un mon de feuille non valide???

J'aimerais nommer chaque onglet que j'ai par la chaine de caracetere qui se trouve dans la cellule J3...

Merci

mromain · 10 Juin 2008

Re : formule qui ne marche pas (VBA

Bonjour bansan, bonjour le forum

Je te propose ça (à essayer) :

Code:

Public Sub nomm()
Dim curSheet As Excel.Worksheet
For Each curSheet In ThisWorkbook.Worksheets
    If curSheet.Range("J3").Value <> "" Then curSheet.Name = curSheet.Range("J3").Value
Next curSheet
End Sub

A+

bansan · 10 Juin 2008

Re : formule qui ne marche pas (VBA

merci eaucoup

formule qui ne marche pas (VBA

bansan

XLDnaute Junior

mromain

XLDnaute Barbatruc

bansan

XLDnaute Junior

Discussions similaires