Décomposer un nombre

[Claudy]

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

 

[gilbert_RGI]

Re : Décomposer un nombre

est-ce que ce fichier fonctionne ?

 

[phlaurent55]

Re : Décomposer un nombre

Re à tous,

à quoi ça sert que Ducros y se décarcasse.................ça fait déjà un bout de temps que je t'ai envoyé la solution ( la première à 09H40')
dis-nous au moins si ça va

 

[gilbert_RGI]

Re : Décomposer un nombre

Re à tous,

à quoi ça sert que Ducros y se décarcasse.................ça fait déjà un bout de temps que je t'ai envoyé la solution ( la première à 09H40')
dis-nous au moins si ça va

Ce n'est pas la solution mais le contournement à son problème

différent

 

[Claudy]

Re : Décomposer un nombre

Merci Gilbert....
En effet il y avait une référence cochée pour une application manquant(Pdfcreator), j'ai décoché et toutes vos bonnes macro fonctionnent!
Merci à vous tous...
Bon WE
Claudy