Recopie de ligne en VBA

[gvives]

Bonsoir à tous,

J'ai réalisé ce code. A chaque changement sur la feuil1 j'aimerai que les lignes sur lesquelles la ligne 2 n'est pas vide soient recopiées sur la feuil2. Seulement actuellement c'est seulement la première ligne qui est copiée.

Private Sub worksheet_change(ByVal target As Range)
Dim i As Long
With Feuil1
For i = .[A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then .Rows(i).Copy Feuil2.[A65000].End(xlUp)
Next
End With
End Sub

J'ai un petit fichier joint simplfié au cas où.

Pourriez vous m'orienter sur mon erreur.

Merci à tous...

 

[Yaloo]

Re : Recopie de ligne en VBA

Bonsoir gvives, le forum,

Peut être avec cela :

Private Sub worksheet_change(ByVal target As Range)
Dim i As Long
Dim j As Long
j = 1
With Feuil1
For i = .[A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then .Rows(i).Copy Feuil2.Rows(j)
j = j + 1
Next
End With
End Sub

A te relire

Martial

 

[gvives]

Re : Recopie de ligne en VBA

Bonsoir Yaloo, Merci

C presque parfait, est-il possible d'éviter la recopie des lignes vides sur la feuille 2...

J'ai essayé d'effectuer un tri en ajoutant ce code mais cela ne fonctionne pas...

Sheets("Feuil2").[B1].Sort Key1:=Sheets("Feuil2").[B2], Order1:=xlAscending, Header:=xlGuess_

 

[Yaloo]

Re : Recopie de ligne en VBA

Re,

Peut être comme ça :

Private Sub worksheet_change(ByVal target As Range)
Dim i As Long
Dim j As Long
Feuil2.Cells.ClearContents
 j = 1
With Feuil1
For i = .[A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 2) <> "" Then
  .Rows(i).Copy Feuil2.Rows(j)
  j = j + 1
End If
Next
End With
End Sub

A te relire

Martial

 

[gvives]

Re : Recopie de ligne en VBA

C'est parfait là ... Heu c'est seulement le code Feuil2.Cells.ClearContents qui permet d'éviter la copie des lignes vides ?

Merci beaucoup !!!

Gaëtan

 

[Yaloo]

Re : Recopie de ligne en VBA

Re,

Non

Feuil2.Cells.ClearContents

permet uniquement de supprimer toutes les données de la feuille 2.

C'est le j = j + 1 qui permet d'ajouter une ligne s'il y a des données.

S'il n'y a pas de données on ajoute pas 1 à j. (suis-je clair ????)

A+

Martial

 

[gvives]

Re : Recopie de ligne en VBA

Ha oui le J = J + 1 est inclu dans la condition grâce au retour à ligne (End if) dans la seconde version du code alors qu'il en est exclu dans la première version...

Tout est clair !!

Merci Merci Yaloo