Initialisation userform

Bonjour a tous,

J'ai créer un tableau avec appel d'un userform dans lequel se trouve plusieurs textbox ,combobox, listbox.

J'ai essayer d'initialiser mon userform, mais j'ai un message d'erreur quand j'initialise les 2 combobox.

Je vous joins mon tableau (pour le moment seul l'option Officier est en cours).

Merci

Bonjour Damsa17, le forum,

Personnellement, je préfère une feuille par base de données (évite les problèmes en cas de suppression de lignes ou de mises à jour malencontreuses).

M'autorises-tu à effectuer ces modifications ?

Cordialement,

André

Bonjour André,

Oui vous pouvez faire les modifications.

Merci

Bonjour

modification combobox a voir

Private Sub UserForm_Initialize()
Dim I&, C&
Application.ScreenUpdating = False
With Sheets("donn?es")
    For I = 51 To 59
        ComboBox_peloton.AddItem .Cells(I, 3)
    Next
    For C = 1 To 1169
        ComboBox_CodeP.AddItem .Cells(1, C)
    Next
End With
End Sub

Private Sub ComboBox_CodeP_Change()
Dim no_colonne As Integer, nb_ligne As Integer
Dim I&
no_colonne = ComboBox_CodeP.ListIndex + 1
ListBox_Villes.Clear
    With Sheets("donn?es")
      nb_ligne = .Cells(1, no_colonne).End(xlDown).Row
        For I = 2 To nb_ligne
            ListBox_Villes.AddItem .Cells(I, no_colonne)
        Next
    End With
End Sub

A+

Maurice

bonjour à tous

à quoi sert un "userform" ?

• si on est professionnel, il y a maintenant PowerApps
• si on est particulier, on saisit directement dans la feuille Excel

dans les 2 cas, on fait simple et durable

amitiés

Bonjour à tous,

Une première ébauche.

Personnellement, j’utilise un seul formulaire, pour créer ou modifier les données.

Je poursuis en effectuant les modifications envisagées.

Cordialement,

André

Merci Maurice,

Ça fonctionne nickel,

André, je vais jeter un œil a ton fichier.

Merci a tous de vos réponses