Change By Val

[Fernandez67]

Bonsoir à tous,

Dans le fichier joint, j'ai une macro evenementiel qui me permet de filtrer une liste de zone dynamique (donnée/validation).

Dans la zone G16 tout se passe bien.

J'ai reproduit le code dans la zone B33 et la ... ca ne marche pas 😱

Pourtant la structure de code est la même.

Je ne comprend pas, auriez vous une idée?

 

[Creepy]

Bonsoir,

NO PJ !

@+

Creepy

 

[Fernandez67]

Un plantage avec mon VIEUX pc portable.

 

[Fernandez67]

Voici le fichier

 

[MichelXld]

bonjour Fernandez67 , bonjour Creepy

tu trouveras dans ce lien la procedure pour joindre un fichier

Lien supprimé


bonne journée
MichelXld

 

[Fernandez67]

Merci pour l'info Michel [file name=matricecourrier.zip size=33988]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/matricecourrier.zip[/file]

 

[MichelXld]

bonjour


supprime la procedure 'evenementielle'

Private Sub Worksheet_Change2(ByVal Target As Range)

et colle tout ce quelle contient à la suite dans la procedure Worksheet_Change (je n'ai pas testé le contenu)


tu procedure ne peut pas fonctionner car l'evenement Change2 n'existe pas


ci dessous la liste des evenements possibles dans la feuille

Activate
BeforeDoubleClick
BeforeRightClick
Calculate
FolowwHyperlink (en fonction des versions Excel)
Change
Deactivate
SelectionChange
PivotTableUpdate



bonne journée
MichelXld

 

[Fernandez67]

Ok Merci Michel,

J'ai bien supprimé l'évenement.

Par contre le changement de zone en 'B33' n'est pris en compte et je ne comprend pas pourquoi...

 

[Re]

Le fichier

 

[Fernandez67]

Bon ben le fichier... [file name=matricecourrier_20060102134757.zip size=40517]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/matricecourrier_20060102134757.zip[/file]

 

[MichelXld]

bonsoir

je n'ai pas optimisé ta procedure , mais tu peux deja tester cette adaptation


bonne soirée
MichelXld [file name=Matrice_Courrierbeta_V02.zip size=37604]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Matrice_Courrierbeta_V02.zip[/file]

 

[Fernandez67]

Superbe !!!!

Par contre, pourrais tu me dire ce qui clochait ?

Ensuite est il possible de suivre un fil... Je m'explique, en ce qui me concerne pour pouvoir retrouver mon message, il faut que je passe pas par la case 'Rechercher'.

Dans tous les cas, je te remercie grandement. Vivement que cela soit aussi simple pour moi 😉

Cordialement

 

[MichelXld]

bonjour

je ne me souviens plus tres bien des modifs mais tu peux toujours comparer la macro avec ton classeur d'origine :

entre autre , les lignes

Lig = Sheets('BaseAdresse').Range('A65536').End(xlUp).Row

et

Lig2 = Sheets('BaseTXT').Range('A65536').End(xlUp).Row

etaient mal positionnées dans la procedure


quand tu ecris un message , coches la case 'souscrire' pour recevoir des notifications de réponses.
tu recevras un mail contenant un lien vers le fil de discussion , à chaque reponse


bonne journée
MichelXld