🙂Bonjour,
J'ai un code Excel génial qui fait exactement ce que je veux. Le problème, c'est que ce code s'applique à toutes les cellules ayant une liste de validation de données de ma feuille. Or, j'en ai plein, et je voudrai uniquement ce code sur mes cellules à validation de données : K5:K100 et Q5:Q100
Voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
If Target.Count > 1 Then GoTo exitHandler
Application.EnableEvents = False
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
If Target.Value = "" Then GoTo exitHandler
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Target.Value
Else
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value _
& Chr(10) & Target.Value
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
MERCI 1000 fois de votre aide..
J'ai un code Excel génial qui fait exactement ce que je veux. Le problème, c'est que ce code s'applique à toutes les cellules ayant une liste de validation de données de ma feuille. Or, j'en ai plein, et je voudrai uniquement ce code sur mes cellules à validation de données : K5:K100 et Q5:Q100
Voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
If Target.Count > 1 Then GoTo exitHandler
Application.EnableEvents = False
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
If Target.Value = "" Then GoTo exitHandler
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = Target.Value
Else
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value _
& Chr(10) & Target.Value
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
MERCI 1000 fois de votre aide..