Première lettre d'une cellule et condition

[pierrof]

Bonjour

J'aimerai à l'aide d'une macro, remplacer les valeurs des cellules en fonction de leur 1ère lettre.

Si la première lettre de la cellule est M alors remplacer la valeur par MD sinon ne rien faire.

Mon tableau peut varier en nombre de colonne.

Je laisse un petit fichier exemple.

Merci de vos explications

 

[phlaurent55]

Re : Première lettre d'une cellule et condition

Bonjour Pierrof

avec ce code

Private Sub CommandButton1_Click()
Dim cellule As Range
For Each cellule In Range("D2:D10")
If Left(cellule, 1) = "M" Then cellule = "MD"
Next cellule
End Sub

il reste à adapter la zone D210

à+
Philippe

 

[pierrof]

Re : Première lettre d'une cellule et condition

Merci de ta réponse

Je vais essayer de l'adapter