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