Une histoire de pointage svp....

[SOPHIE]

Bonjour le forum !!!

Tout est dit dans le fichier joint ! Il y aurait t'il une ame charitable pour m'aider ?

D'avance merci à tous !!!

 

[@Christophe@]

Bonjour Sophie

Mets le code suivant dans le code vba de la feuil1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A10")) Is Nothing Then
If Target = "" Then
Target = "OK"
Else
Target = ""
End If
End If
End Sub


ou, ce que moi je te conseille, pour éviter les mauvais manouevre, le double clic, il te suffit alors d'utiliser le code suivant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A2:A10")) Is Nothing Then
If Target = "" Then
Target = "OK"
Else
Target = ""
End If
End If
Cancel = True
End Sub


Pour que tes cellule soit verte, applique la couleur verte sur toutes la plage, automatiquement tous sera vert

Si tu as un problème n'hésite pas

@Christophe@

 

[romfret]

Salut sophie, christophe,

J'ai testé ton code christophe mais il ne fonctionne pas !!

A revoir ...


@+, romfret

 

[SOPHIE]

Que faire svp ?!

Merci.

 

[@Christophe@]

Re

Comment ça, Romfret tu dois mettre le code dans la feuille et non pas dans un model

Je t'envoi un fichier pour te montrer que le code fonctionne très très bien, tu as l'exemple, simple clic et double clic

Bonne journée

@Christophe@

 

[@Christophe@]

re

Faute de frappe, MODULE et non Model


Bonne journée à vous

P.S. Coucou Sophie, puisque je vois que tu es la aussi

 

[romfret]

Re,

En effet christophe, j'avais copier le code dans thisworkbook et dans un podule : en vain de toute facon il ne restais plus que cette solution ;-)



@+, romfret

 

[@Christophe@]

Sacré Romfret

Tu as encore beaucoup à apprendre, lol

Bonne journée à vous

@Christophe@

 

[Sophie]

Que dire de plus !

Un GRAND merci à vous, Christophe et Romfret 🙂)

Fofi

 

[SOPHIE]

Une petite précision svp...

Tout est dit dans le fichier joint.

Merci d'avance !!!!!!

Sophie.

 

[@Christophe@]

Bonsoir

Voici ton problème réglé, j'ai ajouté une ligne qui génére l'erreur

Je te joint le fichier

Bonne soirée

@Christophe@

 

[Sophie]

Merci beaucoup Christophe !!!!!!!!