Code copier/coller ligne d'une feuille à une autre sous condition

mromain

XLDnaute Barbatruc

• 10 Avril 2009

• #2

Re : Code copier/coller ligne d'une feuille à une autre sous condition

re,

il y a une erreur à cette ligne
Do While Cells(i, 10) <> ""

sinon, faut éviter de créer des fils à chaque fois.
c'est déjà le 3eme fil pour le même problème...

c'est plus facile de tout mettre dans le même (si quelqu'un a le même soucis, il aura toutes les réponses dans le même fil)

a+

 

Vote positif 0 Vote négatif

B

benoit2602

Guest

• 10 Avril 2009

• #3

Re : Code copier/coller ligne d'une feuille à une autre sous condition

Pas de problème

Merci pour les conseils

 

Vote positif 0 Vote négatif

B

benoit2602

Guest

• 10 Avril 2009

• #4

Re : Code copier/coller ligne d'une feuille à une autre sous condition

Ah je viens de me rendre compte de quelquechose.

La copie des lignes ne se fait en entier. Je précise : la copie ne se fait que par rubrique, ici la copie des lignes s'arrete à la rubrique qualité et ne continue pas pour vérifier qu'il n'y ait pas d'autre ligne à copier dans le rest du fichier.
Faut-il modifier le code en conséquence ? Si oui comment ?

Merci encore et désolé pour les dérangements successifs.

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 10 Avril 2009

• #5

Re : Code copier/coller ligne d'une feuille à une autre sous condition

re,

si j'ai bien compris :

Code:

Private Sub CommandButton1_Click()
   Sheets("Exigences minimales").Activate

Dim i As Integer, lastLine As Integer
i = 13
With ThisWorkbook.Sheets("Exigences minimales")
    lastLine = .Cells(.Rows.Count, 10).End(xlUp).Row
End With
Dim j As Integer
j = 13
For i = 13 To lastLine
    If Range("$H$" & i) = "Responsable QSE" Then
        Range("$C$" & i & ":$G$" & i).Copy Sheets("Responsable QSE").Range("$C$" & j & ":$G$" & j)
        j = j + 1
    End If
    Sheets("Responsable QSE").Select
Next i
End Sub

a+

 

Vote positif 0 Vote négatif

B

benoit2602

Guest

• 10 Avril 2009

• #6

Re : Code copier/coller ligne d'une feuille à une autre sous condition

Ca marche nickel !

Grandement merci mromain
Et merci également pour ta patience !

 

Vote positif 0 Vote négatif