Re: recopier une ligne
#11
Accro XLPages

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
Dim Lg As Integer
Lg = Range("a50").End(xlUp).Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then
        Application.EnableEvents = False
            If Target <> "Fin Broyage" Then
                Range("A" & Lg - 1 & ":V" & Lg).Copy
                Range("A" & Lg + 1).Insert Shift:=xlDown
                Range("A" & Lg + 1 & ":V" & Lg + 2).Cells.SpecialCells _
                 (xlCellTypeConstants).ClearContents
                Range("A" & Lg + 1) = Range("A" & Lg - 1)
                Range("C" & Lg + 1) = Range("C" & Lg - 1)
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub

Bonne journée,

mth

Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#12
Accro XLPages

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
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#13
Accro XLPages

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


Pièce jointe:
zip rebelote ok.zip   [ Taille: 55.21 Ko - Téléchargements: 605 ]
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#14
Accro XLPages

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
Dim Lg As Integer
Lg = ActiveCell.Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then
        Application.EnableEvents = False
            If Target <> "Fin Broyage" Then
                Range("A" & Lg - 1 & ":V" & Lg).Copy
                Range("A" & Lg + 1).Insert Shift:=xlDown
                Range("A" & Lg + 1 & ":V" & Lg + 2).Cells.SpecialCells _
                 (xlCellTypeConstants).ClearContents
                Range("A" & Lg + 1) = Range("A" & Lg - 1)
                Range("C" & Lg + 1) = Range("C" & Lg - 1)
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub
 

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

Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#15
Accro XLPages

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         
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#16
Débutant XLPages

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
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         

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
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#17
Accro XLPages

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
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#18
Accro XLPages

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
Dim Lg As Integer
Lg = ActiveCell.Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing And Target.Row Mod 2 = 0 Then
        Application.EnableEvents = False
            If Target <> "Fin Broyage" Then
                Range("A" & Lg - 1 & ":V" & Lg + 2).Copy
                Range("A" & Lg + 3).Insert Shift:=xlDown
                Range("A" & Lg + 3 & ":V" & Lg + 5).Cells.SpecialCells _
                 (xlCellTypeConstants).ClearContents
                Range("A" & Lg + 3) = Range("A" & Lg - 1)
                Range("C" & Lg + 3) = Range("C" & Lg - 1)
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub
 

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
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#19
Accro XLPages

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
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
#20
Accro XLPages

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
Pièce jointe:
zip rebelote ok3.zip   [ Taille: 50.99 Ko - Téléchargements: 562 ]
Hors Ligne
Rapport   Haut 


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.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes