XL 2021 Erreur d'exécution 424

[Usine à gaz]

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]

Bonjour Lionel,
Essayez :

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

 

[Franc58]

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]

Merci pour ce retour

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

 

[Usine à gaz]

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]

Testez cette PJ.

 

[Franc58]

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:

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]

ou encore avec :

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]

Testez cette PJ.

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

 

[Franc58]

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]

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]

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]

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]

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]

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

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