Claudy
XLDnaute Accro
Bonjour,
pour décomposer un nombre de huit chiffres à replaxer dans huit colonnes, j'ai trouvé dans ce forum la macro suivante que j'ai adapté à mes besoins...
Mais elle "bugge" sur le MID :
Erreur de complation, projet ou bibliothèque introuvable!
Merci d'avance pour votre aide.
Sub Macro2()
'
Dim i As Byte
Dim zaza As String
zaza = Application.InputBox("Donner l'index du compteur eaux:")
For i = 1 To 8
Cells(7, i + 15) = Mid(zaza, i, 1)
Next i
End Sub
pour décomposer un nombre de huit chiffres à replaxer dans huit colonnes, j'ai trouvé dans ce forum la macro suivante que j'ai adapté à mes besoins...
Mais elle "bugge" sur le MID :
Erreur de complation, projet ou bibliothèque introuvable!
Merci d'avance pour votre aide.
Sub Macro2()
'
Dim i As Byte
Dim zaza As String
zaza = Application.InputBox("Donner l'index du compteur eaux:")
For i = 1 To 8
Cells(7, i + 15) = Mid(zaza, i, 1)
Next i
End Sub