Changement de cellule après x caractères Résolu/Fermé

Question

Bonjour, 

J'aurais aimé savoir si dans VBA il était possible de faire un petit programme qui change de cellule automatiquement après avoir tapé 3 caractères dans la cellule plutôt que de devoir taper sur tabulation.

Du genre
Je suis en A1, je tape 7 "azertyuiop" je trouve :
en A1 : aze
en B1 : rty
en C1 : uio
en D1 : p

Dans le même esprit, je voudrais savoir si après avoir remplis 5 cellules (avec 3 caractères chacune) il est possible de se retrouver sur la ligne en dessous et de reprendre le même cycle.

Pour reprendre mon exemple, après avoir tapé mon "azertyuiop", je tape "qsdfghjkl" j'ai donc
en D1 : pqs
en A2 : dfg
en B2 : hjk
en C2 : l

Est-il possible de faire ça simplement ? Sur plusieurs plages différentes sur une feuille ?

Merci d'avance.

michel_m · Answer

Binjour, 

Est-il possible de faire ça? oui
Simplement ? bof! 
le point noir est la longueur avec un reste de la division par X
le code à adapter à ton contexte
segment représente la longueur de X (3 actuellement mais possible de changer)

Option Explicit

Sub test()
découpertexteparX 3
End Sub
'-------------------------------------------

Sub découpertexteparX(segment)
Dim F As Byte, Fin As Byte, Lig As Byte, Concat As String
Dim Nbre As Byte, cptr As Byte, T_dec()

Fin = Columns("A").Find("*", , , , , xlPrevious).Row
For Lig = 1 To Fin
     Concat = Concat & Cells(Lig, "A")
Next
Nbre = Int(Len(Concat) / segment)
If Len(Concat) Mod segment <> 0 Then Nbre = Nbre + 1

ReDim T_dec(1 To Nbre)
For cptr = 1 To UBound(T_dec)
     T_dec(cptr) = Left(Concat, segment)
     If cptr = UBound(T_dec) Then
          T_dec(cptr) = Concat
     Else
          Concat = Right(Concat, Len(Concat) - segment)
     End If
Next
Range("B1").Resize(1, UBound(T_dec)) = T_dec

End Sub

la maquette de W
https://www.cjoint.com/?3Iesk2AwUwh

 dans l'attente de ta réaction
 Michel

Changement de cellule après x caractères

1 réponse

Discussions similaires