1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Sub test()
Dim F As Worksheet
Dim derligne As Long
Dim I As Integer
Set F = Sheets("Feuil1") ' à adaoter
Application.ScreenUpdating = False
With F
derligne = .Cells(Rows.Count, 11).End(xlUp).Row ' déterminer le dernière ligne non vide de la colonne K
For I = 2 To derligne ' à titre d'exemple commencer par deuxieme ligne
If .Cells(I, 6) = "FF" Then .Cells(I, 1) = .Cells(I, 7) & " " & .Cells(I, 11)
If .Cells(I, 6) = "OF" Then .Cells(I, 1) = .Cells(I, 8) & " " & .Cells(I, 11)
If .Cells(I, 6) = "SS" Then .Cells(I, 1) = .Cells(I, 9) & " " & .Cells(I, 11)
Next I
End With
Application.ScreenUpdating = True
End Sub |
