XL 2013 choix conditionnel de feuils

SDHABARKA · 8 Octobre 2022

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

sylvanu · 8 Octobre 2022

Re,
En un petit peu mieux optimisé.

VB:

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 · 8 Octobre 2022

Bonjour @SDHABARKA

Je te propose ce fichier

Merci de ton retour

@Phil69970

sylvanu · 8 Octobre 2022

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

VB:

Sheets(xsh).Select Replace:=False

Qu'avez vous voulu faire ? La renommer ?

SDHABARKA · 8 Octobre 2022

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

VB:

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 · 8 Octobre 2022

Phil69970 à dit:
Bonjour @SDHABARKA

Je te propose ce fichier

Merci de ton retour

@Phil69970

Merci!

sylvanu · 8 Octobre 2022

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.

VB:

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 · 8 Octobre 2022

Re,
En un petit peu mieux optimisé.

VB:

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 · 9 Octobre 2022

Re

Avec retard une autre manière de faire :

Merci de ton retour

@Phil69970

SDHABARKA · 17 Octobre 2022

sylvanu à dit:

Re,
En un petit peu mieux optimisé.

VB:

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

XL 2013 choix conditionnel de feuils

SDHABARKA

XLDnaute Nouveau

Pièces jointes

sylvanu

Phil69970

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

SDHABARKA

XLDnaute Nouveau

SDHABARKA

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

SDHABARKA

XLDnaute Nouveau

Discussions similaires