XL 2019 Aide VBA écrire un texte dans cellules non vide

[elroro]

Bonjour à tous,
Etant novice en VBA j'aurais besoin d'un peut d'aide.
Je voudrais créer une macro.
Je m'explique:
Dans un classeur Excel j'ai une feuille (feuille3) dans laquelle il y a un tableau.
Dans ce tableau de A4 à G34 ainsi que M4:N34 & T4:U34 & AA4:AB34 & AH4:AI34 & AO4:AP34 & AV4:AW34 & BC4:BD34 & BJ4:BK34 & BQ4:BR34 & BX4:BY34 & CE4:CF34
Je voudrais remplacer toute les cellules qui contienne du texte par le mot OK
En fouillant à droite à gauche je trouve des morceaux de code mais ça ne fonctionne jamais !
Est ce que quelqu'un pourrais m'aider.
D'avance merci

 

[dg62]

Bonjour Elroro
Vous pouvez essayer cela pour la première plage

Sub ok()
Dim plage As Range
Dim c As Range
Set plage = Range("A4:G34")

For Each c In plage
If Not IsNumeric(c) Then c.Value = "OK"
Next

End Sub

 

[dg62]

Re
En mettant en feuil2 par exemple de A1 à A12 vos différentes plages

Sub ok()
Dim i As Integer
Dim plage As Range
Dim c As Range
Dim ref As String

For i = 1 To 12
ref = Sheets("Feuil2").Range("A" & i)
Feuil3.Activate
Set plage = Range(ref)

For Each c In plage
If Not IsNumeric(c) Then c.Value = "OK"
Next
Next i
End Sub

 

[elroro]

Un grand merci, ça fonctionne nickel