Discussion :

[aziz1015]

Bonjour,

J'essaie de faire la somme d'une colonne contenant un libellé spécifique comme entête de colonne, mais j'ai un problème avec le type de la colonne qui est personnalisé, du coupe la somme ne fonctionne que quand je la change. Comment peut-on changer le type d'une colonne entière en "monétaire "avec comme monnaie "l'euro" ?

Merci d'avance pour votre aide

[Kimy_Ire]

Bonjour aziz1015,

C'est la journée des énoncés pourris... (Désolé ça tombe sur ton post...)
Ou alors je suis mal luné... (c'est peut-être possible ma foi... )

Bref, j'ai du mal à comprendre ce que tu souhaites... tu cherches à faire un somme conditionnelle ou juste un formatage ?

J'attends des explications plus claires.

Cordialement,
Kimy

[aziz1015]

C'est la journée des énoncés pourris... (Désolé ça tombe sur ton post...)

j'ai changé la discussion en oubliant de changer l'énoncer en fait

tu cherches à faire un somme conditionnelle ou juste un formatage ?

Juste un formatage de toute la colonne

Merci pour ton aide

[Kimy_Ire]

Je ne comprends pas... Sélection de la colonne > Accueil > Partie "Nombre" > Menu déroulant jusqu'à "Monétaire"
Qu'est-ce qui bloque ?

Cordialement,
Kimy

[aziz1015]

J'essaie d'automatiser complétement un travail manuel, et vu que je rencontre ce problème plusieurs fois, j'aimerais éviter de signaler à chaque fois à l'utilisateur qu'il doit changer le type de la colonne "toupou" dans tel ou tel onglet ! Cela entraînera des erreur à la longue !

Comprenez vous ce qui bloque ?

[Kimy_Ire]

Ton meilleur ami est donc l'enregistreur de macro !

Ca va te permettre d'établir une base te permettant de travailler et d'automatiser des tâches !

On trouve donc très facilement quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Columns("E:E").Select
    Selection.NumberFormat = "#,##0.00 $"
End Sub

Ainsi on peut établir :

Code :

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

1
2
3
4
5
6
7
Sub formatage()
 
With Worksheets("Feuil1")
    .Columns("E:E").NumberFormat = "#,##0.00 $"
End With
 
End Sub

Et puis ensuite :

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
Option Explicit
 
Sub formatage()
Dim oWksh As Worksheet
 
'Je passe sur toutes les feuilles de mon classeur
For Each oWksh In Worksheets
    With oWksh
        'Je retire les feuilles "ma_feuil1" et "ma_feuil2" du formatage - avec un "=" je les autorises
        If .Name <> "ma_feuil1" And .Name <> "ma_feuil2" Then
            .Columns("E:E").NumberFormat = "#,##0.00 $"
        End If
    End With
Next oWksh
 
End Sub

Voila ! =)

Cordialement,
Kimy

[aziz1015]

Merci beaucoup