Discussion :

[kinay44]

Bonjour,

Je tiens tout d'abord à dire que j'écume les forums pour trouver la solution à mon problème qui est le suivant:

Je suis actuellement en stage dans une entreprise qui possède un document excel d'une 20aines de feuilles qui contient le chiffrage de plusieurs éléments. Pour passer les appels d'offres, je dois (une fois les calculs de prix terminé) mettre les prix en blanc pour qu'ils n'apparaissent pas à l'impression (une touche impression est déjà programmé).
Faire sur 20 feuilles, une sélection sur 2 colonnes et une centaines de lignes pour changer manuellement la couleur est très chronophage!

Je voudrais donc faire une touche pour que quand elle est actionné, la couleur de mes cellules soit blanche!



En vous remerciant,

[Marc-L]

Bonjour, bonjour,

l'Enregistreur de macros est l'ami des débutants : il offre une base de code sur un plateau !

[kinay44]

j'arrive à faire un raccourci clavier pour blanchir, mais j'aimerais mettre un petit tableau ex: prix: (X/O)
le fait de mettre X changerai la couleur en blanc

Désolé, je débute dans excel


Merci dans tout les cas de ta réponse

[78chris]

Re

j'arrive à faire un raccourci clavier pour blanchir, mais j'aimerais mettre un petit tableau ex: prix: (X/O)
le fait de mettre X changerai la couleur en blanc

Désolé, je débute dans excel


Merci dans tout les cas de ta réponse

Pas compris ! Peux-tu préciser.

[Invité]

si tu utilise utilises un bouton pour imprimer pourquoi ne fais tu pas le traitement dans la commande click?

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
28
29
30
31
32
33
34
35
36
37
38
39
Sub Print_Click()
Blachier "A"
'Imprimer
Retablir "A"
End Sub
 
Sub Blachier(Col As String)
  With Columns(Col & ":" & Col).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
 
End Sub
Sub Retablir(Col As String)
 With Columns(Col & ":" & Col).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub

[Menhir]

l'Enregistreur de macros est l'ami des débutants : il offre une base de code sur un plateau !

Ainsi que le petit point d'interrogation qui permet d'accéder à l'aide développeur.

Pour passer un texte en blanc, il faut utiliser la propriété Color en tant que membre de l'objet Font, lui-même pouvant être une propriété de Range et ses différentes variantes (Cell, Row, etc.)

[kinay44]

merci pour vos réponses!
je testerai tout ça demain

sinon pour 78chris; j'aurais aimé un petit tableau dans lequel je choisi si je veux passer en blanc ou pas
si dans la case je met "X" ou Oui, ça passe en blanc sinon ça reste noir

j'espère être assez clair...


encore merci

[SfJ5Rpw8]

Bonsoir,

tu peu aussi faire cela simplement sans macro avec une mise en forme conditionnelle...

[Philippe Tulliez]

Bonjour,
Je ne peux qu'abonder dans le sens de bbil.
Tu places par exemple un contrôle formulaire ou ActiveX de type CheckBox (case à cocher) dans une feuille nommée [Paramètre] qui renvoie par la propriété Cellule liée à une cellule nommée par exemple [pBlind].
Dans la mise en forme conditionnelle tu places cette formule

Code :

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

=pBlind=VRAI

[78chris]

Bonjour

...
Faire sur 20 feuilles, une sélection sur 2 colonnes et une centaines de lignes pour changer manuellement la couleur est très chronophage!..

Si la structure est la même on peut le faire simultanément sur les 20 onglets et non 20 fois (sélection du 1er onglet, maintenir shift, clic sur nom du 20ème)

Un masquage de ces colonnes serait peut-être une autre piste...