Copie de ligne d'une feuille vers une autre

Phil76 · 18 Juin 2012

Je sèche.
Dans une feuille, je trie pour pouvoir connaitre le nombre de fois que sort une alarme.
Si cette alarme est superieure à une valeur x je dois copier les informations de cette alarme dans une autre feuille,
et poursuivre le traitement jusqu'à la fin.
Tout est dans la piéce jointe.
D'avance merci

Modeste · 18 Juin 2012

Re : Copie de ligne d'une feuille vers une autre

Bonsoir Phil76,

Tu voudrais recopier les sous-totaux (intitulés et valeurs) qui sont supérieurs à 30, dans la feuil2?
Si c'est bien ça, un exemple contenant des sous-totaux supérieurs à 29 aurait été plus adapté 😛 ... Bref, si c'est donc ce que tu veux faire, les sous-totaux figurent en regard des seules cellules vides en colonne A. Le code suivant devrait donc fonctionner:

VB:

Sub PlusDeTrente()
Application.ScreenUpdating = False
Sheets("Feuil2").Range("A1:C65000").ClearContents
With Sheets("Feuil1")
    derligne = .Range("B" & Rows.Count).End(xlUp).Row
    For Each c In .Range("A1:A" & derligne - 1).SpecialCells(xlCellTypeBlanks)
        If c.Offset(0, 2) >= 30 Then
            c.Offset(0, 1).Resize(1, 2).Copy
            Sheets("Feuil2").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        End If
    Next c
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Phil76 · 19 Juin 2012

Re : Copie de ligne d'une feuille vers une autre

Merci Modeste.
J'ai osé mettre dans mon profit que je n'étais pas un débutant, mais je vais revoir mon jugement.
Merci à toi pour le dépannage.
Je cherche toujours un bon livre pour apprendre. Peux tu m'aider aussi de ce coté la ?
Et si je veux copier la ligne au dessus en meme temps, je fais comment ?

Modeste · 19 Juin 2012

Re : Copie de ligne d'une feuille vers une autre

Bonjour Phil76,

Pour ce qui est d'un ouvrage de référence, je ne puis que t'inviter à faire une recherche sur "livre Vba" sur notre petit forum préféré ... les résultats te permettront de constater la variété des avis exprimés (et tu n'auras que l'embarras du choix 😉)

Si j'ai bien compris (mais je ne sais pas trop pourquoi tu recopierais la ligne qui précède les sous-totaux 😕), voilà comment je modifierais ... attention il n'y a pas que l'instruction la plus évidente qu'il faut modifier (celle qui fait la copie): il y a une modification aussi en ligne 3 et 2 en ligne 9

VB:

Sub PlusDeTrente()
Application.ScreenUpdating = False
Sheets("Feuil2").Range("A1:F65000").ClearContents
With Sheets("Feuil1")
    derligne = .Range("B" & Rows.Count).End(xlUp).Row
    For Each c In .Range("A1:A" & derligne - 1).SpecialCells(xlCellTypeBlanks)
        If c.Offset(0, 2) >= 30 Then
            c.Offset(-1, 0).Resize(2, 6).Copy
            Sheets("Feuil2").Range("B65000").End(xlUp).Offset(1, -1).PasteSpecial Paste:=xlPasteValues
        End If
    Next c
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Phil76 · 19 Juin 2012

Re : Copie de ligne d'une feuille vers une autre

Encore merci pour ton aide.
J'ai déjà fait un saut dans la recherche que tu m'as indiquée, effectivement il y a le choix.
Merci encore. de toute facon, j'aurais encore besoin d'aide car plus j'avance et plus je complique. Alors forcement!!!

Copie de ligne d'une feuille vers une autre

Phil76

Guest

Pièces jointes

Modeste

XLDnaute Barbatruc

Phil76

Guest

Modeste

XLDnaute Barbatruc

Phil76

Guest

Discussions similaires

Copie de ligne d'une feuille vers une autre

Phil76

Guest

Pièces jointes

Modeste

XLDnaute Barbatruc

Phil76

Guest

Modeste

XLDnaute Barbatruc

Phil76

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency