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

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 !

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

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

Réponses
1
Affichages
124
Retour