Condition suivant valeur onglet

Citaro · 24 Novembre 2010

Bonjour au forum
Pour un classeur avec 10 feuilles numérotées de 1 à 10, comment mettre en a1 de chaque feuille une valeur si le nom de la feuille est pair ou impair?

Pierrot93 · 24 Novembre 2010

Re : Condition suivant valeur onglet

Bonjour,

regarde le code ci-dessous, à utiliser dans un module standard :

Code:

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A1").Value = IIf(ws.Name Mod 2 = 0, "PAIR", "IMPAIR")
Next ws
End Sub

bonne journée
@+

Edition : Bonjour Tibo🙂

Tibo · 24 Novembre 2010

Re : Condition suivant valeur onglet

Bonjour,

Un essai en passant par l'utilisation d'une macro fonction Excel 4 (fonctionne sur classeur enregistré) :

Insertion - Nom - Définir - Nom : Nom_feuille - Fait référence à :

Code:

=LIRE.CELLULE(32;Feuil1!A1)

Ensuite, dans une cellule, cette formule :

Code:

=MOD(DROITE(Numéro_feuille);2)

Retournera 1 si le n° de feuille est impair ou 0 s'il est pair

Si le nom de feuille est du texte (sans chiffre à la fin), la formule retourne #VALEUR!

Je te laisse incorporer l'ensemble dans ton fichier

@+

Edit : Bing ! Salut Pierrot 🙂

@+

Citaro · 24 Novembre 2010

Re : Condition suivant valeur onglet

Merci à vous pour votre aide, problème résolu

Condition suivant valeur onglet

Citaro

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Tibo

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

Discussions similaires

Condition suivant valeur onglet

Citaro

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Tibo

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency