Userform ne se lance pas

Bonjour,

Peut-être tout bête, mais je ne comprend pas pourquoi lors que je clique nouvelle CV, le UserForm ne se lance pas .

Qielqu'un a-t-il une idée?

Le fichier se trouve en annexe.

Merci à vous et de votre aide.

Bonjour.

moustiqu3 a écrit :

Le fichier se trouve en annexe.

Non ^^'

Bonne journée.

Tu as oublié la commande d'ouverture avec le fichier !

Maintenant il est ici

Sorry pour ce desagrement

Bonjour,

dans le code suivant :

Private Sub UserForm_Initialize()
    Dim J As Long
    Dim i As Integer

    If (Worksheets("Commune").AutoFilterMode And Worksheets("Commune").FilterMode) Or Worksheets("Commune").FilterMode Then
        Worksheets("Commune").ShowAllData
    End If
    

il est où le (Worksheets("Commune") car le fichier que vous nous avez envoyer contient seulement une feuille ^^

J'ai retiré "commune" et "decalagePlan" car prenait trop de place et le fichier dépassait les 300ko.

Bref le revoici

Merci de ton aide

sauf erreur de ma part (j'ai parcouru le code rapidement )

Private Sub UserForm_Initialize()
    Dim J As Long
    Dim i As Integer

    If (Worksheets("Commune").AutoFilterMode And Worksheets("Commune").FilterMode) Or Worksheets("Commune").FilterMode Then
        Worksheets("Commune").ShowAllData
    End If

    TextBoxCommune = ""
    TextBoxLocalite = ""
    ComboBox_Priorite = "A Définir"

    ComboBoxTypeCV.List() = Array("A Définir", "Armoire", "CV Polycarbonate", "CV Béton VRB1", "CV Béton Monobloc", "CV Béton Modulaire", "CV Béton Infratech")
    ComboBox_PresenceCV.List() = Array("Rien", "Gaine Autre", "Joint Fist", "Joint Fist + Réserve", "Joint Fist + Réserve + Gaine autre")
    ComboBox_Propriete.List() = Array("Electrabel", "ORES", "Autre")

vous n'avez aucun ComboBox au nom de ComboBox_PresenceCV c'est plutôt un TextBox qui porte un peu prêt le même nom.(TextBox_PresenceCV)

Merci.

J'avais Zappé.

J'ai changé ça hier soir.

Du coup, ça se relance...

Merci beaucoup.