Considérer une lettre comme un chiffre

Bonjour à tous,

Tout d'abord je vous remercie de prendre le temps de lire ce poste.

J'aurais besoin d'un code qui transforme les lettres " X " de mon document en chiffre " 1 ", sur la plage suivante : des colonnes D à H (cela peut le faire aussi sur tout le document si la restriction à une plage spécifique est trop complexe à mettre en place).

Cela pourrait m'être extrêmement utile car j'ai mis en place une formule dans les colonnes L à Q.

Je vous remercie d'avance de nouveau pour votre aide qui m'est précieuse.

Passez une excellente journée,

Pauline

Bonjour,

Essaie :

Sub galopin()
Dim o As Range
For Each o In Range("D3:H3602")
If o = "x" Then o = 1
Next
End Sub

A+

Bonjour,

Trois possibilités, dites moi si ça vous convient.

Sur la feuille "Groupe Mixte", quand vous sélectionnez une cellule des colonne D à H, la cellule prend la valeur 1

Sur la feuille "Groupe scolaire", quand vous rentrer un "X" dans la cellule elle prend la valeur 1

enfin, dans la feuille que j'ai copié : aucune macro, simplement remplacer votre formule (exemple pour la cellule L3)

=SI(SOMME(D3:G8)=1;1;" ")

par la suivante(a adapter a chaque cellule des colonnes L à Q)

=SI(NB.SI(D3:G8;"x")=1;1;" ")

Cordialement