J'envoie à partir d'une textbox un texte dans une cellule.
Losque je sélectionne la cellule directement:
Cells(15, 3).Value = TextBox1.Value
les formatages demandés fonctionnent. A savoir retour à la ligne auto,
caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne:
dim ici as long
ici = Range("C65536").End(xlUp).Row + 1
Cells(ici, 3).Value = TextBox1.Value
cela ne fonctionne pas. il n'y a de visible que la partie de texte égale
à la largeur de la cellule et les formatages de texte ne fonctionnent
plus.....
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
MichDenis
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
Quelqu'un peut-il m'expliquer ce qui bugge ???
Cordialement
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données"
Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux
nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être
étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la
nouvelle ligne.
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %239IrwIzGFHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule.
Losque je sélectionne la cellule directement:
Cells(15, 3).Value = TextBox1.Value
les formatages demandés fonctionnent. A savoir retour à la ligne auto,
caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne:
dim ici as long
ici = Range("C65536").End(xlUp).Row + 1
Cells(ici, 3).Value = TextBox1.Value
cela ne fonctionne pas. il n'y a de visible que la partie de texte égale
à la largeur de la cellule et les formatages de texte ne fonctionnent
plus.....
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
Quelqu'un peut-il m'expliquer ce qui bugge ???
Cordialement
Ga
ga
Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne. C'est lorsque je positionne à la première ligne vide que cela ne marche plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
Quelqu'un peut-il m'expliquer ce qui bugge ???
Cordialement
Ga
Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne.
C'est lorsque je positionne à la première ligne vide que cela ne marche
plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données"
Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux
nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être
étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la
nouvelle ligne.
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %239IrwIzGFHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule.
Losque je sélectionne la cellule directement:
Cells(15, 3).Value = TextBox1.Value
les formatages demandés fonctionnent. A savoir retour à la ligne auto,
caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne:
dim ici as long
ici = Range("C65536").End(xlUp).Row + 1
Cells(ici, 3).Value = TextBox1.Value
cela ne fonctionne pas. il n'y a de visible que la partie de texte égale
à la largeur de la cellule et les formatages de texte ne fonctionnent
plus.....
Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne. C'est lorsque je positionne à la première ligne vide que cela ne marche plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
Quelqu'un peut-il m'expliquer ce qui bugge ???
Cordialement
Ga
MichDenis
Bonjour Ga,
De façon générale, il est préférable d'attribuer un format de cellule et de copier la donnée appropriée.
'Cette ligne applique le format selon ce que tu désires... Cells(ici, 3).NumberFormat = "# ##0.00"
'Tu copies ta donnée vers ta cellule. Comme un textbox contient du TEXTE, assure toi que ce que tu copies dans la cellule correspond bien au type de données définies par le format de ta cellule. Pour ce faire, il est sage d'utiliser les fonctions de conversion d'excel. Fais une recherche dans l'aide sous "conversion" et tu devrais trouver. à titre d'exemple : Cdbl(TextBox1) , Cdate(TextBox1) ....
Cells(ici, 3).Value = TextBox1.Value
Salutations!
"ga" a écrit dans le message de news: Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne. C'est lorsque je positionne à la première ligne vide que cela ne marche plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
Quelqu'un peut-il m'expliquer ce qui bugge ???
Cordialement
Ga
Bonjour Ga,
De façon générale, il est préférable d'attribuer un format de cellule et de copier la donnée appropriée.
'Cette ligne applique le format selon ce que tu désires...
Cells(ici, 3).NumberFormat = "# ##0.00"
'Tu copies ta donnée vers ta cellule.
Comme un textbox contient du TEXTE, assure toi que ce que tu copies dans la cellule correspond bien au type de données
définies par le format de ta cellule. Pour ce faire, il est sage d'utiliser les fonctions de conversion d'excel. Fais
une recherche dans l'aide sous "conversion" et tu devrais trouver.
à titre d'exemple : Cdbl(TextBox1) , Cdate(TextBox1) ....
Cells(ici, 3).Value = TextBox1.Value
Salutations!
"ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: OxFKmDNHFHA.720@TK2MSFTNGP10.phx.gbl...
Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne.
C'est lorsque je positionne à la première ligne vide que cela ne marche
plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données"
Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux
nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être
étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent
la
nouvelle ligne.
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %239IrwIzGFHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule.
Losque je sélectionne la cellule directement:
Cells(15, 3).Value = TextBox1.Value
les formatages demandés fonctionnent. A savoir retour à la ligne auto,
caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne:
dim ici as long
ici = Range("C65536").End(xlUp).Row + 1
Cells(ici, 3).Value = TextBox1.Value
cela ne fonctionne pas. il n'y a de visible que la partie de texte égale
à la largeur de la cellule et les formatages de texte ne fonctionnent
plus.....
De façon générale, il est préférable d'attribuer un format de cellule et de copier la donnée appropriée.
'Cette ligne applique le format selon ce que tu désires... Cells(ici, 3).NumberFormat = "# ##0.00"
'Tu copies ta donnée vers ta cellule. Comme un textbox contient du TEXTE, assure toi que ce que tu copies dans la cellule correspond bien au type de données définies par le format de ta cellule. Pour ce faire, il est sage d'utiliser les fonctions de conversion d'excel. Fais une recherche dans l'aide sous "conversion" et tu devrais trouver. à titre d'exemple : Cdbl(TextBox1) , Cdate(TextBox1) ....
Cells(ici, 3).Value = TextBox1.Value
Salutations!
"ga" a écrit dans le message de news: Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne. C'est lorsque je positionne à la première ligne vide que cela ne marche plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
Quelqu'un peut-il m'expliquer ce qui bugge ???
Cordialement
Ga
ga
Merci pour ta réponse, j'ai trouvé...mais je ne m'explique pas pourquoi !!
En fait, j'avais modifié la hauteur des lignes à 15 au lieu des 12,75 valeur std lorsque j'ouvre une feuille vierge dans mon classeur. j'ai fait le test sur un onglet tout neuf avec les mêmes éléments mais sans changer la hauteur des lignes et cela marche nickel...
Merci à tous pour vos conseils
Si quelqu'un peut m'expliquer pourquoi à cause des hauteurs de lignes cela ne fonctionnait pas, j'aimerais comprendre...
Merci encore pour tout
Cordialement
Ga
Bonjour Ga,
De façon générale, il est préférable d'attribuer un format de cellule et de copier la donnée appropriée.
'Cette ligne applique le format selon ce que tu désires... Cells(ici, 3).NumberFormat = "# ##0.00"
'Tu copies ta donnée vers ta cellule. Comme un textbox contient du TEXTE, assure toi que ce que tu copies dans la cellule correspond bien au type de données définies par le format de ta cellule. Pour ce faire, il est sage d'utiliser les fonctions de conversion d'excel. Fais une recherche dans l'aide sous "conversion" et tu devrais trouver. à titre d'exemple : Cdbl(TextBox1) , Cdate(TextBox1) ....
Cells(ici, 3).Value = TextBox1.Value
Salutations!
"ga" a écrit dans le message de news: Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne. C'est lorsque je positionne à la première ligne vide que cela ne marche plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
Quelqu'un peut-il m'expliquer ce qui bugge ???
Cordialement
Ga
Merci pour ta réponse,
j'ai trouvé...mais je ne m'explique pas pourquoi !!
En fait, j'avais modifié la hauteur des lignes à 15 au lieu des 12,75
valeur std lorsque j'ouvre une feuille vierge dans mon classeur.
j'ai fait le test sur un onglet tout neuf avec les mêmes éléments mais
sans changer la hauteur des lignes et cela marche nickel...
Merci à tous pour vos conseils
Si quelqu'un peut m'expliquer pourquoi à cause des hauteurs de lignes
cela ne fonctionnait pas, j'aimerais comprendre...
Merci encore pour tout
Cordialement
Ga
Bonjour Ga,
De façon générale, il est préférable d'attribuer un format de cellule et de copier la donnée appropriée.
'Cette ligne applique le format selon ce que tu désires...
Cells(ici, 3).NumberFormat = "# ##0.00"
'Tu copies ta donnée vers ta cellule.
Comme un textbox contient du TEXTE, assure toi que ce que tu copies dans la cellule correspond bien au type de données
définies par le format de ta cellule. Pour ce faire, il est sage d'utiliser les fonctions de conversion d'excel. Fais
une recherche dans l'aide sous "conversion" et tu devrais trouver.
à titre d'exemple : Cdbl(TextBox1) , Cdate(TextBox1) ....
Cells(ici, 3).Value = TextBox1.Value
Salutations!
"ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: OxFKmDNHFHA.720@TK2MSFTNGP10.phx.gbl...
Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne.
C'est lorsque je positionne à la première ligne vide que cela ne marche
plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données"
Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux
nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être
étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent
la
nouvelle ligne.
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %239IrwIzGFHA.2924@TK2MSFTNGP15.phx.gbl...
Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule.
Losque je sélectionne la cellule directement:
Cells(15, 3).Value = TextBox1.Value
les formatages demandés fonctionnent. A savoir retour à la ligne auto,
caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne:
dim ici as long
ici = Range("C65536").End(xlUp).Row + 1
Cells(ici, 3).Value = TextBox1.Value
cela ne fonctionne pas. il n'y a de visible que la partie de texte égale
à la largeur de la cellule et les formatages de texte ne fonctionnent
plus.....
Merci pour ta réponse, j'ai trouvé...mais je ne m'explique pas pourquoi !!
En fait, j'avais modifié la hauteur des lignes à 15 au lieu des 12,75 valeur std lorsque j'ouvre une feuille vierge dans mon classeur. j'ai fait le test sur un onglet tout neuf avec les mêmes éléments mais sans changer la hauteur des lignes et cela marche nickel...
Merci à tous pour vos conseils
Si quelqu'un peut m'expliquer pourquoi à cause des hauteurs de lignes cela ne fonctionnait pas, j'aimerais comprendre...
Merci encore pour tout
Cordialement
Ga
Bonjour Ga,
De façon générale, il est préférable d'attribuer un format de cellule et de copier la donnée appropriée.
'Cette ligne applique le format selon ce que tu désires... Cells(ici, 3).NumberFormat = "# ##0.00"
'Tu copies ta donnée vers ta cellule. Comme un textbox contient du TEXTE, assure toi que ce que tu copies dans la cellule correspond bien au type de données définies par le format de ta cellule. Pour ce faire, il est sage d'utiliser les fonctions de conversion d'excel. Fais une recherche dans l'aide sous "conversion" et tu devrais trouver. à titre d'exemple : Cdbl(TextBox1) , Cdate(TextBox1) ....
Cells(ici, 3).Value = TextBox1.Value
Salutations!
"ga" a écrit dans le message de news: Merci pour la réponse mais cette option est déjà cochée....
Lorsque j'envoie dans une cellule déterminée cela fonctionne. C'est lorsque je positionne à la première ligne vide que cela ne marche plus....
Je continue de chercher..
Merci encore
Ga
Bonjour GA,
barre des menus / outils / options / modification / "étendre les formats et formules de plage de données" Voici ce que l'aide donne comme défintion à cette option :
Étendre les formules et formats de liste Activez cette option pour appliquer automatiquement le format de la liste aux nouveaux éléments ajoutés en fin de liste. Les formules répétées à chaque ligne sont également copiées. Pour être étendus, les formats et les formules doivent apparaître dans au moins trois des cinq lignes de la liste qui précèdent la nouvelle ligne.
Salutations!
"GA" a écrit dans le message de news: % Bonjour à tous
J'envoie à partir d'une textbox un texte dans une cellule. Losque je sélectionne la cellule directement: Cells(15, 3).Value = TextBox1.Value les formatages demandés fonctionnent. A savoir retour à la ligne auto, caractères en gras etc...
Lorsque je veux sélectionner la première cellule vide d'une ligne: dim ici as long ici = Range("C65536").End(xlUp).Row + 1 Cells(ici, 3).Value = TextBox1.Value cela ne fonctionne pas. il n'y a de visible que la partie de texte égale à la largeur de la cellule et les formatages de texte ne fonctionnent plus.....
