Bonjour,
Jai un textbox sur un userform
J'ai dans une feuille de calcul les cellules I6:U6
Je souhaite que chaque caractère saisie dans le textbox aille dans chaque
cellule
Exemple : dans le textbox 123456... Dans la cellule I6 1, dans la J6 2, dans
la K6 3 etc. Chaque cellule son caractère dans l'ordre.
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
JB
Bonsoir,
For i = 1 To Len(Me.TextBox1) Sheets(1).Cells(6, 8 + i) = Mid(Me.TextBox1, i, 1) Next i
JB
On 22 juin, 19:26, "Didier NOVARIN" wrote:
Bonjour, Jai un textbox sur un userform J'ai dans une feuille de calcul les cellules I6:U6 Je souhaite que chaque caractère saisie dans le textbox aille dans chaq ue cellule Exemple : dans le textbox 123456... Dans la cellule I6 1, dans la J6 2, d ans la K6 3 etc. Chaque cellule son caractère dans l'ordre. Je vous remercie Didier
Bonsoir,
For i = 1 To Len(Me.TextBox1)
Sheets(1).Cells(6, 8 + i) = Mid(Me.TextBox1, i, 1)
Next i
JB
On 22 juin, 19:26, "Didier NOVARIN" <Didie...@club-internet.fr> wrote:
Bonjour,
Jai un textbox sur un userform
J'ai dans une feuille de calcul les cellules I6:U6
Je souhaite que chaque caractère saisie dans le textbox aille dans chaq ue
cellule
Exemple : dans le textbox 123456... Dans la cellule I6 1, dans la J6 2, d ans
la K6 3 etc. Chaque cellule son caractère dans l'ordre.
Je vous remercie
Didier
For i = 1 To Len(Me.TextBox1) Sheets(1).Cells(6, 8 + i) = Mid(Me.TextBox1, i, 1) Next i
JB
On 22 juin, 19:26, "Didier NOVARIN" wrote:
Bonjour, Jai un textbox sur un userform J'ai dans une feuille de calcul les cellules I6:U6 Je souhaite que chaque caractère saisie dans le textbox aille dans chaq ue cellule Exemple : dans le textbox 123456... Dans la cellule I6 1, dans la J6 2, d ans la K6 3 etc. Chaque cellule son caractère dans l'ordre. Je vous remercie Didier
Didier NOVARIN
C'est parfait JB Bonne soirée Didier
"JB" a écrit dans le message de news:
Bonsoir,
For i = 1 To Len(Me.TextBox1) Sheets(1).Cells(6, 8 + i) = Mid(Me.TextBox1, i, 1) Next i
JB
On 22 juin, 19:26, "Didier NOVARIN" wrote:
Bonjour, Jai un textbox sur un userform J'ai dans une feuille de calcul les cellules I6:U6 Je souhaite que chaque caractère saisie dans le textbox aille dans chaque cellule Exemple : dans le textbox 123456... Dans la cellule I6 1, dans la J6 2, dans la K6 3 etc. Chaque cellule son caractère dans l'ordre. Je vous remercie Didier
C'est parfait JB
Bonne soirée
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1182535204.858793.159530@u2g2000hsc.googlegroups.com...
Bonsoir,
For i = 1 To Len(Me.TextBox1)
Sheets(1).Cells(6, 8 + i) = Mid(Me.TextBox1, i, 1)
Next i
JB
On 22 juin, 19:26, "Didier NOVARIN" <Didie...@club-internet.fr> wrote:
Bonjour,
Jai un textbox sur un userform
J'ai dans une feuille de calcul les cellules I6:U6
Je souhaite que chaque caractère saisie dans le textbox aille dans chaque
cellule
Exemple : dans le textbox 123456... Dans la cellule I6 1, dans la J6 2,
dans
la K6 3 etc. Chaque cellule son caractère dans l'ordre.
Je vous remercie
Didier
For i = 1 To Len(Me.TextBox1) Sheets(1).Cells(6, 8 + i) = Mid(Me.TextBox1, i, 1) Next i
JB
On 22 juin, 19:26, "Didier NOVARIN" wrote:
Bonjour, Jai un textbox sur un userform J'ai dans une feuille de calcul les cellules I6:U6 Je souhaite que chaque caractère saisie dans le textbox aille dans chaque cellule Exemple : dans le textbox 123456... Dans la cellule I6 1, dans la J6 2, dans la K6 3 etc. Chaque cellule son caractère dans l'ordre. Je vous remercie Didier