Attribuer une valeur par défaut dans une cellule

Bonjour à tous,

J'ai un bout de macro qui m’intéresse, elle permet d'ajouter une valeur défini dans des cellules vides.

Je souhaite l'adapter, pour choisir une plage de début jusqu’à la fin de mon tableau qui est dynamique, mais je n'y arrive pas.

Pouvez-vous m'aider ?

Merci beaucoup

Voici le code authentique :

    Dim cell As Object

' début du bloc For Each à dupliquer si vous souhaitez affecter des valeurs par défaut différentes à plusieurs cellules.

    For Each cell In range("A1:B10") ' plage de cellules concernée par la valeur par défaut.

        If cell = "" Then

            cell = "--" ' à remplacer par la valeur par défaut de votre choix.

        End If

    Next cell

Voici mes modifications :

Dim cell As Object ' début du bloc For Each à dupliquer si vous souhaitez affecter des valeurs par défaut différentes à plusieurs cellules.
     For Each cell In Range("Q3:R" & Rows.Count).End(xlUp)

     ' plage de cellules concernée par la valeur par défaut.

        If cell = "" Then

            cell = "--" ' à remplacer par la valeur par défaut de votre choix.

        End If

    Next cell

Salut Tony,

Dim rCel As Range
For Each rCel In Range("Q3:R" & Range("Q" & Rows.Count).End(xlUp).Row)
    If rCel = "" Then _
        rCel = "--"
Next

A+

Salut curulis57,

Merci pour ta réponse rapide, malheureusement j'obtiens la même que mon test, il me rempli les deux premières lignes de la colonnes Q et R.

Alors qu'il devrait remplir de la ligne 3 à 10, voici un PJ un fichier d’exemple.

Merci encore pour ton aide.

Oups, je suis trop nul, j'ai pas modifier mon range, forcement il prend pas la bonne commande ^^

Range("Q3:R" & Range("l" & Rows.Count).End(xlUp).Row)

Merci pour ton aide, c'est bon pour moi

Salut Tony,

encore eut-il fallu que l'on sache que les colonnes [Q:R] étaient les colonnes-miroir de [L:M], n'est-ce pas !!

Dim rCel As Range
'
For Each rCel In Range("Q3:R" & Range("L" & Rows.Count).End(xlUp).Row)
    If rCel = "" Then rCel = "--"
Next

A+

Edit ; je viens de voir que tu as trouvé la réponse !