Rapport de message :*
 

Re: recopier une ligne

Titre du sujet : Re: recopier une ligne
par Mth le 14/11/2009 15:02:40

Bonjour Claude40, bonjour Dan,

Claude, comme disait familièrement feu ma grand-mère, tes explications sont claires comme du jus de boudin!

En repartant de ton code, et des infos que tu distilles ici et ailleurs :

bonjour a tous j'ai trouver un code en farfouillant sur le site qui semblait me convenir,je l'est tester sur une feuille excel vierge il marche corectement.mais quand je veut l'integrer a mon projet que je joint a ce message il ne fonctionne plus.quelqu'un pourrai t'il regarder la ou j'ai fait une erreur dans le code et si cela est possible de le réctifier un peu s'il vous plait.car actuellement le code fonctionne comme ceci: quand je sélectionne Av/Colle dans la liste de la cellule A11 cela me recopi la ligne en jaune complete en dessous avec les informations dedant.alors que moi je souhaiterai que sa me copie la ligne compl� en dessous mais sans les informations.l'arrêtde la recopie ne s"éffectue que une fois "Fin Broyage" séléctionner dans la liste.
merci d'avance pour votre aide

essaie peut-être comme ceci:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = Range("a1120").End(xlUp).Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing Then
        Application.EnableEvents = False
            If Target = "Fin Broyage" Then
                Range("A" & Lg & ":V" & Lg).Copy
                Range("a" & Lg + 1).PasteSpecial Paste:=xlPasteFormats
                    With Range("a" & Lg + 1).Validation
                     .Delete
                    End With
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub

Bonne journée à tous,

Mth