Une histoire de pointage svp....

@

@Christophe@

Guest

• 2 Septembre 2003

• #2

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@

 

Vote positif 0 Vote négatif

R

romfret

Guest

• 2 Septembre 2003

• #3

Salut sophie, christophe,

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

A revoir ...


@+, romfret

 

Vote positif 0 Vote négatif

S

SOPHIE

Guest

• 2 Septembre 2003

• #4

Que faire svp ?!

Merci.

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 2 Septembre 2003

• #5

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@

 

Pièces jointes

• Pointage.zip

  7 KB · Affichages: 30
• Pointage.zip

  7 KB · Affichages: 31
• Pointage.zip

  7 KB · Affichages: 29

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 2 Septembre 2003

• #6

re

Faute de frappe, MODULE et non Model


Bonne journée à vous

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

 

Vote positif 0 Vote négatif

R

romfret

Guest

• 2 Septembre 2003

• #7

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

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 2 Septembre 2003

• #8

Sacré Romfret

Tu as encore beaucoup à apprendre, lol

Bonne journée à vous

@Christophe@

 

Vote positif 0 Vote négatif

S

Sophie

Guest

• 2 Septembre 2003

• #9

Que dire de plus !

Un GRAND merci à vous, Christophe et Romfret )

Fofi

 

Vote positif 0 Vote négatif

S

SOPHIE

Guest

• 3 Septembre 2003

• #10

Une petite précision svp...

Tout est dit dans le fichier joint.

Merci d'avance !!!!!!

Sophie.

 

Pièces jointes

• Pointage.zip

  44.7 KB · Affichages: 26
• Pointage.zip

  44.7 KB · Affichages: 25
• Pointage.zip

  44.7 KB · Affichages: 22

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 3 Septembre 2003

• #11

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@

 

Pièces jointes

• Pointage2.zip

  44.3 KB · Affichages: 29

Vote positif 0 Vote négatif

S

Sophie

Guest

• 4 Septembre 2003

• #12

Merci beaucoup Christophe !!!!!!!!

 

Vote positif 0 Vote négatif