OVH Cloud OVH Cloud

Aide sur TextBox

6 réponses
Avatar
Laure
Bonsoir à tous et à toutes,

J'ai créé un UserForm avec une TextBox, dont je souhaite récupérer le
contenu dans la colonne D sur une feuille nommée "NOTES"

Voici le code :

Private Sub CommandButton1_Click()

num = Sheets("NOTES").Range("D65536").End(xlUp).Row + 1
Range("D" & num).Value = TextBox1.Value

Unload UserForm2

End Sub

Le problème c'est qu'il me met le contenu de la TextBox sur la colonne D de
la feuille active, qui peut être n'importe laquelle puisque j'ai placé un
bouton "UserForm2.Show" sur toutes les feuilles de mon classeur. Pourquoi
donc ? Quelle erreur ai-je fait ?

Et d'autre part, je souhaiterais qu'une fois la macro exécutée, Excel
revienne sur la feuille et la cellule qui était active au moment où j'ai
exécuté la macro. Ca peut être aussi n'importe où puisque j'ai
volontairement réglé le UserForm en mode non-modal. En gros, que le texte
soit récupéré, mais que vu d'ici, j'ai juste l'impression d'avoir fermé le
UserForm...


D'autre part, si le texte que je saisis dans la TextBox est :
Lundi
Mardi
Mercredi
(avec passage à la ligne à chaque fois)

Le texte récupéré se présente pareil, avec le retour à la ligne, mais il y a
un carré en bout de ligne (qui représente le passage à la ligne), donc le
passage à la ligne est double, une fois réel, et une fois sous forme de
caractère le représentant... Bizarre, non ?
Comment faire pour que ce soit visuellement strictement comme dans la
TextBox ? Eliminer ce "foutu" petit carré qui m'enquiquine ?

Qui peut m'aider ?

Grand merci d'avance,

Laure

6 réponses

Avatar
Daniel
Bonsoir.
Sans doute :
Sheets("NOTES").Range("D" & num).Value = TextBox1.Value
Cordialement.
Daniel
"Laure" a écrit dans le message de news:
434c133c$0$1709$

Bonsoir à tous et à toutes,

J'ai créé un UserForm avec une TextBox, dont je souhaite récupérer le
contenu dans la colonne D sur une feuille nommée "NOTES"

Voici le code :

Private Sub CommandButton1_Click()

num = Sheets("NOTES").Range("D65536").End(xlUp).Row + 1
Range("D" & num).Value = TextBox1.Value

Unload UserForm2

End Sub

Le problème c'est qu'il me met le contenu de la TextBox sur la colonne D
de la feuille active, qui peut être n'importe laquelle puisque j'ai placé
un bouton "UserForm2.Show" sur toutes les feuilles de mon classeur.
Pourquoi donc ? Quelle erreur ai-je fait ?

Et d'autre part, je souhaiterais qu'une fois la macro exécutée, Excel
revienne sur la feuille et la cellule qui était active au moment où j'ai
exécuté la macro. Ca peut être aussi n'importe où puisque j'ai
volontairement réglé le UserForm en mode non-modal. En gros, que le texte
soit récupéré, mais que vu d'ici, j'ai juste l'impression d'avoir fermé le
UserForm...


D'autre part, si le texte que je saisis dans la TextBox est :
Lundi
Mardi
Mercredi
(avec passage à la ligne à chaque fois)

Le texte récupéré se présente pareil, avec le retour à la ligne, mais il y
a un carré en bout de ligne (qui représente le passage à la ligne), donc
le passage à la ligne est double, une fois réel, et une fois sous forme de
caractère le représentant... Bizarre, non ?
Comment faire pour que ce soit visuellement strictement comme dans la
TextBox ? Eliminer ce "foutu" petit carré qui m'enquiquine ?

Qui peut m'aider ?

Grand merci d'avance,

Laure



Avatar
Laure
Hé non... Malheureusement, cela ne fonctionne pas...
Merci tout de même d'y avoir réfléchi :-)
Si il y a d'autres idées je suis preneuse...


"Daniel" a écrit dans le message de news:

