Cellules tactiles

ERIC S

XLDnaute Barbatruc

• 16 Mai 2006

• #2

Bonjour

essaie pout tester

If Application.Intersect(Target, Range('g3:R7')) Is Nothing Then Exit Sub
MsgBox 'OK'


A+

 

Vote positif 0 Vote négatif

L

Laydie

Guest

• 16 Mai 2006

• #3

Bonjour

Merci por la solution mais elle ne fonctionne pas?

Laydie

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Mai 2006

• #4

re

à mettre en code de ta feuille 'vierge' sous forme de worksheet_change

sinon dis-moi ce qui ne fonctionne pas

A+

 

Vote positif 0 Vote négatif

L

Laydie

Guest

• 16 Mai 2006

• #5

Merci

Je suis débutant et j'ai un peu de mal à suivre.
J'ai mis le code suivant

worksheet_change

If Application.Intersect(Target, Range('g3:R7')) Is Nothing Then Exit Sub
MsgBox 'OK'

Mai il ne ce passe rien quand j'écris dans mes cellules G3 à R7.

Merci pour ton aide

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 16 Mai 2006

• #6

re

regarde exemple joint
suis absent en soirée mais si questions je te réponds demain

A+ [file name=laydies.zip size=6798]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/laydies.zip[/file]

 

Pièces jointes

• laydies.zip

  6.6 KB · Affichages: 17

Vote positif 0 Vote négatif

L

Laydie

Guest

• 17 Mai 2006

• #7

Un grand merci à toi

C'est exactement çà.

Merci pour ta disponibilité et ta solution.

Salutations

Laydie

 

Vote positif 0 Vote négatif