Discussion :

[sempire]

Bonjour,
Je souhaiterais dispatcher le contenu d'une cellule sur toutes les cellules suivantes.
Exemple :

Code :

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

1
2
3
4
 
A1 : Salut
Résultat : 
A1 : S A2 : a A3: l A4: u A5: t

Quelle fonction puis-je utiliser ou quelle est la manipulation ?

Je vous remercie d'avance pour toute réponse.

Sempire

[helas]

Bonjour,
plusieurs solutions
1) dans les cellules suivantes entrer la fonction =STXT(A2;1;1) puis =STXT(A2;2;1) puis =STXT(A2;3;1) puis ...
2) créer une fonction

[zyhack]

Bonjour

une solution

Code :

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

1
2
3
4
5
6
7
8
Dim nb As Long
Dim C As Object
 
With Range("A1")
  For nb = 1 To Len(.Value)
    .Offset(0, nb) = Mid(.Value, nb, 1)
  Next
End With