!!! Feuille active !!!

[fabrice]

Bonjour tout le monde

Je suis actuellement tres embeté avec une feuille d'excel. En effet, dans celle-ci, si je rentre un nombre dans la cellule A1, tous mes calculs s'éxécutent. Or il m'arrive souvent d'oublier de supprimer le nombre de la cellule A1. J'ai trouver un truc pour mettre le nombre en A quand la feuille est active mais pas pour le supprimer si la feuille n'est plus active. Comment faire???

Merci de votre aide

FAB

 

[Popeye]

dans ton module associé a ta feuille


Private Sub Worksheet_Deactivate()
cells(1,1)=""


End Sub

ca devrait correspondre a t attentes

 

[@+Thierry]

Bonjour Mr Fab !

Alors toujours en train de trifouiller VBA ... C'est un plaisir de te répondre à cette question simple où je n'ai même pas besoin du fichier ! Du coup tu peux même gérer quand tu es dans la feuille et quand tu n'y es pas !!

Essaie par ThisWorkbook... Tu devrais y arriver !

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name <> "Feuil1" Then
Sheets("Feuil1").Range("A1") = ""
Else
Sheets("Feuil1").Range("A1") = 10
End If
End Sub

Bon Après Midi
@+Thierry

 

[@+Thierry]

Arf

Bonjour Popeye, oui bien sûr l'évènement Worksheet_Deactivate est efficace et convient parfaitement aussi dans ce contexte.

Par contre moi j''ai été trop vite car dans ce contexte, il faut évidemment l'évènement :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Feuil1" Then
Sheets("Feuil1").Range("A1") = ""
Else
Sheets("Feuil1").Range("A1") = 10
End If
End Sub

et pas Workbook_SheetChange...

Bon Aprèm
@+Thierry

 

[fabrice]

salut Thierry

Je ne comprend pas, si je selectionne la feuille 1, rien ne se passe. Qu'est ce que j'ai fait encore comme connerie???

FAb

 

[@+Thierry]

Salut Fab

Tu parles de mon post de 23-04-03 14:23 ?
ou de mon post de 23-04-03 13:52 ?

Le second est celui que tu dois utiliser, c'est moi qui ait fair une C.. dans le premier post !! (Chuuuut !) lol

@+Thierry

 

[fabrice]

Salut grand chef.

Je ne sais plus le quel g copié. il me semble que c'était le 2nd mais comme je n'en suis pas sur... (dans le doute, abstients toi!!!). J'ai utilisé en attendant la sol de Popeye.

Merci encore
FAb

 

[Popeye]

hou lala une défaillance du grand @+Thierry
aie aie aie la cote de popularité diminue...

 

[@+Thierry]

pssst popeye tant mieux !!!

=> 97 mails dans ma BAL hier soir !! (d'ailleurs je rappelle qu'il est inutile de s'adresser directement en mail)
@+Thierry

 

[Popeye]

tiens en passant thierry
j'ai télécharger ton application web sous vb pour le forum
pas moyen de voir le code
il me met que c impossible
j'ai oublié un truc ou bien c parce que je suis sous excel 97???

 

[@+Thierry]

Salut Popeye

Oui c'est Excel 97, mes projets ont en général une signatre électronique, et c'est ça qui bloque.

Si tu veux, je t'envoie en bal les fichiers que tu veux non-signé....

Fais moi juste la liste !

Bonne Nuit ou Journée
@+Thierry