Bonsoir.
Sans doute :
Sheets("NOTES").Range("D" & num).Value = TextBox1.Value
Cordialement.
Daniel
"Laure" a écrit dans le message de news:
434c133c$0$1709$

Bonsoir à tous et à toutes,

J'ai créé un UserForm avec une TextBox, dont je souhaite récupérer le
contenu dans la colonne D sur une feuille nommée "NOTES"

Voici le code :

Private Sub CommandButton1_Click()

num = Sheets("NOTES").Range("D65536").End(xlUp).Row + 1
Range("D" & num).Value = TextBox1.Value

Unload UserForm2

End Sub

Le problème c'est qu'il me met le contenu de la TextBox sur la colonne D
de la feuille active, qui peut être n'importe laquelle puisque j'ai placé
un bouton "UserForm2.Show" sur toutes les feuilles de mon classeur.
Pourquoi donc ? Quelle erreur ai-je fait ?

Et d'autre part, je souhaiterais qu'une fois la macro exécutée, Excel
revienne sur la feuille et la cellule qui était active au moment où j'ai
exécuté la macro. Ca peut être aussi n'importe où puisque j'ai
volontairement réglé le UserForm en mode non-modal. En gros, que le texte
soit récupéré, mais que vu d'ici, j'ai juste l'impression d'avoir fermé
le UserForm...


D'autre part, si le texte que je saisis dans la TextBox est :
Lundi
Mardi
Mercredi
(avec passage à la ligne à chaque fois)

Le texte récupéré se présente pareil, avec le retour à la ligne, mais il
y a un carré en bout de ligne (qui représente le passage à la ligne),
donc le passage à la ligne est double, une fois réel, et une fois sous
forme de caractère le représentant... Bizarre, non ?
Comment faire pour que ce soit visuellement strictement comme dans la
TextBox ? Eliminer ce "foutu" petit carré qui m'enquiquine ?

Qui peut m'aider ?

Grand merci d'avance,

Laure







Avatar
Daniel
Regarde le classeur joint à l'adresse :
http://cjoint.com/?klwxxBH4Oe
Daniel
"Laure" a écrit dans le message de news:
434c1aa7$0$17226$
Hé non... Malheureusement, cela ne fonctionne pas...
Merci tout de même d'y avoir réfléchi :-)
Si il y a d'autres idées je suis preneuse...


"Daniel" a écrit dans le message de news:

Bonsoir.
Sans doute :
Sheets("NOTES").Range("D" & num).Value = TextBox1.Value
Cordialement.
Daniel
"Laure" a écrit dans le message de news:
434c133c$0$1709$

Bonsoir à tous et à toutes,

J'ai créé un UserForm avec une TextBox, dont je souhaite récupérer le
contenu dans la colonne D sur une feuille nommée "NOTES"

Voici le code :

Private Sub CommandButton1_Click()

num = Sheets("NOTES").Range("D65536").End(xlUp).Row + 1
Range("D" & num).Value = TextBox1.Value

Unload UserForm2

End Sub

Le problème c'est qu'il me met le contenu de la TextBox sur la colonne D
de la feuille active, qui peut être n'importe laquelle puisque j'ai
placé un bouton "UserForm2.Show" sur toutes les feuilles de mon
classeur. Pourquoi donc ? Quelle erreur ai-je fait ?

Et d'autre part, je souhaiterais qu'une fois la macro exécutée, Excel
revienne sur la feuille et la cellule qui était active au moment où j'ai
exécuté la macro. Ca peut être aussi n'importe où puisque j'ai
volontairement réglé le UserForm en mode non-modal. En gros, que le
texte soit récupéré, mais que vu d'ici, j'ai juste l'impression d'avoir
fermé le UserForm...


D'autre part, si le texte que je saisis dans la TextBox est :
Lundi
Mardi
Mercredi
(avec passage à la ligne à chaque fois)

Le texte récupéré se présente pareil, avec le retour à la ligne, mais il
y a un carré en bout de ligne (qui représente le passage à la ligne),
donc le passage à la ligne est double, une fois réel, et une fois sous
forme de caractère le représentant... Bizarre, non ?
Comment faire pour que ce soit visuellement strictement comme dans la
TextBox ? Eliminer ce "foutu" petit carré qui m'enquiquine ?

