Tout pres du but...

[lejaf]

🙂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..

 

[david84]

Re : Tout pres du but...

Bonsoir,
sans fichier, pas de test possible mais à tester :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range, Plage as Range
set Plage = application.union([K5:K100],[Q5:Q100])
If Not Intersect(Target,Plage) is nothing and 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

A+

 

[lejaf]

Re : Tout pres du but...

Bonsoir,
sans fichier, pas de test possible mais à tester :

A+

Bonsoir David,
Et tout d'abord, merci d'avoir pris du temps pour m'aider..
Malheureusement, ton code me donne toujours le même résultat... Ci-joint mon fichier..
Merci encore !

 

[Banzai64]

Re : Tout pres du but...

Bonjour

A vérifier

 

[lejaf]

Re : Tout pres du but...

Bonjour

A vérifier

Merci beaucoup, Banzai, cela fonctionne !!!
Génial, ce forum...