Worksheet_Change(ByVal Target As Range)

Bonjour à tous!!

J'ai une erreur d'exception b et incompatibilité de type sur le code suivant quand je veux "étirer" la cellule sur plus d'une cellule à la fois pour copier son contenu sur une colonne , même chose si j'efface plus d'une cellule à la fois.

En gros je tape "x" dans une cellule la macro s'exécute (là pas de probléme) puis je selectionne la cellule avec le x et je l'étire et là BUG

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim dd As String
    Select Case Target.Value
       Case Is = "x"
            Target.Interior.ColorIndex = 6 'jaune

                            dd = InputBox("entrer un nom ")
                            Target.Value = "x" & " " & dd
    End Select
    End Sub

Je suis perdu , si quelqu'un à une astuce je suis vraiment preneur.

Merci de votre aide

greg

ps: j’espère avoir été clair dans mes explications

Bonjour Greg, bonjour le forum,

Peut-être comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim dd As String
Dim CEL As Range

For Each CEL In Target
    Select Case CEL.Value
        Case Is = "x"
            Target.Interior.ColorIndex = 6 'jaune
            dd = InputBox("entrer un nom ")
            Target.Value = "x" & " " & dd
    End Select
Next CEL
End Sub

Bonjour à tous,

Merci TauThème, çà fonctionne super bien , vraiment merci!!

sujet résolu(elle est ou la case à cocher "résolu")