aide pour une macro

[stephetsab]

Bonjour
J'ai un planning Excel avec 10 personnes à gérer. Chaque jour, il y a des codes ("S", "Sn", "J", "F", etc...) Une macro fait déjà un boulot : lorsque je tape "S", la case se colore en jaune et affiche le "S" idem pour "Sn", en bleu pour "J" etc...
Je recherche une macro qui , en un clique de bouton, efface tout le contenu des cases autres que "S", "Sn" . Bref, ne resterai visible que les "S" et "Sn".
Puis, un autres bouton avec lequel tous les "S" se tranforme en "2" et les "Sn" en 1
En résumé, un planning avec 3 affichages possible successif
Merci beaucoup par avance à tous les pros qui pourront m'aider
STF 🙂

 

[SergiO]

Re : aide pour une macro

Bonsoir stephetsab et bienvenue sur XLD,

Voici 2 codes à tester (plage à adapter)

Sub Efface()
Application.ScreenUpdating = False
For Each Cel In Range("A1:D10")
If Cel.Value = "S" Or Cel.Value = "Sn" Then
Cel.ClearContents
End If
Next Cel
Application.ScreenUpdating = True
End Sub

Sub Remplace()
Application.ScreenUpdating = False
For Each Cel In Range("A1:D10")
If Cel.Value = "S" Then
Cel.Value = 2
ElseIf Cel.Value = "Sn" Then
Cel.Value = 1
End If
Next Cel
Application.ScreenUpdating = True
End Sub

@+

 

[Cousinhub]

Re : aide pour une macro

Bonsoir stephetsab, sergio,
faut-il forcément 2 étapes?

sinon, essaie :

Sub Macro2()
With Range("A1:A" & [A65000].End(xlUp).Row)
    .Replace What:="Sn", Replacement:="1", LookAt:=xlWhole
    .Replace What:="S", Replacement:="2", LookAt:=xlWhole
    .SpecialCells(xlCellTypeConstants, 2).ClearContents
End With
End Sub

 

[fred65200]

Re : aide pour une macro

bonsoir le fil,

une autre solution,

Sub GarderSetSn()
For Each C In Selection
  If Not C.Value Like "S*" Then C.ClearContents
Next
End Sub
Sub Transforme()
For Each C In Selection
  If C.Value = "S" Then C.Value = 2
  If C.Value = "Sn" Then C.Value = 1
Next
End Sub

fred65200

 

[Cousinhub]

Re : aide pour une macro

Re-, le fil
à relire son énoncé, c'est peut-être pas ce qu'il veut....😱
Il voudrait peut-être :

- tableau original : des "S", "Sn", "J", "F", etc... partout
- 1 er clic : uniquement visible les "S", "Sn"
- 2 ème clic : ceux-ci remplacés par 2 ou 1
- 3 ème clic, on remet le couvert, tableau comme à l'origine

du moins, si après relecture, j'ai bien compris.
Si True, va falloir jouer avec les MEFC et Replace
Mais peut-être me trompai-je?
Bonne soirée

 

[Cousinhub]

Re : aide pour une macro

RE-,
un petit fichier de contournement,on met la taille de la police à 1, et etc.....
Surfit de mettre la Mefc qui va bien, et voili

 

[stephetsab]

Re : aide pour une macro

Avant toutes choses, un très très grand merci à tous !! J'ai essayé tous les codes et franchement, c'est très fort. Avec le peu d'info que j'ai pu vous donnez, vous m'avez tous fournis de très bonnes chose.
La personne qui se rapproche le plus de ce que je recherche et "bhbh". En effet, avec ce système pour passer de la phase 1 à la 2 à la 3 puis retour à la 1, c'est excellent.
ca tourne bien mais je vais surement me permettre de vous contacter par mail pour affiner cela....
Merci encore +++++

a+