Contenu récent par francescofrancesco

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.

Bonjour. job75 0,05 sans équilibre des colonnes et sans chargement de la listbox ------------------------------------------------------------------- AtTheOne 0,06 avec équilibrage des colonnes et sans chargement de la liste déroulante Pouvez-vous m'aider avec le fichier du post 21, Merci.

Je venais juste de l'essayer, j'ai dû décocher un élément dans Références. Super, vous avez également inscrit le solde dans la colonne 7. Demain, j'essaierai le code sur mon fichier d'origine. Quoi qu'il en soit, si vous pouvez tester le fichier que je vous ai envoyé avec les modifications. Merci

Non, ça ne marche pas. J'ai adapté les correctifs à l'ancien code, j'obtiens une erreur sur cette ligne. TabloRés(LCible, j) = tablo(i - 1, j) ReDim TabloRés(1 To NbL + 1, 1 To 10) k = 0 For i = 1 To Idx LCible = LCible + 1 k = k + 1...

Bonjour. Je teste votre code pour voir si je peux éliminer la macro "InsererLignesVUOTA". Je vous demande de l'aide supplémentaire, merci.

Bonjour. J'essaie d'insérer cette instruction dans votre code, mais je suis absolument bloqué. If tablo(i,2)<>tablo(i-1,2) Then i=i+1

Bonjour. J'ai simplifié. Les dates sont restées car j'ai supprimé les mouvements dans les cellules adjacentes. Votre code est vraiment rapide mais peut-il être intégré pour supprimer "InsererLignesVUOTA". Pour simplifier « En attente » indique les achats non payés. Achats « hors caisse » avec...

Bonjour. Juste un oubli, il n'y a pas de lignes vides entre les lignes avec la même date. Le code dans le fichier ci-joint peut certainement être amélioré.

Bonjour. La ligne vide sépare chaque groupe de cellules ayant la même date. With f Set tx = .Range("A1:S" & .Cells(Rows.count, 1).End(xlUp).row) End With With tx ncol = .Columns.count If ncol = 1 Then ncol = 2 tablo = .Resize(.Rows.count + 1, ncol) ReDim resu(1 To...

Oui, des zones de texte inversées. J'ai juste besoin d'une explication sur ce morceau de code. Merci. ReDim TabloRés(1 To NbL + 1, 1 To 10) k = 0 For i = 1 To Idx k = k + 1 For j = 2 To 10 TabloRés(i, 1) = k...