K
k
Guest
Nous cherchons a réaliser une macro qui nous permette de
couper et de coller une ligne d'un tableau X dans un
tableau Y en ayant pour critère que deux colonnes bien
précises soient non-vides .
Voila le début de la macro réalisée, le problème est que
cette macro ne fait que copier et coller les deux
colonnes évoquées et non pas la ligne entière. Comment
peut-on a modifier ?
Sub Copie()
Set s = Selection
For i = 1 To s.Rows.Count
If s(i, 1) <> "" And s(i, 2) <> "" Then
k = k + 1
With Worksheets("Y")
.Cells(k, 1) = s(i, 1)
.Cells(k, 2) = s(i, 2)
End With
End If
Next i
End Sub
couper et de coller une ligne d'un tableau X dans un
tableau Y en ayant pour critère que deux colonnes bien
précises soient non-vides .
Voila le début de la macro réalisée, le problème est que
cette macro ne fait que copier et coller les deux
colonnes évoquées et non pas la ligne entière. Comment
peut-on a modifier ?
Sub Copie()
Set s = Selection
For i = 1 To s.Rows.Count
If s(i, 1) <> "" And s(i, 2) <> "" Then
k = k + 1
With Worksheets("Y")
.Cells(k, 1) = s(i, 1)
.Cells(k, 2) = s(i, 2)
End With
End If
Next i
End Sub