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

RobyL

XLDnaute Junior
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.
 

Pièces jointes

  • essaie 30.xlsm
    444.6 KB · Affichages: 22

fanch55

XLDnaute Barbatruc
Bonjour Loïs,
J'ai agrandi la largeur de la colonne 25 :
1619374420226.png


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 ...
 

Discussions similaires

Réponses
8
Affichages
355

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T