Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

simplification VBA

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

magalie

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
Re : simplification VBA

Bonjour,
Peut être comme ceci :

Code: 
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
 
Vote positif 0 Vote négatif
Re : simplification VBA

Re,

Désolé, je m'a trompé entre colonne et ligne. 🙄
Voici un meilleur code
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
 
Vote positif 0 Vote négatif
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...

@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Validation des données avec VBA
2
Réponses
16
Affichages
537
pat66
P
G
  • Question Question
XL 2016 # MFC applicable selon valeur autre cellule Vba
Réponses
9
Affichages
747
TooFatBoy
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
S
  • Question Question
XL 2016 Problème dans la création d'une liste
Réponses
2
Affichages
498
Stéphane_1
S
M
  • Question Question
Microsoft 365 modifier un code
Réponses
1
Affichages
541
Dranreb
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
D
  • Résolu(e)
Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule
Réponses
8
Affichages
1 K
de_hanstrapp
D
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
817
thunder23
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
409
Ang3lina
A
P
  • Résolu(e)
Microsoft 365 Cellule avec liste déroulante ou pas, sous condition par macro
Réponses
5
Affichages
673
pat66
P
  • Question Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
823
ralph45
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
738
R3n0W
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
673
Etoto
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
  • Question Question
XL 2016 concerne la validation des données avec vba !?
Réponses
8
Affichages
922
Staple1600
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…