déplacer cellules

mike · 30 Août 2003

Bonjour à tous,

Voilà j'ai un fichier avec des participants dans les colonnes B, C,D et je désirai pouvoir par exemple si je supprime un nom dans la cellule B10 que le nom dans la cellule C10 se décale à la cellule B10 et pareil pour la cellule D10 le nom se deplace dans la cellule C10 et cela à partir de la ligne 7.
En esperant avoir été compréhensible dans mon explication, ci-joint un fichier avec un tableau pour exemple de mon fichier.

Je vous remercie d'avance pour votre aide

mike

vincent · 30 Août 2003

Bonjour

Voila le fichier modifier verifie si il fonctionne la macro se trouve dans la feuil1 et utilise l'evenementiel worksheet_change

@+Vincent

mike · 31 Août 2003

Bonsoir Vincent,

C'est vraiment parfait ça marche impeccable, vraiment merci Vincent pour ton aide.

à tres bientot sur le forum

Mike

vincent · 31 Août 2003

Re

De rien

Bonne nuit

@+Vincent

mike · 31 Août 2003

Rebonjour Vincent,

Juste un petit probleme j'ai les cellules E, F, G etc... qui se decalent aussi that is probleme, car elle sont remplis, et les cellules A,C,D se remplissent, mais vu que dans mon fichier joint ce n'est pas rempli tu pouvais pas le deviner, alors sorry en esperant que la solution à ce probleme ne soit pas trop compliquée.

ci joint le fichier avec les cellules E, F, G rempli.

Bonne nuit à toi aussi,

@++

mike

vincent · 31 Août 2003

Re

effectivement un petit plus compliqué mais 2 tours de passe passe et hop le voila. lol !!!

@+Vincent

mike · 31 Août 2003

c'est parfait, rien à redire ou oui juste te dire chapeau bas pour ta rapidité.

Merci, vraiment merci vu l'heure en plus...

@++

mike

mike · 1 Septembre 2003

Bonsoir Vincent,

Je refais appel car je ne te l'avais pas dit mais j'ai une protection de ma feuille excel et j'ai les cellules de B7 à Z200 ou j'ai permis aux utilisateur de modifier les cellules, mais là j'ai une erreur d'execution 1004 que je n'ai pas quand je déprotege ma feuille, si tu as une solution à cela, alors tu m'enlevera une épine du pied.

Merci encore pour ton aide, en esperant avoir une réponse à ce message,

@++

mike

vincent · 1 Septembre 2003

Re

Il faut juste rajouter 3 lignes la premiere :
'activesheet.unprotect' juste aprés cette ligne :'Dim variable As String'
la 2 'activesheet.unprotect' aprés cette ligne Range(Chr(64 + Target.Column + 1) & Target.Row & ":" & variable & Target.Row).Cut Destination:=Range(Target.Address)
et la 3 'activesheet.protect' avant cette ligne 'end sub'

Voilà

@+Vincent

mike · 2 Septembre 2003

Salut Vincent,

ça marche impeccable sur le fichier "XLD-corrected-tableaure01.xls" mais malheureusement sur mon fichier ça ne marche pas car il y a un conflit avec une autre formule VB, donc je te joints mon fichier sur ta boite aux lettres car elle fait plus de 50 ko meme zippé, pour que tu puisses mieux comprendre d'ou vient le conflit.
J'ai laissé la protection mais il n'y a pas de mot de passe.

En tout cas merci pour ton soutien et ton aide, en esperant que ce soit la derniere fois que je fais appel à toi pour ce probleme.

bonne journée,

@++

Mike

vincent · 2 Septembre 2003

Re le fil

pourrais tu me dire ou sont les bugs et sur quelle version d'excel tu travailles car je suis sous 97 et il y a beaucoup de bugs et je ne suis pas sur que cela vienne du prog mais plus d'un pb de version

Sinon voila une piste rajoute sur toutes les macro qui travail sur ta feuille (effacement de cellule ecriture dans une cellule... ) en debut de code activesheet.unprotect et en fin de code activesheet.protect

mike · 2 Septembre 2003

Bonsoir Vincent,

C'est super ça marche, merci, vraiment merci beaucoup pour ton aide, et pour répondre à ta question je suis sous office XP.

A très bientot, pour de nouveaux conseils,

bonne soirée,

Mike

mike · 5 Septembre 2003

Bonjour Vincent,

Juste pour te dire que je me suis précipité mais au final le code ne marche pas, l'ereur d'execution est la `1004' Impossible de definir la propriété ColorIndex de la base Interior, et quand je fais debogage il va sur le module 1 et il met en surbrillance jaune ceci:
`Selection.Interior.ColorIndex = 3'.

Voilà en esperant que tu puisses m'aider car c'est le dernier petit probleme qui me reste à ce code.

D'avance merci beaucoup pour ton aide, en souhaitant que ce ne sera pas trop compliqué.

@++

Mike

vincent · 19 Septembre 2003

Re le fil

Désolé de ne pas avoir repondu plus j'etais en voyage d'affaire.
Pourrais tu me renvoyer ton prog avec l'endoit ou il bug et j'essayerais de voir ce que je peux faire.

A plus

@+Vincent

Ps:si tu as trouvés la solution ne repond pas

déplacer cellules

mike

Guest

Pièces jointes

vincent

Guest

Pièces jointes

mike

Guest

vincent

Guest

mike

Guest

Pièces jointes

vincent

Guest

Pièces jointes

mike

Guest

mike

Guest

vincent

Guest

mike

Guest

vincent

Guest

mike

Guest

mike

Guest

vincent

Guest

Discussions similaires