ecrire dans la cellule d'en-dessous

Question

bonjour,
j'ai fais une macro qui simule un copier coller sous excel.En faite quand j'importe des donn&#233;es trop longue,il faut que ca puisse ecrire lotre partie du texte dans la cellule de dessous.
Ex:
"Le chat s'est fait mang&#233; par la souris!!!" cela donne apr&#232; importation:
ligne1  |Le chat s'est fait mang&#233;|
ligne2  |par la souris                 |

MERCI

ScSami · Answer

Regarde dans l'aide du VB (la MSDN) les instructions et fonctions :

Len(chaine)  'Longueur de la chaine

Mid(
chaine, d&#233;but, longueure
)  'Extrait du texte d'une chaine

Right(
chaine, longueur
)  'Idem mais en partant de droite

et Left(
chaine, longueur
)  'Idem mais &#224; gauche



Par exemple, si tu veux limiter la taille de tes lignes &#224;, disons, 10 caract&#232;res :



varText = "Le chat s'est fait bouff&#233; tout cru par la Super Souris nomm&#233;e Codyx."

Do While Len(varText) > 0

  If Len(varText) > 10 then

    TaCellule.Value = Mid(varText, 1, 10)

    varText = Mid(varText, 11, Len(varText) - 10)

  End If

Loop



Voil&#224;, j'esp&#232;re que &#231;a &#224; pu t'aider... Si t'as pas compris un truc, dit le moi ok  



Enjoy



(Si une r&#233;ponse vous convient, cliquez sur le bouton en dessous...)

erti1711 · Answer

Merci je vais essayer jte tiens au courant.

jpleroisse · Answer

Bonjour,

>>ertil1711, j'ai pr&#233;par&#233; un classeur dont j'en ai fait un fichier zip.

Malheureusement, j'ai perdu toutes mes adresses, cel&#224; est du &#224; un
plantage de mon ordi (c'est une catastrophe depuis que le forum a
chang&#233; de configuration,c'&#233;tait d&#233;j&#224;  long avant, maitenant, c'est
pire avec en plus des plantages.)



Je vais donc te donner le code , nomme tes ent^tes de cellules A1 &#224; D1

REF, DESIGNATION,QTE,PRIX

Sur ton UserForm, 4 TextBox et 1 CommandButton(cmdValider)



Private Sub cmdValider_Click()

Dim En_Colonne, En_Ligne

Range("A2").Select

En_Colonne = ActiveCell.Column

En_Ligne = ActiveCell.Row + 1

    While Not IsEmpty(ActiveCell.Value)

    Cells(En_Ligne, En_Colonne).Activate

    En_Ligne = En_Ligne + 1

Wend

With ActiveCell

    .Offset(0, 0).Value = TextBox1

    .Offset(0, 1).Value = TextBox2

    .Offset(0, 2).Value = TextBox3

    .Offset(0, 3).Value = TextBox4

End With



'effacer les TextBox pour une entr&#233;e suivante

Dim obj As Object

    For Each obj In Me.Controls

    If TypeName(obj) = "TextBox" Then

        obj.Text = ""

    End If

Next

End Sub



jpleroisse

Ecrire dans la cellule d'en-dessous

3 réponses