test presence d une feuille

[bracq]

Rebonjour,
je voudrais faire un test pour savoir si une feuille est presente ou pas: du style:

If sheets("") exist then
...

merci

 

[@Christophe@]

Bonjour

Voici un petit fichier qui teste l'exitence de ta feuille

@Christophe@

 

[bracq]

merci pour ton programme mais mon probleme est de tester la presence d une feuille dans une boucle... en fait j ai 2 cas:
1- si cette feuille existe alors action
2- si cette feuille n existe pas alors autre action

le probleme dans ma boucle est que qd la feuille est presente la boucle tourne ss pb, mais des qu elle n est plus la il me fait une erreur car la feuille appellee n existe pas(normal). voici le bout de prog que j ai ecris:




Sub Transfer_5th_64kmh()

Dim i As Integer
Dim FeuilleExiste As Boolean

'On Error Resume Next

If FeuilleExiste = Sheets("5th 64 kmh").Name Then
For i = 3 To 1404
Sheets("ideal forces values").Cells(i, 21).Value = Sheets("5th 64 kmh"): Cells(i, 14).Value
Next i
Else: For i = 3 To 1404
Sheets("ideal forces values").Cells(i, 21).Value = Sheets("sources tabel").Cells(i, 99).Value
Next i
End If

 

[@Christophe@]

Re

Essaye plutôt de la façon suivante, cela devrait marché,

Option Explicit

Function FeuilleExiste(Nom$) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
Err.Clear
End Function

Sub Transfer_5th_64kmh()
Dim i As Integer

If FeuilleExiste("5th 64 kmh") = True Then
For i = 3 To 1404
Sheets("ideal forces values").Cells(i, 21).Value = Sheets("5th 64 kmh"): Cells(i, 14).Value
Next i
Else: For i = 3 To 1404
Sheets("ideal forces values").Cells(i, 21).Value = Sheets("sources tabel").Cells(i, 99).Value
Next i
End If
End Sub

Voila

@Christophe@

 

[bracq]

merci pour le coup de main.