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

[benoit2602]

Re bonjour,

J'ai crée une macro me permettant de copier/coller des lignes d'une feuille à l'autre selon condition. Tout à l'heure tout fonctionnait très bien puis j'ai fait quelques modifications à mon fichier en modifiant également le code VBA et là il ne se passe plus rien je ne comprends pas.

Si quelqu'un pouvait m'aider, merci;

 

[mromain]

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+

 

[benoit2602]

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

Pas de problème

Merci pour les conseils

 

[benoit2602]

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.

 

[mromain]

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

re,

si j'ai bien compris :

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+

 

[benoit2602]

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

Ca marche nickel !

Grandement merci mromain
Et merci également pour ta patience !