Bonsoir
Je souhaite créer une procédure qui fasse la chose suivante :
J'ai une cellule A1 avec des lignes à l'intérieur ex: 30
Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans
une autre cellule C1
Je vous remercie
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
Bonsoir Didier,
par quel bout prendre cette question,
déjà comment se fait le retour
sinon pifomêtriquement au nombre de chr
en b1
=stxt(a1;1,nbcar(a1)/2)
en c1
=stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur
;-))
Cordialement.
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: OSnSj1P2GHA.4228@TK2MSFTNGP06.phx.gbl...
Bonsoir
Je souhaite créer une procédure qui fasse la chose suivante :
J'ai une cellule A1 avec des lignes à l'intérieur ex: 30
Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans
une autre cellule C1
Je vous remercie
Didier
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
Didier Novarin
Bonsoir et merci LSteph Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche "Entrée", je vais à la ligne. Euh... Ce serait vraiment très sympa en VBA ;-) Je te remercie Didier
"lSteph" a écrit dans le message de news: %
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
Bonsoir et merci LSteph
Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche
"Entrée", je vais à la ligne.
Euh... Ce serait vraiment très sympa en VBA ;-)
Je te remercie
Didier
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23fAEbfQ2GHA.4388@TK2MSFTNGP03.phx.gbl...
Bonsoir Didier,
par quel bout prendre cette question,
déjà comment se fait le retour
sinon pifomêtriquement au nombre de chr
en b1
=stxt(a1;1,nbcar(a1)/2)
en c1
=stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur
;-))
Cordialement.
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: OSnSj1P2GHA.4228@TK2MSFTNGP06.phx.gbl...
Bonsoir
Je souhaite créer une procédure qui fasse la chose suivante :
J'ai une cellule A1 avec des lignes à l'intérieur ex: 30
Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans
une autre cellule C1
Je vous remercie
Didier
Bonsoir et merci LSteph Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche "Entrée", je vais à la ligne. Euh... Ce serait vraiment très sympa en VBA ;-) Je te remercie Didier
"lSteph" a écrit dans le message de news: %
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
lSteph
re, je reste sur le scénario de cellule à distribuer en deux (cela me parait déjà assez hasardeux, mais voici une tentative)
Sub destack() With Cells(1, 1) .Offset(0, 1) = Mid(.Text, 1, Len(.Text) / 2) .Offset(0, 1).ColumnWidth = .ColumnWidth .Offset(0, 2) = Mid(.Text, 1 + Len(.Text) / 2, 999) .Offset(0, 2).ColumnWidth = .ColumnWidth End With
End Sub
'Cordialement
'lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir et merci LSteph Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche "Entrée", je vais à la ligne. Euh... Ce serait vraiment très sympa en VBA ;-) Je te remercie Didier
"lSteph" a écrit dans le message de news: %
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
re,
je reste sur le scénario de cellule à distribuer en deux
(cela me parait déjà assez hasardeux, mais voici une tentative)
Sub destack()
With Cells(1, 1)
.Offset(0, 1) = Mid(.Text, 1, Len(.Text) / 2)
.Offset(0, 1).ColumnWidth = .ColumnWidth
.Offset(0, 2) = Mid(.Text, 1 + Len(.Text) / 2, 999)
.Offset(0, 2).ColumnWidth = .ColumnWidth
End With
End Sub
'Cordialement
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23XtYRiQ2GHA.1040@TK2MSFTNGP06.phx.gbl...
Bonsoir et merci LSteph
Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche
"Entrée", je vais à la ligne.
Euh... Ce serait vraiment très sympa en VBA ;-)
Je te remercie
Didier
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23fAEbfQ2GHA.4388@TK2MSFTNGP03.phx.gbl...
Bonsoir Didier,
par quel bout prendre cette question,
déjà comment se fait le retour
sinon pifomêtriquement au nombre de chr
en b1
=stxt(a1;1,nbcar(a1)/2)
en c1
=stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur
;-))
Cordialement.
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: OSnSj1P2GHA.4228@TK2MSFTNGP06.phx.gbl...
Bonsoir
Je souhaite créer une procédure qui fasse la chose suivante :
J'ai une cellule A1 avec des lignes à l'intérieur ex: 30
Les 15 premières lignes aillent dans une cellule B1 et les 15 autres
dans une autre cellule C1
Je vous remercie
Didier
re, je reste sur le scénario de cellule à distribuer en deux (cela me parait déjà assez hasardeux, mais voici une tentative)
Sub destack() With Cells(1, 1) .Offset(0, 1) = Mid(.Text, 1, Len(.Text) / 2) .Offset(0, 1).ColumnWidth = .ColumnWidth .Offset(0, 2) = Mid(.Text, 1 + Len(.Text) / 2, 999) .Offset(0, 2).ColumnWidth = .ColumnWidth End With
End Sub
'Cordialement
'lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir et merci LSteph Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche "Entrée", je vais à la ligne. Euh... Ce serait vraiment très sympa en VBA ;-) Je te remercie Didier
"lSteph" a écrit dans le message de news: %
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
Didier Novarin
Ok merci beaucoup LSteph C'est parfait Bonne soirée Didier
"lSteph" a écrit dans le message de news:
re, je reste sur le scénario de cellule à distribuer en deux (cela me parait déjà assez hasardeux, mais voici une tentative)
Sub destack() With Cells(1, 1) .Offset(0, 1) = Mid(.Text, 1, Len(.Text) / 2) .Offset(0, 1).ColumnWidth = .ColumnWidth .Offset(0, 2) = Mid(.Text, 1 + Len(.Text) / 2, 999) .Offset(0, 2).ColumnWidth = .ColumnWidth End With
End Sub
'Cordialement
'lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir et merci LSteph Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche "Entrée", je vais à la ligne. Euh... Ce serait vraiment très sympa en VBA ;-) Je te remercie Didier
"lSteph" a écrit dans le message de news: %
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
Ok merci beaucoup LSteph
C'est parfait
Bonne soirée
Didier
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
Oqsdc0Q2GHA.2196@TK2MSFTNGP06.phx.gbl...
re,
je reste sur le scénario de cellule à distribuer en deux
(cela me parait déjà assez hasardeux, mais voici une tentative)
Sub destack()
With Cells(1, 1)
.Offset(0, 1) = Mid(.Text, 1, Len(.Text) / 2)
.Offset(0, 1).ColumnWidth = .ColumnWidth
.Offset(0, 2) = Mid(.Text, 1 + Len(.Text) / 2, 999)
.Offset(0, 2).ColumnWidth = .ColumnWidth
End With
End Sub
'Cordialement
'lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23XtYRiQ2GHA.1040@TK2MSFTNGP06.phx.gbl...
Bonsoir et merci LSteph
Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche
"Entrée", je vais à la ligne.
Euh... Ce serait vraiment très sympa en VBA ;-)
Je te remercie
Didier
"lSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23fAEbfQ2GHA.4388@TK2MSFTNGP03.phx.gbl...
Bonsoir Didier,
par quel bout prendre cette question,
déjà comment se fait le retour
sinon pifomêtriquement au nombre de chr
en b1
=stxt(a1;1,nbcar(a1)/2)
en c1
=stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur
;-))
Cordialement.
lSteph
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: OSnSj1P2GHA.4228@TK2MSFTNGP06.phx.gbl...
Bonsoir
Je souhaite créer une procédure qui fasse la chose suivante :
J'ai une cellule A1 avec des lignes à l'intérieur ex: 30
Les 15 premières lignes aillent dans une cellule B1 et les 15 autres
dans une autre cellule C1
Je vous remercie
Didier
Ok merci beaucoup LSteph C'est parfait Bonne soirée Didier
"lSteph" a écrit dans le message de news:
re, je reste sur le scénario de cellule à distribuer en deux (cela me parait déjà assez hasardeux, mais voici une tentative)
Sub destack() With Cells(1, 1) .Offset(0, 1) = Mid(.Text, 1, Len(.Text) / 2) .Offset(0, 1).ColumnWidth = .ColumnWidth .Offset(0, 2) = Mid(.Text, 1 + Len(.Text) / 2, 999) .Offset(0, 2).ColumnWidth = .ColumnWidth End With
End Sub
'Cordialement
'lSteph
"Didier Novarin" a écrit dans le message de news: %
Bonsoir et merci LSteph Il s'agit de ligne saisit dans un textbox et à chaque fois avec la touche "Entrée", je vais à la ligne. Euh... Ce serait vraiment très sympa en VBA ;-) Je te remercie Didier
"lSteph" a écrit dans le message de news: %
Bonsoir Didier, par quel bout prendre cette question, déjà comment se fait le retour sinon pifomêtriquement au nombre de chr en b1 =stxt(a1;1,nbcar(a1)/2) en c1 =stxt(a1;nbcar(a1)/2+1;999)
sinon avec vba tu en profites pour envisager la bonne largeur ;-))
Cordialement.
lSteph
"Didier Novarin" a écrit dans le message de news:
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
JB
Coupure sur ligne entière:
p = InStr(Len([A1]) / 2, [A1], Chr(10)) [B1] = Left([A1], p - 1) [C1] = Mid([A1], p + 1)
JB
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres da ns une autre cellule C1 Je vous remercie Didier
Coupure sur ligne entière:
p = InStr(Len([A1]) / 2, [A1], Chr(10))
[B1] = Left([A1], p - 1)
[C1] = Mid([A1], p + 1)
JB
Bonsoir
Je souhaite créer une procédure qui fasse la chose suivante :
J'ai une cellule A1 avec des lignes à l'intérieur ex: 30
Les 15 premières lignes aillent dans une cellule B1 et les 15 autres da ns
une autre cellule C1
Je vous remercie
Didier
p = InStr(Len([A1]) / 2, [A1], Chr(10)) [B1] = Left([A1], p - 1) [C1] = Mid([A1], p + 1)
JB
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres da ns une autre cellule C1 Je vous remercie Didier
Didier Novarin
Merci beaucoup JB Très bonne journée Didier
"JB" a écrit dans le message de news:
Coupure sur ligne entière:
p = InStr(Len([A1]) / 2, [A1], Chr(10)) [B1] = Left([A1], p - 1) [C1] = Mid([A1], p + 1)
JB
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier
Merci beaucoup JB
Très bonne journée
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1158382150.068819.316190@k70g2000cwa.googlegroups.com...
Coupure sur ligne entière:
p = InStr(Len([A1]) / 2, [A1], Chr(10))
[B1] = Left([A1], p - 1)
[C1] = Mid([A1], p + 1)
JB
Bonsoir
Je souhaite créer une procédure qui fasse la chose suivante :
J'ai une cellule A1 avec des lignes à l'intérieur ex: 30
Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans
une autre cellule C1
Je vous remercie
Didier
p = InStr(Len([A1]) / 2, [A1], Chr(10)) [B1] = Left([A1], p - 1) [C1] = Mid([A1], p + 1)
JB
Bonsoir Je souhaite créer une procédure qui fasse la chose suivante : J'ai une cellule A1 avec des lignes à l'intérieur ex: 30 Les 15 premières lignes aillent dans une cellule B1 et les 15 autres dans une autre cellule C1 Je vous remercie Didier