Format de la valeur envoyée par Userform vers cellule Excel
Bzik59
Messages postés
32
Date d'inscription
Statut
Membre
Dernière intervention
-
Bzik59 Messages postés 32 Date d'inscription Statut Membre Dernière intervention -
Bzik59 Messages postés 32 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un formule dans la cellule B5 qui a relation avec A1. En changeant la valeur de A1 directement sur excel, la formule fonctionne correctement. Mais lorsque je modifie la valeur de la cellule A1 à partir d'un textBox d'un userform. la valeur envoyée n'est pas reconnue par la formule et renvoie #VALEUR! . le format de la valeur qui est numérique n'est la même que celle de Excel.
même si J'ai tapé le code:
Sheets("Données 2015-2016").Cells(2, 6) = Me.Controls("TextBox" & 48)
Sheets("Données 2015-2016").Cells(2, 6) = Format(Sheets("Données 2015-2016").Cells(2, 6), "0.00").
j'ai essayé "0" au lieu de "0.00".
Merci si vous avez une idée.
j'ai un formule dans la cellule B5 qui a relation avec A1. En changeant la valeur de A1 directement sur excel, la formule fonctionne correctement. Mais lorsque je modifie la valeur de la cellule A1 à partir d'un textBox d'un userform. la valeur envoyée n'est pas reconnue par la formule et renvoie #VALEUR! . le format de la valeur qui est numérique n'est la même que celle de Excel.
même si J'ai tapé le code:
Sheets("Données 2015-2016").Cells(2, 6) = Me.Controls("TextBox" & 48)
Sheets("Données 2015-2016").Cells(2, 6) = Format(Sheets("Données 2015-2016").Cells(2, 6), "0.00").
j'ai essayé "0" au lieu de "0.00".
Merci si vous avez une idée.
A voir également:
- Format de la valeur envoyée par Userform vers cellule Excel
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
1 réponse
Bonjour,
Les valeurs que tu écris sont de type Texte (String) et pas Nombre !!
En effet
Pour obtenir un nombre il faut écrire :
ou encore :
Cordialement
Patrice
Les valeurs que tu écris sont de type Texte (String) et pas Nombre !!
En effet
Me.Controls("TextBox" & 48) renvoi un texte de même que la fonction Format(Sheets("Données 2015-2016").Cells(2, 6), "0.00") le la seconde ligne.
Pour obtenir un nombre il faut écrire :
Sheets("Données 2015-2016").Cells(2, 6).Value = Val(Me.Controls("TextBox" & 48))
ou encore :
Sheets("Données 2015-2016").Cells(2, 6).Formula = Me.Controls("TextBox" & 48)
Cordialement
Patrice
c'est-à-dire: le classeur contient 2 Feuilles, Feuil1 et Feuil2.
Si Feuil1 est sélectionnée l'Userform s'exécute correctement. Par contre si Feuil2 est sélectionnée il ne s'exécute pas parfaitement ( il déconne)
Sans la totalité du code je peux pas être précis !
Il n'est que très rarement indispensable d'effectuer une sélection.
En général ce genre de problème vient de l'utilisation de Select avec une définition insuffisamment précise de la plage de cellules, ou plus simplement d'une définition incomplète d'une plage de cellule, par exemple utilisation directe de Range() au lieu de Worksheets("maFeuille").Range()
Patrice
Pour augmenter la valeur de la cellule nommée "CompteurPage" de 1 pour chaque impression d'une feuille Excel .
J'ai mis le code suivant dans Workbook:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("CompteurPage") = Range("CompteurPage") + 1
End Sub
Le problème c'est que la valeur augmente de 1 pour l'aperçue avant impression, et augmente encore de 1 lorsque on imprime la feuille. c'est à dire que le compteur a augmenté de 2 pour une seule impression.
y'a t-il une solution? merci à vous.