Bonjour à tous,
ça avance mais ce n''est pas encore ça!
Sub bof()
Dim i, j, k, var,
Dim cel As Range, plage As Range
Dim ws As Worksheet, ws1 As Worksheet
Set ws = Sheets("feuil1")
Set ws1 = Sheets("feuil2")
ws1.Select
Cells.Select
Selection.ClearContents
ws.Select
With ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
nbl = .Row
nbc = .Column
End With
Set plage = ws.UsedRange
With plage
For j = 2 To nbc
For i = 1 To nbl
var = .Cells(i, j)
If var <> "" Then
Debug.Print var
If ws1.Cells(i, 2) = "" Then
ws.Cells(i, j).Copy ws1.Cells(i, 2)
ws.Cells(i, 1).Copy ws1.Cells(i, 1)
End If
End If
Next i
Next j
End With
End Sub
Cette situation fonctionne si il n' y a pas 2 variables sur la même ligne, mais pas dans mon problème posé.
si vous pouviez m'aider à résoudre ce pb?
J'aimerais surtout voir vos proposition car il y a sûrement plus simple
D'avance merci
(même si je continue à chercher.)
bonne journée à tous