Discussion :

[skank951]

Bonjour à tous,

j'aurais besoin de vos lumières, svp!!!
Voilà mon problème, je voudrais écrire à la fin de la colonne B le champs "total" dans toutes les feuilles de mon classeur excepté la feuille 1.
Cependant, la longueur des colonnes B est variable, car chaque feuille est créer à partir d'un fichier généré en fin de moi.
J'ai déjà fait ce code, mais il écrit "total" seulement dans la feuille active et non pas dans toutes les feuilles exceptée la "feuil1".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub toto()
    Dim feuille As Worksheet
 
 
    For Each feuille In Worksheets
        If feuille.Name <> "Feuil1" Then
            Range("B100").Select
            Selection.End(xlUp).Offset(1, 0).Select
            ActiveCell.FormulaR1C1 = "Total:"
            With ActiveCell.Characters(Start:=1, Length:=6).Font
            .Name = "Calibri"
            .FontStyle = "Gras"
            .Size = 11
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .Color = -16776961
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontMinor
            End With
        End If
    Next feuille
End Sub

Dans ce code, je commence à la ligne B100 et parcours la colonne B pour savoir quand elle se termine.

Merci de votre aide

[MarcelG]

Bonsoir,

Tu balaies les noms de feuille mais tu ne changes pas de feuille active
Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub toto()
    Dim feuille As Worksheet
 
 
    For Each feuille In Worksheets
        If feuille.Name <> "Feuil1" Then
            feuille.Range("B100").End(xlUp).Offset(1, 0).FormulaR1C1 = "Total:"

De plus, une notion de base de Vba reste que tu n'as pas besoin de sélectionner un objet Range pour y appliquer une méthode ou une propriété
contrairement à ce que te donne l'enregistreur

Cordialement

Marcel

[MarcelG]

Rebonsoir,

Autre chose,
Comme pour les mises en pages, et autres, les propriétés Font données par l'enregistreur sont exclusives.
Leur écriture en VBA est donc parfois redondante. C'est mon impression ici.
Afin d'alléger ton code, et donc le rendre plus lisible, il vaut mieux n'écrire que les propriétés spécifiques que tu veux modifier.

Bonne soirée.

Marcel

[skank951]

Bonjour Marcel,

Nikel, ça fonctionne!! Merci pour ta réponse
Je commence sous VB, donc je n'ai pas encore tous les automatismes.
Je passe le post en résolu

Merci encore