XL 2021 Erreur d'exécution 424

Usine à gaz · 5 Février 2024

Bjr à toutes et à tous

Je n'arrive pas à coder comme il faut et j'ai :

J'ai besoin que le code s'exécute si clic ligne active cellules de J à S
Auriez-vous le bon code ?
Un grand merci à toutes et à tous

sylvanu · 5 Février 2024

Bonjour Lionel,
Essayez :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column > 9 And Target.Column < 20 Then
        MsgBox "ok"
    End If
End Sub

Franc58 · 5 Février 2024

Usine à gaz à dit:
Bjr à toutes et à tous

Je n'arrive pas à coder comme il faut et j'ai :
Regarde la pièce jointe 1190037
J'ai besoin que le code s'exécute si clic ligne active cellules de J à S
Auriez-vous le bon code ?
Un grand merci à toutes et à tous

Salut, c'est If NOT Intersect...

Usine à gaz · 5 Février 2024

Merci pour ce retour

Mais il ne veut pas :
erreur de compilation non ambigü détecté Worksheet_SelectionChange

Usine à gaz · 5 Février 2024

Franc58 à dit:
Salut, c'est If NOT Intersect...

Bjr et je te remercie
Mais il ne veut toujours pas :
If Not Intersect(Active.Row, Range("j:s")) Is Nothing Then Exit Sub = erreur 424 Objet requis

sylvanu · 5 Février 2024

Testez cette PJ.

Franc58 · 5 Février 2024

Usine à gaz à dit:
Bjr et je te remercie
Mais il ne veut toujours pas :
If Not Intersect(Active.Row, Range("j:s")) Is Nothing Then Exit Sub = erreur 424 Objet requis

Active.Row n'existe pas.Teste ceci:

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ActiveRowRange As Range

    ' Définir la plage de la ligne active de J à S
    Set ActiveRowRange = Range("J" & Target.Row & ":S" & Target.Row)

    ' Vérifier si la cellule sélectionnée se trouve dans la plage de la ligne active de J à S
    If Not Intersect(Target, ActiveRowRange) Is Nothing Then
        ' Insérer le code à exécuter lorsque vous cliquez sur une cellule dans la plage de la ligne active de J à S
        MsgBox "Vous avez cliqué sur une cellule dans la plage de la colonne J à S de la ligne active"
    End If
End Sub

sylvanu · 5 Février 2024

ou encore avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("J:S")) Is Nothing Then
        MsgBox "ok"
    End If
End Sub

Usine à gaz · 5 Février 2024

sylvanu à dit:
Testez cette PJ.

Je te remercie
Mais dans mon fichier de travail, ça beug :

Franc58 · 5 Février 2024

Usine à gaz à dit:
Je te remercie
Mais dans mon fichier de travail, ça beug :
Regarde la pièce jointe 1190045

C'est normal, tu as 2 fois la macro Worksheet_SelectionChange, vire celle qui contient 'code...

Usine à gaz · 5 Février 2024

Franc58 à dit:
C'est normal, tu as 2 fois la macro Worksheet_SelectionChange, vire celle qui contient 'code...

Oui mais je ne peux m'en passer et il me faudrait modifier tous mes codes.....

Franc58 · 5 Février 2024

Usine à gaz à dit:
Oui mais je ne peux m'en passer et il me faudrait modifier tous mes codes.....

Tu ne peux pas avoir 2 macros avec le même nom, et celle là ne sert à rien puisqu'il n'y a pas de code dedans.

Usine à gaz · 5 Février 2024

Franc58 à dit:
Tu ne peux pas avoir 2 macros avec le même nom, et celle là ne sert à rien puisqu'il n'y a pas de code dedans.

Ce que j'ai montré, c'est pour l'exemple, mais j'ai des centaines de lignes de codes

Franc58 · 5 Février 2024

Usine à gaz à dit:
Mais, ce que j'ai montré, c'est pour l'exemple, mais j'ai des centaines de lignes de codes

Alors tu ajoutes dans la macro Worksheet_SelectionChange, ou mieux, tu crées une macro à part et tu l'appelles quand tu en as besoin dans Worksheet_SelectionChange. De toutes façons tu ne peux pas en avoir 2 avec le même nom, tu as constaté que le compilateur ne l'accepte pas.

sylvanu · 5 Février 2024

Re,
C'est interdit tout simplement.
Il vous faut imbriquer les IF comme par ex :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("J:S")) Is Nothing Then
        MsgBox "ok"
    ElseIf Not Intersect(Target, Plage2) Is Nothing Then
        'Code2
    ElseIf Not Intersect(Target, Plage3) Is Nothing Then
        'Code3
    ElseIf Not Intersect(Target, Plage4) Is Nothing Then
        'Code4
    End If
End Sub

XL 2021 Erreur d'exécution 424

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Franc58

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

Usine à gaz

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

Usine à gaz

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires