XL 2013 choix conditionnel de feuils

[SDHABARKA]

bonjour!
j'ai un fichier dans lequel le voudrais ajouter automatiquement des contenus différents à l'ouverture du classeurs.
en effet, je voudrais à l'ouverture du classeur que la macro s'exécute et qu'elle renseigne les feuils.
avec la Boucle For Each...Next pour parcourir les feuils avec la structure conditionnelle If
si le nom de la feuil est "feuil1", alors on exécuter un certains nombre d'instructions,
sinon si ce n'est pas le cas on exécute d'autres instructions.
Mais ça bloc dans le Elseif

voir fichier joint

 

[Phil69970]

Bonjour @SDHABARKA

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[sylvanu]

Bonsoir Adhabarka, Phil,
Ce n'est pas le ElseIf qui bloque mais la ligne d'après :

Sheets(xsh).Select Replace:=False

Qu'avez vous voulu faire ? La renommer ?

 

[SDHABARKA]

Bonsoir Adhabarka, Phil,
Ce n'est pas le ElseIf qui bloque mais la ligne d'après :

Sheets(xsh).Select Replace:=False

Qu'avez vous voulu faire ? La renommer ?

nom je voudrai dans le cas ou le nom de la feuil contenu dans le xsh est different de feuil 1,
y appliquer les instructions qui suivent

 

[SDHABARKA]

Bonjour @SDHABARKA

Je te propose ce fichier

Merci de ton retour

@Phil69970

Merci!

 

[sylvanu]

Re bonsoir,
Toutes les feuilles ont la même mise en forme à part 4 lignes, donc inutile de les dupliquer.
Un essai en PJ où la mise en forme est la même pour toutes les feuilles plus quelques lignes si ce n'est pas la feuille1.
Normalement ça devrait faire ce que vous voulez.

Public Sub Xtab()
Dim xsh As Worksheet
For Each xsh In Worksheets
    If xsh.Name = "Feuil1" Then
        MiseEnForme "Feuil1"    ' Mise en forme standard
    Else
        MiseEnForme xsh.Name    ' Mise en forme standard
        ' Plus ceci si ce n'est pas la feuille 1
        Sheets(xsh.Name).Range("G5").Value = "Date"
        Sheets(xsh.Name).Range("H5").Value = "Montant payé FCFA"
        Sheets(xsh.Name).Range("I5").Value = "Article"
        Sheets(xsh.Name).Range("J5").Value = "Quantité"
    End If
Next xsh
End Sub

 

[sylvanu]

Re,
En un petit peu mieux optimisé.

Public Sub Xtab()
Dim xsh As Worksheet
For Each xsh In Worksheets
    If xsh.Name = "Feuil1" Then
        MiseEnForme "Feuil1", "B3:F3", "A5:F5"  ' Mise en forme standard
    Else
        MiseEnForme xsh.Name, "B3:J3", "A5:J5"  ' Mise en forme standard
        ' Plus ceci si ce n'est pas la feuille 1
        T = Array("Nom", "Montant payé FCFA", "Article", "Quantité")
        Sheets(xsh.Name).Range("G5").Resize(1, 4).Value = T
    End If
Next xsh
End Sub

 

[Phil69970]

Re

Avec retard une autre manière de faire :

Merci de ton retour

@Phil69970

 

[SDHABARKA]

Re,
En un petit peu mieux optimisé.

Public Sub Xtab()
Dim xsh As Worksheet
For Each xsh In Worksheets
    If xsh.Name = "Feuil1" Then
        MiseEnForme "Feuil1", "B3:F3", "A5:F5"  ' Mise en forme standard
    Else
        MiseEnForme xsh.Name, "B3:J3", "A5:J5"  ' Mise en forme standard
        ' Plus ceci si ce n'est pas la feuille 1
        T = Array("Nom", "Montant payé FCFA", "Article", "Quantité")
        Sheets(xsh.Name).Range("G5").Resize(1, 4).Value = T
    End If
Next xsh
End Sub

ok merci