condition feuille exist

[mesnil2000]

Bonjour à tous,

Je souhaiterais insérer une condition :

si la feuille xxx existe alors incrémenter un compteur à 1, si elle est n'existe pas l'incrémenter à 0.

Merci à touts et à toutes par avance.

Juste une précision j'utilise excel97 (éh oui, encore !!!)

 

[Titi_Malembourg]

Salut,
Essaie :

For w in Worksheets
If w.name = 'xxxx' Then compteur = compteur + 1
Next w

Bonne journée.
Thierry.

Message édité par: Titi_Malembourg, à: 24/06/2005 09:29

 

[mesnil2000]

Merci pour ta réponse rapide chez moi cela ne fonctionne pas, mais mes connaissance en WBA étant très limitée ...

 

[PascalXLD]

Bonjour

Pour reprendre ce qu'a fait Titi

Dim w as worksheet
dim compteur as byte

For each w in worksheets
if w.name='xxx' then compteur=1
next

Bonne journée

 

[mesnil2000]

Merci pour ta réponse, j'ai voulu 'adapter' cette macro sans compteur en ajoutant juste un condition (incrémenter la cellule H4 du la feuille pointage à 1 si la feuille xxxx existe) et ça ne marche pas ...

As tu une solution ??

merci d'avance



Sub compteur()

Dim w As Worksheet

For Each w In Worksheets
If w.Name = 'xxxx' Then ActiveSheet=(Pointage).Range('H4')=1
Next

End Sub

 

[PascalXLD]

Re

essaies

Sub compteur()

Dim w As Worksheet

For Each w In Worksheets
If w.Name = 'xxxx' Then
Sheets('Pointage').Range('H4')=1
else
Sheets('Pointage').Range('H4')=0
end if
Next

End Sub

 

[mesnil2000]

Ça tourne !!!

Merci beaucoup !!!

Bonne journée

 

[mesnil2000]

ooops j'ai répondu trop vite ... la macro ne plante pas mais de s'incrémente pas à '1' lorsque la feuille existe ...

 

[PascalXLD]

re

excuse j'avais compris que tu voulais 1 dans H4 si elle existait ou 0 si elle n'existait pas

modifies comme cela alors

Sub compteur()

Dim w As Worksheet

For Each w In Worksheets
If w.Name = 'xxxx' Then Sheets('Pointage').Range('H4')=Sheets('Pointage').Range('H4') + 1
Next

End Sub

 

[mesnil2000]

Cest bien ce que je cherche à avoir : si la feuille 'xxx' existe alors la cellule h4 de la feuille pointage = 1 si non = 0

ta macro précédente indiquait toujouts une valeur 0 en h4 même si la feuille xxx existait

 

[PascalXLD]

Re

Bah oui l'abruti (je parle de moi) j'oubliais de sortir de la boucle

donc on essaie

Sub compteur()

Dim w As Worksheet

Sheets('Pointage').Range('H4')=0
For Each w In Worksheets
If w.Name = 'xxx' Then
Sheets('Pointage').Range('H4')=1
exit for
end if
Next

End Sub

Message édité par: Pascal76, à: 28/06/2005 11:22

 

[mesnil2000]

Tu te fais du mal quand tu dis ça ...

En tout cas, je te remercie vivement pour ton aide.

Bonne journée

 

[Bernard_XLD]

Bonjour Mesnil, Pascal76, le forum

une autre solution avec une fonction personnalisée inspirée d'un code de Ti sur les classeurs, cela évite une boucle de test.

Function Test_Feuille(ByVal NomFeuille$) As Integer
Dim Wsh As Worksheet
On Error GoTo Fin
Set Wsh = Worksheets(NomFeuille)
Test_Feuille = 1
Fin:
End Function

ce qui donne un code de proc

Sheets('Pointage').Range('H4')=Test_Feuille('xxx')

cette fonction peut être utilisée dans une cellule ou dans un code.

Cordialement, A+

Message édité par: yeahou, à: 28/06/2005 14:34

 

[mesnil2000]

Merci, très pratique cette fonction avec =Test_Feuille(TEXTE(xx;0)) dans la cellule et un petit coup de F9 et le tour est joué !!! (xx correspondant au nom de la feuille)

 

[Bernard_XLD]

re bonjour

tu peux faire également
=Test_Feuille(A1)
pour tester l'existence d'une feuille dont le nom est en A1

A+