Mettre une exception a un ComboBox

Bonjour j'ai un comboBox2 je veut qu'il m'affiche de B1 a AK1 sans les cellules L1, M1, N1, YZ1 ,AA1.

Voici ma formule :

'Liste déroulante Date

With Sheets("Août")

End With

ComboBox2.List = Application.Transpose(Range("B1:K1").Value)

End Sub

Comment mettre l'exeption ?

Bonjour

Essaie comme ça :

Private Sub UserForm_Initialize()

    Dim J As Long
    Dim i As Integer
    Set ws = Sheets("Août") 'Correspond au nom de votre onglet dans le fichier Excel
    'Liste deroulante Nature
    With Me.ComboBox1
    For J = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row
        .AddItem ws.Range("A" & J)
    Next J
    End With
    'Liste deroulante Date
    'With Sheets("Août")
    'End With
    'ComboBox2.List = Application.Transpose(Range("B1:K1").Value)
    For J = 2 To 37
        If J <> 12 And J <> 13 And J <> 14 And J <> 25 And J <> 26 And J <> 27 Then
            ComboBox2.AddItem ws.Cells(1, J)
        End If
    Next J
End Sub

Bye !

Merci pour votre aide mais sa mes donne pas exactement ce que je veut ,pour l'ordre ce bien il reste le transfert de donnée quant je choisis la date 11 Août il donne le resultat dans la colonne L au lieu de O qui correspond a 11 Août ainsi de suite .

Nouvelle version à tester.

Bye !

bonsoir essayer ca

Salut :

essayer ca

Merci beaucoup ces exactement se que je cherche .