Utilisation d'une donnée variable dans une cellule

Version imprimable

06/04/2015, 22h45
Baluteaud

1 pièce(s) jointe(s)

Utilisation d'une donnée variable dans une cellule
Bonjour,

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

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:

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

Bonjour,

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

Code:

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.

07/04/2015, 12h56
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.
07/04/2015, 13h50
Invité

Citation:

Envoyé par Baluteaud

xx étant un numéro de ligne variable.

Variable par rapport à quoi ?

Cordialement.
07/04/2015, 14h01
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:

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:

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:

CelluleTrouvee.Row

Au plaisir d'avoir une réponse,
Cordialement

Code:

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

07/04/2015, 18h01
Baluteaud

Merci Eric, réponse parfaite à ma question.