message erreur avec une macro

Hervé

XLDnaute Barbatruc

• 4 Avril 2005

• #2

Bonjour

Dans la macro d'initialisation corrige :

TextPrix.Value = range('G2')


Fait attention à l'orthographe des noms des controles, pour éviter des erreurs de synthaxe tu peux utiliser Me. devant tes controles ainsi VBA te proposera la bonne synthaxe.

A plus

 

Vote positif 0 Vote négatif

N

niki42

XLDnaute Occasionnel

• 4 Avril 2005

• #3

Salut Hervé

Effectivement c'était une erreur de syntaxe (en plus ce n 'est pas la première fois que ça m'arrive, lahonte.)
Par contre je vais abuser de ta gentillesse et solliciter un conseil.
Quelle instruction rajouter dans mon code pour que je n'ai pas d'erreur sur les données récupérées à savoir mes données sont entrées sous forme de texte et non sous forme de nombre;

merci pour ta réponse
Niki

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Avril 2005

• #4

re

Lors du renvoi des données vers les cellules, il faut forcer le format :

Private Sub CmdOK_Click()
Dim derniereligne As Integer

'vérif informations
If TxtDate.Value = '' Then MsgBox 'Merci de renseigner une date.', , 'Attention': TxtDate.SetFocus: Exit Sub
If TextFiche.Value = '' Then MsgBox 'Merci de renseigner un numéro.', , 'Attention': TextFiche.SetFocus: Exit Sub
If TextNbre.Value = '' Then MsgBox 'Merci de renseigner une quantité.', , 'Attention': TextNbre.SetFocus: Exit Sub

'renvoi des données
With Worksheets('Feuil1')
derniereligne = .range('a65536').End(xlUp).Row + 1
.range('A' & derniereligne) = CDate(TxtDate)
.range('B' & derniereligne) = CDbl(TextFiche)
.range('C' & derniereligne) = CDbl(TextNbre)
.range('D' & derniereligne) = CDbl(TextPrix)
.range('E' & derniereligne) = CDbl(TextPrix * TextNbre)
End With
End Sub

Cliquez pour agrandir...

A plus

 

Vote positif 0 Vote négatif

N

niki42

XLDnaute Occasionnel

• 4 Avril 2005

• #5

Bonsoir Hervé

je te remercie pour ta réponse. Mais peux-tu me dire ce que veux dire Cdate et CDbl et comment peut-on connaître ces expressions?

Merci
Niki

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Avril 2005

• #6

re niky

VBA, renvoi toutes les données issues d'un control sous forme de string (chaînes de caractères) , les C.... permettent de convertir ces données suivant la valeur voulue.

range('a1')=Textbox1

renvoi dans la cellule A1 la valeur du textbox1 sous la forme de texte, que celui-ci contienne de l'alpha ou du numérique.

range('a1')=cdbl(Textbox1), converti la valeur de la textbox en nombre décimale.

dans l'aide d'excel recherche : Fonctions de conversion de types de données.

A plus.

Salut

 

Vote positif 0 Vote négatif

N

niki42

XLDnaute Occasionnel

• 5 Avril 2005

• #7

Ok Hervé je te remercie pour la peine que tu as pris pour me répondre

A++

Niki
😉

 

Vote positif 0 Vote négatif

N

niki42

XLDnaute Occasionnel

• 5 Avril 2005

• #8

Excuse-moi de te redéranger Hervé mais je n'ai pas trouvé les fonctions de conversion de types de données dans l'aide excel.
Est-ce normal?

Merci

Niki

PS: Je suis de Feurs

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Avril 2005

• #9

Bonjour niki,

Non ce n'est pas normal ????

en pièce jointe l'aide d'excel sous format word.

A plus


[file name=niki.zip size=7289]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/niki.zip[/file]

 

Pièces jointes

• niki.zip

  7.1 KB · Affichages: 18

Vote positif 0 Vote négatif