Modif Contenu Cellule conditionné par C

Bonjour,

Je recherche un Code une Macro qui va vérifier le contenu d'une colonne commençant par C et qui remplace automatiquement le contenu d'une autre cellule par S .

Col A Col D

Bonjour laisse le contenu de D initial

11222 laisse le contenu de D initial

Crabe remplace contenu de D par "S"

voiture laisse le contenu de D initial

Cellule remplace contenu de D par "S"

ainsi de suite, sachant que Col peux ainsi contenir jusqu"a 300000 lignes

Merci de votre support

Daniel

Bonjour

Essaie ça :

Sub Vérif()
    For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If UCase(Left(c.Value, 1)) = "C" Then
            c.Offset(0, 3) = "S"
        End If
    Next c
End Sub

Bye !

Merci c'est Excellent !!!! Comme je le voulais

Merci Merci Merci !!!!!!!!!!

Bonjour,

si le remplacement doit se faire dans la meme colonne, esc ce que

c.Offset(0, 3) = "S" devient c.Offset(0, 0) = "S"

Merci

Daniel

c.Offset(0,0) = "S"

Cela veut dire que dans la cellule décalée de zéro ligne et de zéro colonnne par rapport à la cellule c, on écrit : "S"

On peut l'écrire....mais c'est absurde ! Autant écrire :

c= "S"

Bye !

Merci !!!