Selectionner les cellules de 1 ligne avec VBA Résolu/Fermé

Question

Bonjour, 

Voici ci-dessous, un code VBA que j'utilise actuellement et qui fonctionne très bien : 

Option explicit
-------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Oldvalue As String
Dim Newvalue As String

Application.EnableEvents = True

On Error GoTo Exitsub
If Target.Address = "$B$303" Then
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
    GoTo Exitsub
    Else: If Target.Value = "" Then GoTo Exitsub Else
        Application.EnableEvents = False
        Newvalue = Target.Value
        Application.Undo
        Oldvalue = Target.Value
        If Oldvalue = "" Then
            Target.Value = Newvalue
    Else
            Target.Value = Oldvalue & ", " & Newvalue
    End If
  End If
End If
Application.EnableEvents = True

Exitsub:
Application.EnableEvents = True

End Sub

Seul problème, est qu'il fonctionne uniquement sur la cellule $B$303
J'aurais besoin qu'il fonctionne également sur les cellules suivantes, à savoir : $C$303, $D$303, $E$303 etc...

Je suis vraiment nulle en VBA, ce serait fortement apprécié si l'un d'entre vous pouvait m'aider à modifier le code.

Merci d'avance pour votre aide
Salutations
Aldeberan


Configuration: Windows / Edge 89.0.774.45

f894009 · Answer

Bonjour,
Remplacez E303 par la derniere cellule de votre ligne
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("B303:E303")) Is Nothing Then
        Application.EnableEvents = True
        On Error GoTo Exitsub
        If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
            GoTo Exitsub
        ElseIf Target.Value = "" Then
            GoTo Exitsub
        Else
            Application.EnableEvents = False
            Newvalue = Target.Value
            Application.Undo
            Oldvalue = Target.Value
            If Oldvalue = "" Then
                Target.Value = Newvalue
            Else
                Target.Value = Oldvalue & ", " & Newvalue
            End If
        End If
    End If
Exitsub:
    Application.EnableEvents = True
End Sub

Orione · Answer

Bonjour,

C'est parfait! Je vous remercie infiniment.

Toute belle journée!

Selectionner les cellules de 1 ligne avec VBA

2 réponses

Discussions similaires