XL 2016 incrémenter la derière colonne de mon tableau via un userform

RobyL · 20 Avril 2021

bonjour,

j'ai déjà obtenue de l'aide pour mon fichier excel ce qui explique le fait que je n'arrive pas à modifier mon fichier pour pouvoir incréménter la dernière colonne de mon tableau.
sur la feuille "choix" vous avez le bouton pour lancer mon userform "rechintuit2"
il doit incrémenter mon tableau feuille "Données"
mon userform à une listebox qui se met à jour.

j'ai ajouter la dernière colonne. c'est la textbox25 qui doit incrémenter une date.

fanch55 · 25 Avril 2021

Bonjour Loïs,
J'ai agrandi la largeur de la colonne 25 :

Et modifié le code dans l'initialisation du Userform :

VB:

Private Sub UserForm_Initialize()
    
    Sheets("Données").Activate
    Ncols = [Tableau1].Columns.Count + 1 ' on rajoute une colonne pour le n*° de ligne

    Bd_Reformat
    Charge_Listbox1
    
    With ListBox1
        .ColumnCount = Ncols
        .ColumnWidths = C_Width & "10;"
        .Width = L_Width + 10  ' 10=largeur empirique  du vertical scroll
        .IntegralHeight = True
        Frame1.ScrollWidth = .Width
    End With
    
    With ListBox0
        .Width = L_Width + 5
        .ColumnCount = Ncols - 1
        .ColumnWidths = C_Width
        .List = [Tableau1[#Headers]].Value
    End With
    
End Sub

en changeant

ColumnWidths = C_Width & "0" par ColumnWidths = C_Width & "10;"

Le phénomène (résolu) n'en reste pas moins inexplicable ...

XL 2016 incrémenter la derière colonne de mon tableau via un userform

RobyL

XLDnaute Junior

Pièces jointes

fanch55

XLDnaute Barbatruc

Discussions similaires