Discussion :

[niconiko]

Bonjour,

Je débute avec l'utilisation des macros.
Je ne les utilise que par Excel, le VBA est pour moi encore inaccessible (au vu de la complexité de l'outil)

Je souhaite que ma macro ait un remplissage, une police et affiche un chiffre dans une cellule.

J'arrive à créer la macro, j’arrive à l’exécuter si je l'applique à UNE seule cellule.

Mais, quand je sélectionne plusieurs cellules, que j’exécute la macro, seule la première cellule exécute la macro dans son intégralité.

Toutes les autres cellules selectionnées appliquent seulement le changement de remplissage et de police. Le chiffre disparait.

Pourriez-vous me venir en aide SVP?

Je remercie d'avance les personnes qui m'aideront.

Niconiko

[78chris]

Bonjour

Poste déjà le code d'autant que "un chiffre" est très vague...

Sans macro, il suffit de créer un style de cellule pour le format à appliquer à N cellules et de taper le chiffre et de valider par Control entrée pour le saisir dans les N cellules d'une sélection.

[niconiko]

Bonjour Chris,

Les chiffres que je souhaitent faire apparaitre sont simplement des chiffres de 1 à 10.
Chaque chiffre correspond à une tâche de travail de mon équipe.
Le but étant d'évaluer le temps passé à chaque tâche ...

Les raisons pour lesquelles je n'ai pas mis le code sont simples,... Je n'y comprends pas grand chose et ai peur que l'on m'explique qqch que je ne comprends pas!
Mais le voici ci-dessous:

Sub Macro6()
'
' Macro6 Macro
'

'
ActiveCell.FormulaR1C1 = "=1"
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10040319
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = -6736897
.TintAndShade = 0
End With
End Sub


Merci

[78chris]

Re

Comme je l'ai dit c'est très simple à faire manuellement : tu peux taper 1 dans une cellule, la mettre en forme, et tirer la poignée de recopie jusqu'à la ligne 10 en maintenant le bouton Control du clavier enfoncé et c'est fini...

Ton code me donne la même couleur de cellule et de police mais c'est peut-être du au thème. Voici néanmoins le code modifié pour faire une suite de nombre et mettre le format...

Prévu pour fonctionner à partir de la ligne 1 ou à la suite d'une série déjà numérotée.

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
Sub Macro6()
'
' Macro6 Macro
'
 
For Each cellule In Selection
    If cellule.Row = 1 Then x = 1 Else x = cellule.Offset(-1, 0).Value + 1
    cellule.Value = x
    With cellule.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 10040319
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    With cellule.Font
    .Color = -6736897
    .TintAndShade = 0
    End With
Next cellule
End Sub

[niconiko]

Re,

En effet, je sais que je peux simplement taper le chiffre dans une cellule, la mettre en forme et tirer la poignée.
Je souhaite utiliser les macros pour deux raisons :
- apprendre la technique en commençant par quelque chose de simple (ça dépend pour qui?)
- faciliter l'utilisation de mon futur document à mes agents (j'y inclurai des boutons par la suite) sans à avoir à faire une formation ou une explication trop compliquée.

Pour la formule que tu m'as donnée, je vois que celle-ci s'applique à toutes les cellules que je sélectionne.
Par contre, est-il possible que toutes les cellules que j'ai sélectionnée aient le même chiffre (1, dans ce cas) et non une série de chiffre qui commence par 1?

Je devrai ensuite reproduire la formule pour chacun des chiffres (un chiffre = un poste de travail)

Merci beaucoup

Niconiko

[78chris]

Re

Taper le chiffre dans la 1ère cellule concernée puis faire la sélection puis lancer la macro. Sinon il faudrait une boîte de dialogue pour demander la valeur...

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
Sub Macro6()
'
' Macro6 Macro
'
 
X = Selection(1, 1).Value
Selection.FormulaR1C1 = X
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 10040319
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    With Selection.Font
    .Color = -6736897
    .TintAndShade = 0
    End With
End Sub

[niconiko]

Bonjour,

Merci pour tout ça !!!

J'arrive presque à obtenir ce que je souhaite.

L'idéal serait que :

- je sélectionne la plage que je souhaite.
- je clique sur le bouton (que j'aurais créer) et instantanément les cellules sélectionnées se mettent en couleur avec le chiffre correspondant dans chacune d'entre elles.

Penses-tu que cela soit possible?

Merci

Niconiko

[78chris]

Bonjour

Rien ne t'empêche d'ajouter un bouton et de le lier à la macro : la macro fait ce que tu demandes.

Comme je l'ai indiqué, il faut qu'elle connaisse le chiffre à insérer puisque, si je reprends tes 1ers messages il peut varier, d'où le nécessité de lancer la macro après avoir saisi le chiffre voulu dans une cellule et sélectionné l'ensemble des cellules sur lesquelles doit agir la macro...

[jazzrock]

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
 
For Each cell In Selection
  cell.Value = "2"
Next
 
End Sub

C'est juste un exemple de base, après on peut compliquer la macro à loisir...

[niconiko]

MERCI JAZZROCK ET 78CHRIS,

Grâce à vous, j'ai pu créer le document que j'imaginais!

Pour info, voici la formule:

Sub FORMATION()
For Each cell In Selection
cell.Value = "9"
Next

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
End With
End Sub

[78chris]

Bonjour

Ce que je proposais permet de choisir le chiffre sans avoir à toucher au code.

Le tien nécessite de modifier le code à chaque fois qu'on veut autre chose que 9.

C'est un choix mais je voulais juste que tu comprennes la différence puisque ton objectif est d'apprendre...