Contenu récent par francescofrancesco

"#,##0.00" → format numérique avec 2 décimales pour la colonne 6 Ici, il ne donne pas le résultat attendu.

Je souhaiterais une explication pour cette partie de la ligne. S'il y avait quatre colonnes, alors quatre. ColVisu = Array(1, 2, 6): Forma = Array("YYYY-MM-DD", "@", "#,###.00"): TP = Array(7, 200, 5) Array("YYYY-MM-DD", "@", "#,###.00") <<<<<<Définir le format TP = Array(7, 200, 5) <<<<<<...

J'ai résolu le problème comme ceci, mais ça ne me plaît pas Private Sub CommandButton1_Click() Dim result As Variant Dim Tbl() 'Set ff = ThisWorkbook.Worksheets("filtra") Set f = ThisWorkbook.Worksheets("movimenti") With UserForm27.ListBox1 ColVisu = Array(1, 2, 6) End With With...

Le seul problème concerne la colonne des dates. Les dates sont inversées. Voyons si je peux trouver une solution.

Private Sub CommandButton1_Click() 'Set ff = ThisWorkbook.Worksheets("filtra") With UserForm27.ListBox1 ColVisu = Array(1, 2, 6) End With With UserForm27.ListBox1 v = .List Dim result As Variant Dim Tbl() For i = 0 To UBound(v) 'v(i, 1) = Format(v(i, 1), "dd/mm/yyyy") 'v(i, 1) =...

Je ne peux pas joindre le fichier, même s'il est petit. Message : Fichier trop volumineux.

Bonjour, Voici le code complet. Il s'agit de transférer uniquement certaines colonnes de la liste déroulante vers la feuille de calcul.

Bonjour, Voici le code complet. Il s'agit de transférer uniquement certaines colonnes de la liste déroulante vers la feuille de calcul. With UserForm27.ListBox1 ColVisu = Array(0, 1, 2, 4) End With With UserForm27.ListBox1 V = .List Dim result As Variant Dim Tbl() For i = 1 To UBound(V) ' If...

With UserForm27.ListBox1 ColVisu = Array(0, 1, 2, 4) End With With UserForm27.ListBox1 V = .List Dim result As...

Bonne soirée, J'ai une erreur sur cette ligne: With f .Range("A3").Resize(UBound(Tbl) + 1, 1).Value = Application.Transpose(Tbl) End with Mercì . Excel 2003 With UserForm27.ListBox1 ColVisu = Array(0, 1, 2, 4)...

C'est vrai. Mais en faisant varier ce code pour charger la liste déroulante, vous pouvez formater les colonnes. Set tablo = Sheets("Data").[A1].CurrentRegion.Resize(, 4)

Bonjour, super. Je n'arrive pas à adapter votre code et, dans le fichier d'origine, je dois formater les colonnes de la listbox. Private Sub UserForm_Initialize() Dim arr Set f = ThisWorkbook.Worksheets("primanota") With f arr = f.Range("A2:G" & f.[A65000].End(xlUp).Row).Value End With For L =...

Bonjour, Dans le fichier ci-joint, comment puis-je déplacer la ligne sur la feuille sans déplacer la formule dans la colonne G. '-----déplacer la ligne vers la feuill------- For jj = 1 a 7 tt = f.Cells(A + 2, jj) f.Cells(A + 2, dd) = f.Cells(A + 1, dd) f.Cells(A + 1, jj) = tt Next jj [/CODICE]

Bonjour, Désolé pour le retard de réponse, j'ai testé les codes, c'est vraiment super, merci.