Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

du Userform mettre format correct dans tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion news
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

news

XLDnaute Impliqué
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
 
Dernière édition:
Trier par date Trier par votes
Re : du Userform mettre format correct dans tableau

Bonjour news,

peut-être un truc du genre :

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
248
un internaute
U
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
196
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
115
patricktoulon
R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
293
dysorthographie
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
289
Dranreb
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
225
safranien
S
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
515
tnion
T
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
549
ph.vanne
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
142
sylvanu
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
148
Electron24
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
492
CortoXls
C
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
321
Piment
P
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
509
Jojo973
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
240
eric72
E
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
265
StéphaneDeLà
S
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
862
jebibo
J
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
301
spike29
S
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
523
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…