du Userform mettre format correct dans tableau

[news]

Bonjour à tous du forum,

j'ai dévellopé un Userform, dont les données de 4 textbox du Userform sont mises
dans la dernière ligne+1 ( Range("A65536").End(xlUp).Row + 1 ) du tableau de la feuille ("data") .

Comment on peut indiquer que les données reprises ont un certain format du tableau ?
j'utilise le code suivant :

Varligne = Sheets("data").Range("A65536").End(xlUp).Row + 1
With Sheets("data")
.Range("A" & Varligne) = TextBox1
.Range("B" & Varligne) = Textbox2
.Range("C" & Varligne) = TextBox3
.Range("D" & Varligne) = TextBox5

Range("A" & Varligne).Format = # ###, alignColumnCenter
Range("B" & Varligne).Format = dd.mm.yyyy, alignColumnCenter
Range("C" & Varligne).Format = alignColumnGauche avec texte en gras
Range("D" & Varligne).Format = # ###, alignColumnDroite

End With

ou est-ce plus simple de reprendre dans Worksheets("data") le format de la ligne au-dessus et de copier/coller ce format de ligne dans la dernière ligne (des données reprises du Userform )?, mais je ne sais pas quel vba code exact est à utiliser pour reprendre le format d'une ligne. Est-ce le code vba ci-dessous :

Rows("2:2").Select
Application.CutCopyMode = False
Selection.Copy
Range("A65536").End(xlUp).Row.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("E2").Select

merci d'avance d'astuces,

news

 

[tototiti2008]

Re : du Userform mettre format correct dans tableau

Bonjour news,

peut-être un truc du genre :

With Sheets("data")
Varligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Varligne) = TextBox1
.Range("B" & Varligne) = Textbox2
.Range("C" & Varligne) = TextBox3
.Range("D" & Varligne) = TextBox5
.rows("2:2").copy
.rows(VarLigne & ":" & VarLigne).PasteSpecial [I]Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False[/I]
end With

 

[Bebere]

Re : du Userform mettre format correct dans tableau

bonjour News

tu enregistres une macro pour formater une cellule et tu sauras ainsi ce que tu dois mettre après le signe=

With Sheets("data")
.Range("A" & Varligne) = cdbl(TextBox1)
.Range("A" & Varligne).NumberFormat = "0,00 €"

à bientôt

 

[news]

Re : du Userform mettre format correct dans tableau

bonjour à tous du forum,

Re: tototiti2008

il ne prend pas tout à fait le format dans la feuille("data"),

Mais avec le copier coller de format s'il y a beaucoup de lignes,
Excel peut planter s'il y a trop de format utilisé et ne clacule plus bien ou n'effectue plus rien,

mieux serait dans le Userform de mettre , le code vba qui remet le bon format directement dans le Userform :
Range("A" & Varligne).Format = # ###, alignColumnCenter
Range("B" & Varligne).Format = dd.mm.yyyy, alignColumnCenter
Range("C" & Varligne).Format = alignColumnGauche avec texte en gras
Range("D" & Varligne).Format = # ###, alignColumnDroite
code ci-dessus plante,

news

 

[tototiti2008]

Re : du Userform mettre format correct dans tableau

Re,

s'il y a beaucoup de lignes et que tu boucles dessus, le mieux est de présenter toutes les lignes à la fin plutôt qu'une par une...
Le désavantage d'un format fixe dans le code, c'est que si on change d'idée sur le format il faut modifier le codes...

 

[news]

Re : du Userform mettre format correct dans tableau

Bonsoir à tous du forum,

Re: tototiti2008

c'est juste aulieu de faire pour chaque ligne un copier/coller format,
de le faire à la fin du listing,

mais comme ces données de la feuille("dépenses") figurent dans un autre listview dans le même Userform,
il est nécessaire que le format des montants est fait, donc de l'inclure le code de format dans le Userform.

Je veux demander si le format est mis dans le Userform, est-ce que le montant de Textbox5 figure bien comme montant dans la feuille("dépenses") et est-ce qu'on peut additionner ces montants ? ou s'agit-il que d'un format en nombre/montant?

news

 

[news]

Re : du Userform mettre format correct dans tableau

Bonjour à tous du forum,

J'utilise un Userform avec 4 Textbox. Les Textbox se trouvent dans un frame.
Dans Textbox1 et5 on met des nombres, dans Textbox2 on met la date et dans Textbox3 on met du texte.
Les données de 4 textbox sont repris du Userform dans la feuille("dépenses").
J'utilise le format suivant de vba code :

With Sheets("dépenses")
.Range("A" & VarDerL) = Cdbl.TextBox1
.Range("D" & VarDerL) = Cdbl.TextBox5
.Range("A" & VarDerL).NumberFormat = "#,##0"
.Range("D" & VarDerL).NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
End With

le fils a été relancé sous "est-ce nombre ?, calcul somme error"

le vba code qui résoud :
.Range("D" & VarDerL) = Round(CSng(Trim(TextBox5.Value)), 2)

news