simplification VBA

[magalie]

bonjour à tous et à toutes
pouvez-vous me dire comment simplifier le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$F$5" Then
Range("G5:K5") = ""
With Range("G5:K5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Target.Value
End With

ElseIf Target.Address = "$F$6" Then
Range("G6:K6") = ""
With Range("G6:K6").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Target.Value
End With

ElseIf Target.Address = "$F$7" Then
Range("G7:K7") = ""
With Range("G7:K7").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Target.Value
End With


End If
End Sub

dans cet exemple ne sont pris en compte que de F5 à F7
et de G5 à K5 , G6 à K6 et G7 à K7

j'aimerais pouvoir étendre de F2 à F100 par exemple
et de de G5 à K5 jusqu'à G100 à K100

merci d'avance

 

[PrinceCorwin]

Re : simplification VBA

Bonjour,
Peut être comme ceci :

If Not Intersect(Target, Range("F2:F100")) Is Nothing Then
    Range("G" & Target.Column & ":K" & Target.Column) = ""
    With Range("G" & Target.coumn & ":K" & Target.Column).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & Target.Value
    End With
End If

bonne journée

 

[magalie]

Re : simplification VBA

bonjour prince
je viens de mettre ton code mais cela ne fonctionne pas

 

[PrinceCorwin]

Re : simplification VBA

Re,

Désolé, je m'a trompé entre colonne et ligne. 🙄
Voici un meilleur code

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("F2:F100")) Is Nothing Then
    Range("G" & Target.Row & ":K" & Target.Row) = Empty
    With Range("G" & Target.Row & ":K" & Target.Row).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & Target.Value
    End With
End If
Application.EnableEvents = True
End Sub

En plus il ne faut pas oublier de bloquer évenements automatiques : application.enableevents

bonne journée

 

[magalie]

Re : simplification VBA

Peux-tu essayer avec mon fichier joint,il y a un problème mais je n'arrive pas à savoir quoi
merci

 

[PrinceCorwin]

Re : simplification VBA

J'ai collé le programme dans ton fichier.

BOnne journée

 

[magalie]

Re : simplification VBA

bonjour Prince
que faut-il faire pour la plage,j'ai essayé la validation de données sans succès
encore merci

 

[PrinceCorwin]

Re : simplification VBA

Yop,
Pour la plage, en ce moment, je dirai bien un gros pull en laine 😛

Je n'ai pas très bien saisie le sens de la question. La validation des données se fait automatiquement quans tu changes la valeur dans la callule "F" Quelquechose...

@+

 

[magalie]

Re : simplification VBA

peut-être en Martinique
dans la plage de G à k que faut-il faire pour voir le menu déroulant lié à la colonne F2:F100
ce n'est pas automatique ?

 

[PrinceCorwin]

Re : simplification VBA

Bonjour,
Je viens d'écrire un grand discour que j'éfface.

🙂