Discussion :

[MicKRub]

Bonsoir la communauté,

Je me permet de vous (rererere)solliciter pour faire avancer mon projet de planning pour mon travail. (à la demande de mon chef)

Je souhaiterais créer une macro que j'assignerai a un raccourci clavier (ctrl + d) afin de remplacer les valeurs comprises dans la ligne sélectionnée.



Avec la mise en forme conditionnelle préalablement définie, les cellules vertes comprennent la lettre "j", les cellules noires la lettres "n", les cellules jaunes les lettres "rj", "rn" et "rw".

Avec la macro je souhaiterais que:

Après avoir sélectionné une partie de mon tableau (comme sur l'image), en faisant (ctrl + d) cela change les lettres ci-dessus par la lettre "d" correspondant à une cellule vide avec bordures. (MFC)

Est-ce que quelqu'un d'entre-vous pourrait m'aider?

Merci beaucoup.

[Menhir]

Tu veux faire une macro VBA pour remplacer trois touches ???
Outre le fait que ça semble disproportionné, ne crois-tu pas qu'il est peu judicieux pour un gain si faible d'introduire dans ton application un élément que tu ne maitriseras pas ?

Dans compter que Ctrl+D est déjà affecté à la recopie vers le bas.
Mieux vaudrait utiliser un bouton pour déclencher la macro.

Enfin... si ça peut te faire plaisir :

Code :

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

Selection.Value = "d"

[MicKRub]

Tu veux faire une macro VBA pour remplacer trois touches ???
Outre le fait que ça semble disproportionné, ne crois-tu pas qu'il est peu judicieux pour un gain si faible d'introduire dans ton application un élément que tu ne maitriseras pas ?

Dans compter que Ctrl+D est déjà affecté à la recopie vers le bas.
Mieux vaudrait utiliser un bouton pour déclencher la macro.

Enfin... si ça peut te faire plaisir :

Code :

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

Selection.Value = "d"

La feuille comporte le planning de l'année 2018 complète sur 40 lignes (pour le personnel)

Ce que je souhaiterai faire c'est que lorsque je sélectionne un bout de ligne et que je lance la macro, cela change (dans la sélection) les lettres j,n,rj.rn,rw par la lettre d.

Bon cela ne marche pas...

Code :

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

1
2
3
4
 
If Selection.Value = "j" Or Selection.Value = "n" Or Selection.Value = "rj" Or Selection.Value = "rn" Or Selection.Value = "rw" Then
    Selection.Value = "d"
End If

Après peu importe le moyen de lancer la macro, bouton ou raccourci clavier.

Merci de votre aide.

Salutations

[Menhir]

Ce que je souhaiterai faire c'est que lorsque je sélectionne un bout de ligne et que je lance la macro, cela change (dans la sélection) les lettres j,n,rj.rn,rw par la lettre d.

Bon cela ne marche pas...

Code :

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

1
2
3
If Selection.Value = "j" Or Selection.Value = "n" Or Selection.Value = "rj" Or Selection.Value = "rn" Or Selection.Value = "rw" Then
    Selection.Value = "d"
End If

Le code que je t'ai donné fonctionne. Teste-le et tu pourras le constater.

Par contre, tu n'avais pas indiqué que tu ne voulais changer que les cellules ayant déjà un contenu.
Et le test que tu as écris pour le faire ne peut pas fonctionner puisque Selection est une plage (et non une cellule individuelle). Donc, quand tu en demande la valeur, ça ne donne la valeur que de la première cellule.

Essaye ça :

Code :

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

1
2
3
4
Dim CC As Range
For Each CC in Selection
    If CC.Value = "j" Or CC.Value = "n" Or CC.Value = "rj" Or CC.Value = "rn" Or CC.Value = "rw" Then CC.Value = "d"
Next CC

[MicKRub]

Le code que je t'ai donné fonctionne. Teste-le et tu pourras le constater.

Par contre, tu n'avais pas indiqué que tu ne voulais changer que les cellules ayant déjà un contenu.
Et le test que tu as écris pour le faire ne peut pas fonctionner puisque Selection est une plage (et non une cellule individuelle). Donc, quand tu en demande la valeur, ça ne donne la valeur que de la première cellule.

Essaye ça :

Code :

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

1
2
3
4
Dim CC As Range
For Each CC in Selection
    If CC.Value = "j" Or CC.Value = "n" Or CC.Value = "rj" Or CC.Value = "rn" Or CC.Value = "rw" Then CC.Value = "d"
Next CC

Merci cela fonctionne parfaitement.

Salutations

[Philippe Tulliez]

Bonjour,
Autre approche avec Select Case qui me semble plus simple à maintenir qu'une suite de Or

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Change()
 Dim CC As Range
 For Each CC In Selection
   Select Case CC.Value
     Case "j", "n", "rj", "rn", "rw"
      CC.Value = "d"
   End Select
 Next
 Set CC = Nothing
End Sub

et si l'on veux s'affranchir de la casse et des caractères espacés souvent cause de problèmes lors d'encodage manuel.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Change2()
 Dim CC As Range
 For Each CC In Selection
   Select Case LCase(Trim(CC.Value))
     Case "j", "n", "rj", "rn", "rw"
      CC.Value = "d"
   End Select
 Next
 Set CC = Nothing
End Sub