Message de modification

[MARIE74]

Re a tous

Comment écrire cette condition

Soit en formule excel ou VBA

Exemple
En C1(dans le classeur TATA) si(A1 (du classeur TOTO) est modifiée ;le message suivant apparait, 'attention valeur source modifiée'

Cette condition doit s'appliquer de C1 a C3000
dans le classeur TATA


Merci A+

 

[andré]

Salut Marie,

En cellule C1 du classeur TATA tu as une formule qui fait référence à la cellule A1 du classeur TOTO.
Tu souhaites avoir dans le classeur TOTO un message si la valeur de la cellule A1 du classeur TATA est modifiée.

C'est faisable par formule, avec une colonne supplémentaire (et un peu tiré par les cheveux).

Attendons si une solution par macro n'est pas plus simple.

Je suis ce fil.
Â+

 

[MARIE74]

Re a tous

Salut andré

Merci je crois aussi qu'il faut attendre peut etre une macro

Sinon je part pour une colonne de plus avec formule excel


A+

 

[PascalXLD]

Bonjour

Qu'as-tu dans la cellule C1 du classeur tata? Une formule ?

Qu'entends-tu par : 'le message suivant apparait,
'attention valeur source modifiée' ' ?

Et est-ce qu'il te faut ce message sur toutes les lignes qui ont été modifiées ??

 

[andré]

Resalut,
salut Pascal,

Il me semble que Marie ait trouvé une solution ici :
Lien supprimé
mais aussi avec une ligne supplémentaire.

Je tierns toujours ma solution en réserve, au cas où ...

Â+

 

[MARIE74]

Re a tous

Salut Pascal76 et andré

En C1(classeur tata) j'ai une valeur resultante d'une fonction de recherche dans le classeur toto

C'est pour cela que je souhaite une 'infos' lorsque la valeur du classeur ToTo en A1 change car elle influe sur la resultat en C1

J'entends par message: un texte qui apparait a l'écran simplement pour prevenir l'utilisateur
qu'une valeur est midifiée.

André effectivement j'ai pris ce code chez porcinet82 mais il faut que je l'adapte et la je suis débutante donc il me faut du temps
Alors en attendant andré peux tu preparer ta solution par formule

D'avance merci a vous deux

A+

 

[Gruick]

Je te salue Marie (Contrepétrie)

Essaies ça sur la feuille toto, en macro évenementielle.


Private Sub Worksheet_Change(ByVal Target As Range)
Application.MoveAfterReturn = False
r = ActiveCell.Row
Worksheets('TATA').Cells(r, 3) = 'changée'
Application.MoveAfterReturn = True
End Sub

A chaque fois que tu changeras quelque chose sut TOTO, TATA le dira (vilaine rapporteuse) à la même place. Colonne 3 A effacer après dernier contrôle, pour.... ce que tu veux.

PS Météo sur Paname, Bô, pas chô. (tiens, une autre contrepétrie)

Salut Pascal et André et tout le monde, même les extra terrestres.

 

[MARIE74]

Re a tous

Merci Gruick
Entre 2 feuille OK cela marche

Mais le test est entre 2 classeurs et non 2 feuilles

Merci de voir si tu peux modifier ton code

Merci A+

Je suis curieuse de voir la solution d'andré

 

[andré]

Resalut,

Et voilà, avec explication en pièce jointe.

En cas de problème, toujours à ta disposition.
(je suis absent ce soir !)

Â+ [file name=ModifMarie.zip size=3394]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ModifMarie.zip[/file]

EDITION :
Salut Gruick !
Pour Marie : j'ai fait l'exemple entre deux feuilles, il ne doit pas y avoir de problème entre deux classeurs, pour autant qu'ils soient ouverts.

Message édité par: andré, à: 11/04/2006 17:33

 

[MARIE74]

Re Re

Merci andré

Je test demain matin et et tiens au courant
(je soupçonne une ref circulaire Non)

Bon je suis toujours preneuse pour une macro


Bonne soirée a tous



Mais il faut qur je rentre

 

[Gruick]

Euh ! Désolé, je ne sais plus où me mettre, j'ai lu trop vite.

Le destinataire sera le classeur TATA, feuille TATA1
Peu importe l'expéditeur, mais c'est lui qui porte la macro.

Donc modif :

Workbooks('TATA').Worksheets('TATA1').Cells(r, 3) = 'changée'

TATA doit être ouvert, comme précise André, sans doûte qu'un costaud du forum trouvera une façon de travailler s/1 classeur fermé, moi, chépa. Je veux savoir d'ailleurs.

Tiens moi au courant, je pressens un grand sourire, que je t'adresse par anticipation.

Bon, pour les gars, une bonne poignée de mains.