nanoschmil
XLDnaute Nouveau
Bonjour,
Je me permets de m'adresser à vous, car après avoir "bidouillé" quelques heures, je ne m'en sors pas...
J'aimerai rédiger une macro qui modifie le contenu d'une cellule en fonction de la valeur introduite.
Exemple :
- si une personne introduit M 1, la cellule est validée, et rien ne se passe
- si une personne introduit 1, le "M" se rajoute automatiquement pour obtenir la valeur M 1
Sur base de codes trouvés sur internet, ça fait +/- cela, mais pour la ligne d'en dessous, et non la cellule active. Donc, si j'ai "1" en B2 et que je tape "1" en B1, B1 ne change pas, mais B2 devient "M 1"...
Voici mon code
Si jamais vous avez une idée, un grand merci à vous en avance
Je me permets de m'adresser à vous, car après avoir "bidouillé" quelques heures, je ne m'en sors pas...
J'aimerai rédiger une macro qui modifie le contenu d'une cellule en fonction de la valeur introduite.
Exemple :
- si une personne introduit M 1, la cellule est validée, et rien ne se passe
- si une personne introduit 1, le "M" se rajoute automatiquement pour obtenir la valeur M 1
Sur base de codes trouvés sur internet, ça fait +/- cela, mais pour la ligne d'en dessous, et non la cellule active. Donc, si j'ai "1" en B2 et que je tape "1" en B1, B1 ne change pas, mais B2 devient "M 1"...
Voici mon code
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B1:B9999")) Is Nothing Then
Dim CL As Range
For Each CL In Selection
If CL <> "" Then
If Left(CL, 2) <> "M " Then
CL = "M " & CL.Text
End If
End If
Next
End If
End Sub
Si jamais vous avez une idée, un grand merci à vous en avance