Qui peut m'aider ?

Grand merci d'avance,

Laure











Avatar
Laure
Youpi !!!! :-)
Merci beaucoup, Daniel tout fonctionne maintenant.

Par contre pour mes petits carrés, la question tient toujours !!

Laure

"Daniel" a écrit dans le message de news:

Regarde le classeur joint à l'adresse :
http://cjoint.com/?klwxxBH4Oe
Daniel
"Laure" a écrit dans le message de news:
434c1aa7$0$17226$
Hé non... Malheureusement, cela ne fonctionne pas...
Merci tout de même d'y avoir réfléchi :-)
Si il y a d'autres idées je suis preneuse...


"Daniel" a écrit dans le message de news:

Bonsoir.
Sans doute :
Sheets("NOTES").Range("D" & num).Value = TextBox1.Value
Cordialement.
Daniel
"Laure" a écrit dans le message de news:
434c133c$0$1709$

Bonsoir à tous et à toutes,

J'ai créé un UserForm avec une TextBox, dont je souhaite récupérer le
contenu dans la colonne D sur une feuille nommée "NOTES"

Voici le code :

Private Sub CommandButton1_Click()

num = Sheets("NOTES").Range("D65536").End(xlUp).Row + 1
Range("D" & num).Value = TextBox1.Value

Unload UserForm2

End Sub

Le problème c'est qu'il me met le contenu de la TextBox sur la colonne
D de la feuille active, qui peut être n'importe laquelle puisque j'ai
placé un bouton "UserForm2.Show" sur toutes les feuilles de mon
classeur. Pourquoi donc ? Quelle erreur ai-je fait ?

Et d'autre part, je souhaiterais qu'une fois la macro exécutée, Excel
revienne sur la feuille et la cellule qui était active au moment où
j'ai exécuté la macro. Ca peut être aussi n'importe où puisque j'ai
volontairement réglé le UserForm en mode non-modal. En gros, que le
texte soit récupéré, mais que vu d'ici, j'ai juste l'impression d'avoir
fermé le UserForm...


D'autre part, si le texte que je saisis dans la TextBox est :
Lundi
Mardi
Mercredi
(avec passage à la ligne à chaque fois)

Le texte récupéré se présente pareil, avec le retour à la ligne, mais
il y a un carré en bout de ligne (qui représente le passage à la
ligne), donc le passage à la ligne est double, une fois réel, et une
fois sous forme de caractère le représentant... Bizarre, non ?
Comment faire pour que ce soit visuellement strictement comme dans la
TextBox ? Eliminer ce "foutu" petit carré qui m'enquiquine ?

Qui peut m'aider ?

Grand merci d'avance,

Laure















Avatar
Daniel
Ajoute un truc du genre :
Var = Selection.Replace(Chr(13), "")
Daniel
"Laure" a écrit dans le message de news:
434c1fa8$0$5362$
Youpi !!!! :-)
Merci beaucoup, Daniel tout fonctionne maintenant.

Par contre pour mes petits carrés, la question tient toujours !!

Laure

"Daniel" a écrit dans le message de news:

Regarde le classeur joint à l'adresse :
http://cjoint.com/?klwxxBH4Oe
Daniel
"Laure" a écrit dans le message de news:
434c1aa7$0$17226$
Hé non... Malheureusement, cela ne fonctionne pas...
Merci tout de même d'y avoir réfléchi :-)
Si il y a d'autres idées je suis preneuse...


"Daniel" a écrit dans le message de news:

Bonsoir.
Sans doute :
Sheets("NOTES").Range("D" & num).Value = TextBox1.Value
Cordialement.
Daniel
"Laure" a écrit dans le message de news:
434c133c$0$1709$

Bonsoir à tous et à toutes,

J'ai créé un UserForm avec une TextBox, dont je souhaite récupérer le
contenu dans la colonne D sur une feuille nommée "NOTES"

Voici le code :

Private Sub CommandButton1_Click()

num = Sheets("NOTES").Range("D65536").End(xlUp).Row + 1
Range("D" & num).Value = TextBox1.Value

Unload UserForm2

End Sub

