Re: recopier une ligne | ||
---|---|---|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 15-11-2009 10h55
bonjour claude40,
On peut certainement l'écrire plus élégamment mais ce code fonctionne chez moi, je te laisse l'essayer à la place du précédent et nous dire: Private Sub Worksheet_Change(ByVal Target As Range) 'code pour copie de ligne a revoir Bonne journée, mth |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 25/11/2008
Messages:
174
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 15-11-2009 11h23
re
c'est parfait mth je te remercie vraiment beaucoup. ton code marche vraiment a merveille. merci a tous et en particulier a toi mth a bientot et bonne journée |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 25/11/2008
Messages:
174
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 15-11-2009 14h14
rebonjour a tous,mth
j'ai une nouvelle question a te poser mth ou le forum. les lots de broyage de matiéres premiéres sont constitués de plusieurs broyeurs, ou plusieur fois le meme,donc il me faudra plusieur plusieur tableau pour inscrire les résultats de chaque broyeurs. ma question est comment je pourrai faire fonctionner plusieurs tableau de résultat les un en dessous des autres tout en conservant le fonctionement du code que ma fait mth sur chaque petit tableau. il faudrai que les nouvelles lignes s'affiche sous leurs tableau respectifs en décalant les autres tableau vers le bas. désoler de ne pas te l'avoir dit plus tot mais j'etait consentrer sur le fonctionnement que mth ma fait pour un seul tableau. merci pour tout et je reste a votre disposition pour plus de renseignement. je joint un petit exemple avec plus de détails |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 15-11-2009 15h05
re,
Un essai avec ce code à la place du code de tout à l'heure (j'ai modifié la ligne en rouge): Private Sub Worksheet_Change(ByVal Target As Range) 'code pour copie de ligne a revoir Dans ton fichier tu demandes si tu peux rajouter une ligne au dessus du tableau, tu veux dire entre le jaune et le bleu? ou à chaque insertion? ou en entête? A priori une ligne non, car ça va décaler les lignes paires et impaires, mais deux lignes sans doute oui, le tout est de savoir où, peux-tu préciser? Cordialement, mth |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 25/11/2008
Messages:
174
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 15-11-2009 15h13
re
encore parfait mth,tu a tout mes remerciments si je rajoute une ligne au dessus du tableau je doit modifier cette ligne? If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then je doit marquer: If Not Intersect(Target, Range("a12:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then merci encore pour tout a bientot et bonne fin de journée claude |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 01/06/2007
De Liège Belgique
Messages:
12
Système d'exploitation: PC & Mac Version Excel utilisée: 2016, MAC 2011 |
Posté le : 15-11-2009 15h47
Re,
Citation : claude40 a écrit : re Je suis le fil avec les interventions de mth mais j'ai toujours peine à comprendre ce que tu veux avoir. Bon là tu as posté un fichier Xl2007 que je ne peux lire. Sinon pour répondre à ton dernier post. Avec : If Not Intersect(Target, Range("a12:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then
Le code agira entre A12 et la ligne de la cellule en colonne A sur laquelle tu es positionné.Amicalement @+ Dan
![]() |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 25/11/2008
Messages:
174
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 15-11-2009 16h46
bonjour Dan
et merci pour ta réponse ma derniere question et pour savoir si je peut insérer une ligne suplémentaire au dessus de mon tableau car je pourrai l'affiné un peut avec une ligne suplémentaire qui n'a rien a voire avec les lignes corespondent au travail fait par mth, mais qui par le fait du rajout de cette ligne va me descendre le tableau d'une ligne. donc si j'ai bien compris sa devrai fonctionner comme je l'ai marquer. dan je reste a ta disposition pour plus d'information si tu le désir, je vous doit bien sa. en vous remerciant tous le deux en particulier et le forum qui m'aide aussi bien sur |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 15-11-2009 18h07
re,
Dan, si cela peut t'être utile, voici un lien vers le site de Microsoft présentant le pack de conversion. Une fois installé il permet d'ouvrir les fichiers 2007 avec les versions antérieures, ce qui rend bien des services. Claude40, comme tu ne précises pas si tu veux insérer ta ligne à chaque tableau, ou une seule fois, ou autre, voici un petit aménagement qui permet d'insérer deux lignes après chaque petit tableau, au cas où. Comme je l'ai dit tout à l'heure, insérer une seule ligne à chaque fois oblige à trouver un autre test car Target.Row Mod 2 = 0 ne fonctionnera plus. Private Sub Worksheet_Change(ByVal Target As Range) 'code pour copie de ligne a revoir Pour ma part je fais une pause, le temps que tu réfléchisses bien à ce que tu veux obtenir, parce là effectivement ça devient un peu brouillon et nous perdons du temps à faire et refaire. Prends le temps nécessaire à bien clarifier tes idées, tu peux aussi essayer de tester tout ça toi même, en modifiant et en voyant le résultat. A bientôt et bonne soirée à tous, mth |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 25/11/2008
Messages:
174
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 15-11-2009 18h51
re mth
comme je le disait a dan c'est une ligne suplémentaire qui va se trouver au dessus du tableau qui n'a rien a voire avec le travail que tu a deja effectuer et qui me convient parfaitement tel qu'il est. le soussi c'est que mon tableau et coller en haut a d'autres ligne donc je suis obliger d'utiliser la fonction insertion ligne pour la rajouter se qui va automatiquement me décendre le premier tableau d'une ligne se qui fait que les deux ligne qui se recopie avec ton code ne se trouve plus en A11 et A12,mais en A12 et A13.voila j'espére avoir était un peu plus clair excuse moi de te soliciter autant mais ton aide arrange tellement bien mon projet que je ne m'arrétterai pas,et tu a raison je vais essayer moi meme je commence a comprendre un peu le cheminement de ton code (enfin je croit) en te remerciant pour ton aide précieuse passe une bonne soirée et a bientot claude |
|
![]() |
![]() ![]() |
Re: recopier une ligne | ||
---|---|---|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 15-11-2009 21h23
re,
un petit dernier pour finir la soirée, avec une insertion d'une ligne en haut du tableau. Bonne soirée à tous, mth |
|
![]() |
![]() ![]() |
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?