Discussion :

[khroutchev]

Bonjour,
j'aimerais savoir si le code joint est bon (ce dont je doute).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim i As Long
derligne = Range("S65000").End(xlUp).Row
For i = 1 To derligne
Cells(i, 19) = Mid(Range("R" & i).Value, 7, 4)
Next i
End Sub

J'aimerais en faite n'extraire que les 4 derniers caractères des cellules de la colonne R et les importer dans ma colonne S. Chaque cellule de la colonne R est consituée de 10 caractères.

Merci d'avance

[gFZT82]

Bonjour,

Si tu dois renseigner la colonne S, c'est qu'à priori elle est vide.
La dernière ligne renseignée est donc à rechercher dans la colonne R.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim DerLigne As Long, i As Long
    DerLigne = Range("R" & Rows.Count).End(xlUp).Row
    For i = 1 To DerLigne
        Cells(i, 19) = Mid(Range("R" & i).Value, 7, 4)
    Next i
End Sub

Cordialement.

[khroutchev]

Merci