Discussion :

[NEC14]

Bonjour,

Dans un code VBa sous Excel il y a cette partie qui indique que lorsque l'on double clique dans une cellule de A12 à A39 celle-ci se colore en vert.

J'aimerai que ce code ne fonctionne uniquement si il y a un chiffre dans une des cellules C12 à C39.

Comment dois-je procéder ?

Merci par avance

Code :

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

1
2
3
 
If Not Intersect([A12:A39], Target) Is Nothing Then
    Target.Interior.ColorIndex = 4

[illight]

Un chiffre ou un nombre ?

Regarde du côté de la fonction

Code :

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

IsNumeric

[EngueEngue]

Code :

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

1
2
3
If Not Intersect([A12:A39], Target) Is Nothing Then
If isnumeric(target.value) then
    Target.Interior.ColorIndex = 4

[NEC14]

Code :

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

1
2
3
If Not Intersect([A12:A39], Target) Is Nothing Then
If isnumeric(target.value) then
    Target.Interior.ColorIndex = 4

Bonjour et merci pour ce code. Mais il doit être fait référence aux cellules C12:C39

J'ai essayé de cette façon mais cela ne fonctionne pas

Code :

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

1
2
3
4
 
If Not Intersect([A12:A39], Target) Is Nothing Then
If isnumeric ([C12:C39],(target.value)) then
    Target.Interior.ColorIndex = 4

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
If Not Intersect([A12:A39], Target) Is Nothing Then
For i = 12 to 39
If isnumeric(activesheet.range("A" & i)) then
    Target.Interior.ColorIndex = 4
exit sub
end if
next i
end sub

[nibledispo]

Bonjour Engue Engue,

La valeur numérique à considérer se trouve colonne C.

Je présume que tu as voulu écrire :

Code :

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

1
2
3
 
If isnumeric(activesheet.range("C" & i)) then
    Target.Interior.ColorIndex = 4

Cordialement,

[NEC14]

Merci pour votre aide

Amicalement

René