sur "1" ou "2" recopie dans feuille

[CAPRI_456]

bonsoir les passionés du forum,

en visualisant vos articles j'ai bricolé un vba initié par Thierry cela fonctionne à merveille pour le code 1 , par contre j'ai fait du copié/collé pour utiliser ce vba afin de recopier avec une code '2' dans une autre feuille... et là aucun effet

j'ai également un souci pour donner une couleur différente à ce code 1 ou 2 une fois le transfert de données réalisées (amélioration visuelle) cela devrait être simple..en utilisant...

If Range ('B')= 1 Then Interior.ColorIndex = 3
If Range ('B')= 2 Then Interior.ColorIndex = 6

Cela ne fonctionne pas...
Meci pour votre aide..
Je joins le petit fichier test

 

[CAPRI_456]

AVEC FICHIER c'est mieux [file name=KWFORUM.zip size=21434]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KWFORUM.zip[/file]

 

[Denis]

Bonjour Capri456 et le Forum
ci-joint ton programme un peu modifié
tu ne peus pas mettre 2 procédure worksheet_change pour la même feuille, il faut donc mettre une condition supplémentaire.
Ta sub 'Leon' de nettoyage est un peu longue, pourquoi ne pas effacer une plage complète au lieu de boucler sur des cellules ?
Bon courage
Denis B)

 

[CAPRI_456]

merci Denis, le forum.

Denis, je n'aperçois pas le fichier dont tu parles.
Merci , bien à toi

 

[CAPRI_456]

Denis, le Forum, bonsoir,

Denis, merci pour ta contribution et la proposition d'amélioration......... mais pourrais tu joindre le fichier dont tu parles

MERCI D'AVANCE

Bien à toi

 

[Denis]

Re:sur \"1\" ou \"2\" recopie dans feuille

Bonjour Capri 456 et le Forum

désolé pour ce retard
le voici j'espère
Bon courage
Denis :silly:

Message édité par: Denis, à: 16/03/2006 05:14

 

[Denis]

[file name=KW4.zip size=20316]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KW4.zip[/file]

 

[CAPRI_456]

bonsoir Denis, le Forum

merci Denis, pour cette avancée,
cependant,...
---- suite à l'utilisation des codes 1 et 2 des lignes vides existent lors du recopiage dans les deux feuilles---comment résoudre ce problème.

---- depuis le remaniement du code dans le ficheir joint, la procédure inverse d'effacement de certains '1 ' ou '2' ne fonctionne plus.

Merci de votre aide.

 

[Denis]

Bonjour Capri 456 et le Forum
ci-joint ton fichier corrigé pour le décalage de lignes. Effectivement il faut un compteur de ligne indépendant pour chaque feuille.
Quand a ton code d'effacement, je n'ai pas tout compris, que doit on effacer et quand ?
Bon courage et à +
Denis [file name=KW4_20060317051044.zip size=20362]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KW4_20060317051044.zip[/file] B)

 

[Denis]

Re à tous
ci-joint un autre essais
je ne sais pas si celà convient
à +
Denis B) [file name=KW4_20060317052912.zip size=19942]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KW4_20060317052912.zip[/file]

 

[CAPRI_456]

Bonsoir le Forum,
Mrci Denis pour le support

cela fonctionne maintement
Un petit détail : lorsque l'on enlève le code 1 ou 2 la couleur n'est pas éliminée. Peut-on le faire au moyen de 'Clearcontent'??

Autre renseignement:
je ne vois pas tellt la raison d'être des deux macros 2 et 3 qui tu as créé. Elle renvoie à des cellules que je ne parviens pas à bien cerner.
Si jamais tu peux me donner plus d'infos

 

[CAPRI_456]

SUITE... j'ai crié victoire trop tot
en supprimant les codes 1 et 2
et en tentant de les réaffecter par la suite ....j'ai erreur de débogage:
'IMPOSSIBLE DE MODIFIER UNE CELLULE FUSIONNEE' pour la ligne de code
Worksheets('CV(VP)').Range('C17😀' & Derligne1).ClearContents

 

[Denis]

Bonjour Capri 456 et le Forum
ci-joint ton fichier avec qques explications supplémentaire et des corrections
je pense que maintenant celà doit marcher comme tu le veux
bon courage et à +
Denis [file] B)

 

[Denis]

Re
Problème de connection ce matin ça coupe
revoici le fichier [file]
à +
Denis B)

 

[Denis]

[file name=KW4_20060320063614.zip size=20033]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/KW4_20060320063614.zip[/file] B)