Discussion :

[Baluteaud]

Bonjour,

Je n'arrive pas mettre une donnée variable dans une cellule comme par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not Intersect([C1:C20], Target) Is Nothing And Target.Count = 1 Then
   code   
End If

fonctionne bien

Remplacer le 20 par une variable car le numéro de ligne est différents suivant les cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not Intersect([C1:C" & Ligne & "], Target) Is Nothing And Target.Count = 1 Then
   code   
End If

ne fonctionne pas, erreur 424

J'ai mis en pièce jointe un fichier Test.

Merci de votre aide et en attente d'une solution,
Jean-Michel

[Invité]

Bonjour,

Quel serait le problème si vous mettiez directement toute la colonne C ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
     If Target.Count > 1 Then Exit Sub
 
     If Not Intersect(Columns(3), Target) Is Nothing Then
            MsgBox "OK"
     End If
 
End Sub

Cordialement.

[Baluteaud]

Je ne peux pas inclure toute la colonne C. Le test doit être de C1 à Cxx, xx étant un numéro de ligne variable.

[Invité]

xx étant un numéro de ligne variable.

Variable par rapport à quoi ?

Cordialement.

[Baluteaud]

Bonjour,

C'est dans un contexte de programmation bien précis, ou l'on doit savoir su l'utilisateur sélectionne une cellule compris entre C1 et Cxx. Comme indiqué, xx étant variable. Effectivement, on pourrait biaisé le test, en donnant à xx une valeur relativement important.

Mais est il possible d'utiliser cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not Intersect([C1:C20], Target) Is Nothing And Target.Count = 1 Then
   code   
End If

avec une variable à la place de C20 ? Qui est ma question d'origine.

Toujours, dans ce même programme sous Excel, j'ai par exemple utilisé cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Parcours").Range("B3:E" & CelluleTrouvee.Row & "").Interior.ColorIndex = 34

qui fonctionne parfaitement bien avec une variable pour le Range("B3:Exx") ou xx est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CelluleTrouvee.Row

Au plaisir d'avoir une réponse,
Cordialement

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Ligne = 25 ' A adapter
    ' If Not Intersect([C1:C] & Ligne, Target) Is Nothing And Target.Count = 1 Then
    If Not Intersect(Target, Range("C1:C" & Ligne)) Is Nothing And Target.Count = 1 Then
       MsgBox "OK"
    End If
 
End Sub

[Baluteaud]

Merci Eric, réponse parfaite à ma question.