XL 2016 Recherche une lettre dans une ligne de 10 cases puis affectation d'un autre lettre aux autres cases

[Astyanax]

Bonjour,
j'ai presque tout dit dans le titre.
Voici mon problème :
j'ai une ligne de 10 cases A1 à J1 et sur cette ligne je ne peux placer une lettre spécifique qu'une seule fois.
Par ex : O
Si le O est détecté sur une des 10 cases, je dois affecter une autre lettre aux 9 cases restantes.
Par ex : X
Je ne vois pas trop comment trouver la bonne formule.
Si quelqu'un a une idée, merci

 

[JBARBE]

Bonjour à tous,
Il serait bon de savoir quel sont les 10 lettres spécifiques que tu veux mettre parmi beaucoup d'autre peut-être !
Peut-être que ces lettres se trouvent dans un tableau !
Un fichier serait le bienvenu dans ce cas !
Sinon il serait facile de mettre par exemple les 10 premières lettres de l'alphabet !
Bonne journée

 

[Astyanax]

Bonsoir Jbarbe,
il n'y a que 2 lettres 1 seul "O" et les neuf cases restantes avec un "X"

 

[JBARBE]

Re,
comme ça :

 

[Astyanax]

Oui comme cela mais bien sûr le "O" peut-être sur n'importe laquelle des autres cases

 

[JBARBE]

Re,
Tu veux une formule !
Là je ne comprends pas ce qui peut ce faire manuellement !
Quel est le but de ceci !
@+

 

[Astyanax]

C'est bien sûr une formule qui m'intéresse.
Le faire manuellement n'a aucun intérêt pour une demande sur ce forum.

 

[mapomme]

Bonjour @Astyanax, @JBARBE 🙂,

Pour ce que j'en ai compris...

 

[JBARBE]

C'est bien sûr une formule qui m'intéresse.
Le faire manuellement n'a aucun intérêt pour une demande sur ce forum.

Mais une formule à un objectif !
Si c'est pour positionner ton O à un endroit précis définitif, je n'en vois pas l’intérêt !
A moins de faire en sorte que ton O se promène dans un endroit quelconque (aléatoire) de A à J en appuyant sur une touche ( ça je ne sais pas faire mais il y a surment un bénévole pour le faire)
Bonjour mapomme !

 

[mapomme]

Re,

A moins de faire en sorte que ton O se promène dans un endroit quelconque de A à J

Et dans ce cas, @Astyanax, une formule ne saurait convenir. Une cellule pouvant difficilement contenir de temps en temps une formule et de temps en temps une constante.

 

[JBARBE]

Re,
Une proposition en cliquant sur le bouton OK pour voir le O se déplacer entre A et J !
Évidemment comme le dit mapomme une formule est a exclure !
Bonne soirée !

 

[Astyanax]

Je ne pensais pas que ma formulation portait à doute mais désolé.
Mapomme, ta solution est la bonne.
Euh ! elle est où ta formule ?

 

[mapomme]

Euh ! elle est où ta formule ?

Il n'y a pas de formule. C'est une procédure évènementielle qui se déclenche quand une cellule est modifiée.
On a accès au code avec les touches ALT+F11.
Le code de cette procédure est dans le module de code de la feuille "Feuil1". Le code de la procédure événementielle est: :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg, s$
  If Intersect(Range("a1:j1"), Target) Is Nothing Then Exit Sub
  Set xrg = Intersect(Range("a1:j1"), Target)(1, 1)
  s = LCase(xrg)
  Application.EnableEvents = False
  Range("a1:j1") = "X"
  If s = "o" Then Cells(1, xrg.Column) = "O"
  Application.EnableEvents = True
End Sub

Si tu le demandes, je peux commenter la procédure...

 

[Staple1600]

Bonsoir le fil

mapomme
Moi, j'ai une question (une vraie, une sérieuse)
Je peux te la poser?

 

[mapomme]

Moi, j'ai une question (une vraie, une sérieuse)
Je peux te la poser?

Sachant que je n'ai aucune obligation de réponse (je me méfie), pose la là, on verra... 🙂