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

elroro · 26 Février 2020

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 · 26 Février 2020

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

VB:

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 · 26 Février 2020

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

VB:

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 · 26 Février 2020

Un grand merci, ça fonctionne nickel

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

elroro

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

dg62

XLDnaute Barbatruc

Pièces jointes

elroro

XLDnaute Nouveau