Hello,
j'ai deux classeur excel un avec mon projet vba dams le premier et des donnes dans le deuxieme
je souheterais que ma macro suivante s'execute automatiquement lorsque je copie colle les donnees du classeur 2 dans la feuille 5 du classeur 1 :
Sub Macroticker()
Columns("A:A").Select
Selection.NumberFormat = "@"
Dim TICKER As Range
Dim letter As String
Dim D As Range
Dim E As Range
Dim i, nb, lg As Integer
Set TICKER = Worksheets("Sheet5").Range("A2:A2000")
For Each D In TICKER
If Len(D) = 5 Then
D.Value = "0" & D
End If
Next D
For Each D In TICKER
If Len(D) = 4 Then
D.Value = "00" & D
End If
Next D
For Each D In TICKER
If Len(D) = 3 Then
D.Value = "000" & D
End If
Next D
For Each D In TICKER
If Len(D) = 2 Then
D.Value = "0000" & D
End If
Next D
For Each D In TICKER
If Len(D) = 1 Then
D.Value = "00000" & D
End If
Next D
For Each D In TICKER
D.Value = D & " KS"
Next D
End Sub
Une idee de comment faire sans bouton de commande ?
merci