Le problème c'est qu'il me met le contenu de la TextBox sur la colonne
D de la feuille active, qui peut être n'importe laquelle puisque j'ai
placé un bouton "UserForm2.Show" sur toutes les feuilles de mon
classeur. Pourquoi donc ? Quelle erreur ai-je fait ?

Et d'autre part, je souhaiterais qu'une fois la macro exécutée, Excel
revienne sur la feuille et la cellule qui était active au moment où
j'ai exécuté la macro. Ca peut être aussi n'importe où puisque j'ai
volontairement réglé le UserForm en mode non-modal. En gros, que le
texte soit récupéré, mais que vu d'ici, j'ai juste l'impression
d'avoir fermé le UserForm...


D'autre part, si le texte que je saisis dans la TextBox est :
Lundi
Mardi
Mercredi
(avec passage à la ligne à chaque fois)

Le texte récupéré se présente pareil, avec le retour à la ligne, mais
il y a un carré en bout de ligne (qui représente le passage à la
ligne), donc le passage à la ligne est double, une fois réel, et une
fois sous forme de caractère le représentant... Bizarre, non ?
Comment faire pour que ce soit visuellement strictement comme dans la
TextBox ? Eliminer ce "foutu" petit carré qui m'enquiquine ?

Qui peut m'aider ?

Grand merci d'avance,

Laure



















Avatar
Laure
Ca fonctionne !!

Merci !

Laure


"Daniel" a écrit dans le message de news:

Ajoute un truc du genre :
Var = Selection.Replace(Chr(13), "")
Daniel
"Laure" a écrit dans le message de news:
434c1fa8$0$5362$
Youpi !!!! :-)
Merci beaucoup, Daniel tout fonctionne maintenant.

Par contre pour mes petits carrés, la question tient toujours !!

Laure

"Daniel" a écrit dans le message de news:

Regarde le classeur joint à l'adresse :
http://cjoint.com/?klwxxBH4Oe
Daniel
"Laure" a écrit dans le message de news:
434c1aa7$0$17226$
Hé non... Malheureusement, cela ne fonctionne pas...
Merci tout de même d'y avoir réfléchi :-)
Si il y a d'autres idées je suis preneuse...


"Daniel" a écrit dans le message de news:

Bonsoir.
Sans doute :
Sheets("NOTES").Range("D" & num).Value = TextBox1.Value
Cordialement.
Daniel
"Laure" a écrit dans le message de news:
434c133c$0$1709$

Bonsoir à tous et à toutes,

J'ai créé un UserForm avec une TextBox, dont je souhaite récupérer le
contenu dans la colonne D sur une feuille nommée "NOTES"

Voici le code :

Private Sub CommandButton1_Click()

num = Sheets("NOTES").Range("D65536").End(xlUp).Row + 1
Range("D" & num).Value = TextBox1.Value

Unload UserForm2

End Sub

Le problème c'est qu'il me met le contenu de la TextBox sur la
colonne D de la feuille active, qui peut être n'importe laquelle
puisque j'ai placé un bouton "UserForm2.Show" sur toutes les feuilles
de mon classeur. Pourquoi donc ? Quelle erreur ai-je fait ?

Et d'autre part, je souhaiterais qu'une fois la macro exécutée, Excel
revienne sur la feuille et la cellule qui était active au moment où
j'ai exécuté la macro. Ca peut être aussi n'importe où puisque j'ai
volontairement réglé le UserForm en mode non-modal. En gros, que le
texte soit récupéré, mais que vu d'ici, j'ai juste l'impression
d'avoir fermé le UserForm...


D'autre part, si le texte que je saisis dans la TextBox est :
Lundi
Mardi
Mercredi
(avec passage à la ligne à chaque fois)

Le texte récupéré se présente pareil, avec le retour à la ligne, mais
il y a un carré en bout de ligne (qui représente le passage à la
ligne), donc le passage à la ligne est double, une fois réel, et une
fois sous forme de caractère le représentant... Bizarre, non ?
Comment faire pour que ce soit visuellement strictement comme dans la
TextBox ? Eliminer ce "foutu" petit carré qui m'enquiquine ?

Qui peut m'aider ?

Grand merci d'avance,

Laure