1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub Generer_Login()
For i = 2 To ActiveSheet.Range("A65536").End(xlUp).Row 'trouve la derniere ligne de la colonne" A" en partant d'en bas
If ActiveSheet.Cells(i, 1).Value <> "" Then 'si A n'est pas vide alors
ActiveSheet.Cells(i, 1).Select
ActiveCell.Offset(0, 4).Value = _
"=LOWER(LEFT(RC[-3])&IF(ISERROR(FIND("" "",SUBSTITUTE(RC[-3],""-"","" ""))),"""",MID(RC[-3],FIND("" "",SUBSTITUTE(RC[-3],""-"","" ""))+1,1))&SUBSTITUTE(SUBSTITUTE(RC[-4],"" "",""""),""-"",""""))"
End If 'fin de condition
Next ' fin de boucle
Columns("E:E").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub |
Partager