peut-être que Hervé?

[jack]

Bonjour
j'ai vu que tu avais trouvé un code pour copier plusieurs colonnes sur une seule
je n'ai toujours pas de réponse pour envoyer une selection sur deux colonnes vers une ligne

est-ce vraiment impossible ?

Merci de m'aider en tout cas
je joins mon fichier test pour exemple

amicalement
jacques [file name=PLANNINGTEST1_20060525163320.zip size=18239]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PLANNINGTEST1_20060525163320.zip[/file]

 

[pierrejean]

bonjour Jacques

désolé je ne suis pas Hervé (et de tres tres loin)

j'ai tout de même un premier jet à te proposer

lancer la macro test depuis la feuille LIBRE2

Je dois en terminer pour ce soir mais je reprendrai demain

a moins qu'Hervé ne passe par la !!! [file name=PLANNINGTEST1_20060525191940.zip size=24569]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PLANNINGTEST1_20060525191940.zip[/file]

Message édité par: pierrejean, à: 25/05/2006 19:20

 

[PascalXLD]

Bonjour

Tu as de la chance d'avoir un PierreJean qui soit gentil et plein de désinteressement.

Perso j'aurais bien regarder but my name is Pascal

Message édité par: Pascal76, à: 26/05/2006 09:53

 

[pierrejean]

re

derniere version en date

a completer (Mois et libre) et tester

Attention !!
le code fait reference a 'LIBRE' dans le nom des feuilles ,les nouvelles devront egalement commencer par 'LIBRE'

la macro test doit etre lançée a partir d'une feuille LIBRE sinon plantage

a ce propos si quelqu'un a une explication cela m'interesse au plus haut point !!! [file name=PLANNINGTEST1_20060526102054.zip size=27592]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PLANNINGTEST1_20060526102054.zip[/file]

 

[Charly2]

Bonsoir Jack, bonsoir PierreJean, bonsoir my name's Pass... Pass cal :woohoo:

Pierre, tu peux commencer depuis n'importe quelle feuille à condition de modifier la ligne suivante dans ta macro test

Call cherche(Cells(4, n - 1).Value, .Sheets(m).Name, CDate(Cells(cel.Row, n - 1).Value), (cel.Column + 1) Mod 2, cel.Interior.ColorIndex)

qui devient

Call cherche(.Sheets(m).Cells(4, n - 1).Value, .Sheets(m).Name, CDate(.Sheets(m).Cells(cel.Row, n - 1).Value), (cel.Column + 1) Mod 2, cel.Interior.ColorIndex)

Bonne soirée

 

[jack]

Merci PierreJean et Charly2
La macro fonctionne super bien mais ne reproduit pas de saisie de texte (surement une indication à rajouter, je vais chercher.

Grâce à votre aide je vais pouvoir finaliser mon travail

Désolé d'en avoir froissé certains mais après plusieurs posts non nominatifs (tout le monde pouvait répondre ..) restés sans réponse, je me suis adressé à quelqu'un qui semble t'il avait déjà un peu travaillé le sujet voilà tout.

Donc encore merci de votre coup de main

amicalement
jack

 

[pierrejean]

bonjour Jacques

Salut et grand MERCI a Charly

j'ai été un peu long a sortir cette version qui n'utilise plus de transmission de variable car j'ai été confronté à une macro du module 2 qui venait interferer (comment : mystere !!!)
la valeur de la cellule est egalement prise en compte [file name=PLANNINGTEST1_20060527141757.zip size=26198]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PLANNINGTEST1_20060527141757.zip[/file]

 

[jacques84]

Merci PierreJean c'est tout à fait ça
il ne me reste plus qu'a réintégrer mon module 2 correspondant à ma fonction 'comptecouleurde fond'
et le tour est joué

En tout cas sacré boulot et merci encore

Maintenant j'écrirai Peut-être que Pierrejean

Amicalement
jack