Microsoft 365 Combobox plusieurs colonnes

Créer une discussion
Répondre

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 !

S'inscrire
A

ADS95

XLDnaute Nouveau
Bonjour à tous,

Je suis en construction d'un projet de feuille de saisie d'opération assez basic.
Afin de faciliter la saisie, j'ai deux combobox ; journal et compte. J'ai récupéré un code que j'ai adapté pour lire la totalité du menu déroulant sans barre horizontale comme pour celui "Journal" combobox1
1741012121395.png

Toutefois, malgré mes recherches et tentatives, je n'arrive pas à reproduire le même format pour combobox2 "Compte".
Fichier joint.
Merci de votre aide.
 

Pièces jointes

Solution
A
vgendron à dit:
il faut juste remettre les TailleCol et SizeCol à 0 entre les deux combo
VB: 
Private Sub UserForm_Initialize()
Dim ws As Worksheet, x As String
Dim Drl As Integer, c As Range, a As Double, b As Double, Taille As Double
Dim nb As Integer, nb2 As Integer, nb_max As Integer, nbrow As Long, k As Long, n As Long, n2 As Long, k2 As Long, nb_max2 As Integer
Dim nb_ As Integer, nb2_ As Integer
Dim hwnd As Long
Dim style
Dim i As Integer
Dim j As Integer
Dim TailleCol As Integer
Dim SizeCol As String

    hwnd = FindWindow(vbNullString, Me.Caption)
    style = GetWindowLong(hwnd, -16) And &HFFF7FFFF 'Supprime uniquement la croix rouge de fermture
    'style = GetWindowLong(hwnd, -16) And Not &HC00000 'supression de la barre de titre...
Cliquez pour agrandir...
Trier par date Trier par votes
vgendron à dit:
bonjour
dans ton initialize, tu as une condition
If ComboBox1.ListCount > 1 Then exit sub

qui fait que tu ne vas jamais remplir le combo2
Cliquez pour agrandir...
Merci vgendron pour ton retour,
Effectivement j'avais bien repéré cette condition, toutefois quand je change une erreur d'accès s'affiche.
La je sèche pour corriger.
Par ailleurs, j'ai constaté également que sur le code "menu déroulé compte" j'avais laissé Combobox1, toutefois cela ne change rien.
Merci encore pour ton aide,
Cordialement.
 
Vote positif 0 Vote négatif
en PJ une proposition d'optimisation en utilisant des tables structurées pour les tableaux de la feuille "paramétrage"
les TS s'appellent "t_Code", "t_TVA" et "t_Compte"

j'ai juste modifié le code de l'initialize
(pour la taille des colonnes du combo, suis pas allé voir, mais je suis presque sur qu'il ya un autosize pour les colonnes)
 

Pièces jointes

Vote positif 0 Vote négatif
modifie le code que je viens de te donner pour les rowsource des combo ==> il faut ajouter les options (,,,true)
Me.ComboBox1.RowSource = .DataBodyRange.Address(, , , True)
Me.ComboBox2.RowSource = .DataBodyRange.Address(, , , True)
 
Vote positif 0 Vote négatif
Et voici TOUT ton code correctement indenté (pas besoin de multiples lignes vides qui allongent le code inutilement
optimisation du code pour le control de date valide ==> select case à rallonge remplacé par "isdate()"
VB: 
Option Explicit
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
End Sub

Private Sub ComboBox2_Change()
    Me.TextBox2.Text = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub SDate_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
'Curseur en surbrillance sur textBox
    With SDate
        .SetFocus
        .SelStart = 0
        .SelLength = Len(SDate.Text)
    End With
End Sub
Private Sub SDate_Change()
Dim Valeur As Byte
    'On autorise la saisie de 10 caractères maximum
    SDate.MaxLength = 10
End Sub
Private Sub SDate_KeyPress(ByVal Keycode As MSForms.ReturnInteger)
    'On autorise uniquement la saisie des caractères "0123456789"
    If InStr("0123456789", Chr(Keycode)) = 0 Then Keycode = 0
End Sub

Private Sub SDate_KeyUp(ByVal Keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Valeur As Byte

    'Si l'utilisateur presse la touche "Suppr" ou la touche "Del" (<-) alors quitte la procédure
    If Keycode = 10 Or Keycode = 46 Then Exit Sub
        
    Valeur = Len(SDate)
    'Si le jour ou le mois est inscrit, alors ajoute un "/" automatiquement
    If Valeur = 2 Or Valeur = 5 Then
        SDate = SDate & "/"
    End If
    
    'Si la date inscrite contient 8 caractères = date complète
    If Valeur = 8 Then
        If Not IsDate(Me.SDate) Then
            MsgBox "Veuillez entrer une date valide."
            SDate.Value = ""
            Exit Sub
        End If
    End If
End Sub
Private Sub SDate_Exit(ByVal c As MSForms.ReturnBoolean) 'Teste date In
Dim Valeur As Byte
Dim datemois As String

    datemois = ActiveSheet.Range("C2") 'Date du 1er jour du mois pour controle date de saisie
    Valeur = Len(SDate)
        
    If Valeur = 0 Then Exit Sub

    If Valeur < 10 Or Valeur = 0 Then
        MsgBox "Veuillez entrer une date valide !"
        SDate.Value = ""
        CreateObject("wscript.shell").SendKeys "+{TAB}", False
                    
         'ElseIf Valeur = 8 And Mid(SDate.Value, 7, 2) < Mid(Sheets("Outils").Range("D2"), 3, 2) Then
        
         'MsgBox "Veuillez entrer une date valide >" & Sheets("Outils").Range("D2") & "."
        'SDate.Value = ""
        '            SendKeys "+{TAB}", False
          
    ElseIf Mid(SDate.Value, 7, 4) <> Mid(datemois, 7, 4) Then
        MsgBox "Veuillez entrer une date valide ou appartenant à la période de " & ActiveSheet.Range("C4").Value & " " & ActiveSheet.Range("C5").Value
        SDate.Value = ""
        CreateObject("wscript.shell").SendKeys "+{TAB}", False
    End If
End Sub
Private Sub SDate_AfterUpdate()
    SDate.Value = Format(SDate.Value, "dd/mm/yyyy")
End Sub

Private Sub UserForm_Initialize()
Dim ws As Worksheet, x As String
Dim Drl As Integer, c As Range, a As Double, b As Double, Taille As Double
Dim nb As Integer, nb2 As Integer, nb_max As Integer, nbrow As Long, k As Long, n As Long, n2 As Long, k2 As Long, nb_max2 As Integer
Dim nb_ As Integer, nb2_ As Integer
Dim hwnd As Long
Dim style
Dim i As Integer
Dim j As Integer
Dim TailleCol As Integer
Dim SizeCol As String

    hwnd = FindWindow(vbNullString, Me.Caption)
    style = GetWindowLong(hwnd, -16) And &HFFF7FFFF 'Supprime uniquement la croix rouge de fermture
    'style = GetWindowLong(hwnd, -16) And Not &HC00000 'supression de la barre de titre...
    SetWindowLong hwnd, -16, style
    DrawMenuBar hwnd

    With Sheets("Paramétrage")
        With .ListObjects("t_Code")
            Me.ComboBox1.RowSource = .DataBodyRange.Address(, , , True)
            
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                                
            With Me.ComboBox1
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
        
        With .ListObjects("t_Compte")
            Me.ComboBox2.RowSource = .DataBodyRange.Address(, , , True)
            
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                                
            With Me.ComboBox2
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
    End With

    Me.ComboBox1.ListIndex = 0
    Me.ComboBox2.ListIndex = 0
    Me.ComboBox1.SetFocus ' Positionne le curseur sur Code journal
End Sub
 
Vote positif 0 Vote négatif
vgendron à dit:
Et voici TOUT ton code correctement indenté (pas besoin de multiples lignes vides qui allongent le code inutilement
optimisation du code pour le control de date valide ==> select case à rallonge remplacé par "isdate()"
VB: 
Option Explicit
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
End Sub

Private Sub ComboBox2_Change()
    Me.TextBox2.Text = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub SDate_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
'Curseur en surbrillance sur textBox
    With SDate
        .SetFocus
        .SelStart = 0
        .SelLength = Len(SDate.Text)
    End With
End Sub
Private Sub SDate_Change()
Dim Valeur As Byte
    'On autorise la saisie de 10 caractères maximum
    SDate.MaxLength = 10
End Sub
Private Sub SDate_KeyPress(ByVal Keycode As MSForms.ReturnInteger)
    'On autorise uniquement la saisie des caractères "0123456789"
    If InStr("0123456789", Chr(Keycode)) = 0 Then Keycode = 0
End Sub

Private Sub SDate_KeyUp(ByVal Keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Valeur As Byte

    'Si l'utilisateur presse la touche "Suppr" ou la touche "Del" (<-) alors quitte la procédure
    If Keycode = 10 Or Keycode = 46 Then Exit Sub
       
    Valeur = Len(SDate)
    'Si le jour ou le mois est inscrit, alors ajoute un "/" automatiquement
    If Valeur = 2 Or Valeur = 5 Then
        SDate = SDate & "/"
    End If
   
    'Si la date inscrite contient 8 caractères = date complète
    If Valeur = 8 Then
        If Not IsDate(Me.SDate) Then
            MsgBox "Veuillez entrer une date valide."
            SDate.Value = ""
            Exit Sub
        End If
    End If
End Sub
Private Sub SDate_Exit(ByVal c As MSForms.ReturnBoolean) 'Teste date In
Dim Valeur As Byte
Dim datemois As String

    datemois = ActiveSheet.Range("C2") 'Date du 1er jour du mois pour controle date de saisie
    Valeur = Len(SDate)
       
    If Valeur = 0 Then Exit Sub

    If Valeur < 10 Or Valeur = 0 Then
        MsgBox "Veuillez entrer une date valide !"
        SDate.Value = ""
        CreateObject("wscript.shell").SendKeys "+{TAB}", False
                   
         'ElseIf Valeur = 8 And Mid(SDate.Value, 7, 2) < Mid(Sheets("Outils").Range("D2"), 3, 2) Then
       
         'MsgBox "Veuillez entrer une date valide >" & Sheets("Outils").Range("D2") & "."
        'SDate.Value = ""
        '            SendKeys "+{TAB}", False
         
    ElseIf Mid(SDate.Value, 7, 4) <> Mid(datemois, 7, 4) Then
        MsgBox "Veuillez entrer une date valide ou appartenant à la période de " & ActiveSheet.Range("C4").Value & " " & ActiveSheet.Range("C5").Value
        SDate.Value = ""
        CreateObject("wscript.shell").SendKeys "+{TAB}", False
    End If
End Sub
Private Sub SDate_AfterUpdate()
    SDate.Value = Format(SDate.Value, "dd/mm/yyyy")
End Sub

Private Sub UserForm_Initialize()
Dim ws As Worksheet, x As String
Dim Drl As Integer, c As Range, a As Double, b As Double, Taille As Double
Dim nb As Integer, nb2 As Integer, nb_max As Integer, nbrow As Long, k As Long, n As Long, n2 As Long, k2 As Long, nb_max2 As Integer
Dim nb_ As Integer, nb2_ As Integer
Dim hwnd As Long
Dim style
Dim i As Integer
Dim j As Integer
Dim TailleCol As Integer
Dim SizeCol As String

    hwnd = FindWindow(vbNullString, Me.Caption)
    style = GetWindowLong(hwnd, -16) And &HFFF7FFFF 'Supprime uniquement la croix rouge de fermture
    'style = GetWindowLong(hwnd, -16) And Not &HC00000 'supression de la barre de titre...
    SetWindowLong hwnd, -16, style
    DrawMenuBar hwnd

    With Sheets("Paramétrage")
        With .ListObjects("t_Code")
            Me.ComboBox1.RowSource = .DataBodyRange.Address(, , , True)
           
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                               
            With Me.ComboBox1
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
       
        With .ListObjects("t_Compte")
            Me.ComboBox2.RowSource = .DataBodyRange.Address(, , , True)
           
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                               
            With Me.ComboBox2
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
    End With

    Me.ComboBox1.ListIndex = 0
    Me.ComboBox2.ListIndex = 0
    Me.ComboBox1.SetFocus ' Positionne le curseur sur Code journal
End Sub
Cliquez pour agrandir...
Génial merci,
Toutefois sur compte dans menu déroulant n'apparait que les 3 premiers chiffres
1741017322623.png

Merci encore
 
Vote positif 0 Vote négatif
il faut juste remettre les TailleCol et SizeCol à 0 entre les deux combo
VB: 
Private Sub UserForm_Initialize()
Dim ws As Worksheet, x As String
Dim Drl As Integer, c As Range, a As Double, b As Double, Taille As Double
Dim nb As Integer, nb2 As Integer, nb_max As Integer, nbrow As Long, k As Long, n As Long, n2 As Long, k2 As Long, nb_max2 As Integer
Dim nb_ As Integer, nb2_ As Integer
Dim hwnd As Long
Dim style
Dim i As Integer
Dim j As Integer
Dim TailleCol As Integer
Dim SizeCol As String

    hwnd = FindWindow(vbNullString, Me.Caption)
    style = GetWindowLong(hwnd, -16) And &HFFF7FFFF 'Supprime uniquement la croix rouge de fermture
    'style = GetWindowLong(hwnd, -16) And Not &HC00000 'supression de la barre de titre...
    SetWindowLong hwnd, -16, style
    DrawMenuBar hwnd

    With Sheets("Paramétrage")
        TailleCol = 0
        SizeCol = 0
        With .ListObjects("t_Code")
            Me.ComboBox1.RowSource = .DataBodyRange.Address(, , , True)
            
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                                
            With Me.ComboBox1
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
        TailleCol = 0
        SizeCol = 0
        With .ListObjects("t_Compte")
            Me.ComboBox2.RowSource = .DataBodyRange.Address(, , , True)
            
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                                
            With Me.ComboBox2
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
    End With

    Me.ComboBox1.ListIndex = 0
    Me.ComboBox2.ListIndex = 0
    Me.ComboBox1.SetFocus ' Positionne le curseur sur Code journal
End Sub
 
Vote positif 0 Vote négatif
vgendron à dit:
il faut juste remettre les TailleCol et SizeCol à 0 entre les deux combo
VB: 
Private Sub UserForm_Initialize()
Dim ws As Worksheet, x As String
Dim Drl As Integer, c As Range, a As Double, b As Double, Taille As Double
Dim nb As Integer, nb2 As Integer, nb_max As Integer, nbrow As Long, k As Long, n As Long, n2 As Long, k2 As Long, nb_max2 As Integer
Dim nb_ As Integer, nb2_ As Integer
Dim hwnd As Long
Dim style
Dim i As Integer
Dim j As Integer
Dim TailleCol As Integer
Dim SizeCol As String

    hwnd = FindWindow(vbNullString, Me.Caption)
    style = GetWindowLong(hwnd, -16) And &HFFF7FFFF 'Supprime uniquement la croix rouge de fermture
    'style = GetWindowLong(hwnd, -16) And Not &HC00000 'supression de la barre de titre...
    SetWindowLong hwnd, -16, style
    DrawMenuBar hwnd

    With Sheets("Paramétrage")
        TailleCol = 0
        SizeCol = 0
        With .ListObjects("t_Code")
            Me.ComboBox1.RowSource = .DataBodyRange.Address(, , , True)
           
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                               
            With Me.ComboBox1
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
        TailleCol = 0
        SizeCol = 0
        With .ListObjects("t_Compte")
            Me.ComboBox2.RowSource = .DataBodyRange.Address(, , , True)
           
            For j = 1 To 2 'on détermine la taille maxi des colonnes
                For i = 1 To .ListRows.Count
                    TailleCol = WorksheetFunction.Max(TailleCol, Len(.DataBodyRange(i, j)))
                Next i
                SizeCol = SizeCol & TailleCol * 8 & ";"
            Next j
            SizeCol = Left(SizeCol, Len(SizeCol) - 1)
                               
            With Me.ComboBox2
                .ColumnCount = 2
                .ColumnWidths = SizeCol ''.ColumnWidths = nb_max * 6 & ";" & nb_max2 * 6
                .Font.Name = "Tahoma"
                .Font.Size = 10
                .Width = 80
                .ListWidth = 300
            End With
        End With
    End With

    Me.ComboBox1.ListIndex = 0
    Me.ComboBox2.ListIndex = 0
    Me.ComboBox1.SetFocus ' Positionne le curseur sur Code journal
End Sub
Cliquez pour agrandir...
nickel merci à nouveau,
Bonne soirée
 
Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

E
  • Résolu(e)
Microsoft 365 ComboBox "dynamiques" sans doublon sur plusieurs colonnes
Réponses
2
Affichages
222
ExcLnoob
E
J
  • Question Question
XL 2016 Trier des dates dans un ComboBox
Réponses
11
Affichages
657
jeff2318
J
T
  • Question Question
Listbox 14 colonnes
Réponses
6
Affichages
722
TAL
T
J
  • Question Question
XL 2010 ComboBox plusieurs colonnes
Réponses
14
Affichages
621
JM27
J
R
  • Question Question
Microsoft 365 plusieurs combobox sur une même feuille
Réponses
1
Affichages
480
job75
job75
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
T
  • Question Question
Microsoft 365 [Résolu] Copier des colonnes à la fin d'un tableau
Réponses
2
Affichages
1 K
Tava94
T
G
  • Résolu(e)
XL 2016 Find avec Combobox et Texbox - RESOLU
Réponses
3
Affichages
796
Grall
G
Droopyougo
  • Question Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
1 K
Droopyougo
Droopyougo
J
  • Résolu(e)
XL 2016 RESOLU Saisie intuitive TextBox vers ListBox
2
Réponses
25
Affichages
4 K
jorge1201
J
L
  • Question Question
XL 2016 Combobox sur plusieurs feuilles
Réponses
9
Affichages
1 K
le feuvre
L
THOR57
  • Résolu(e)
Microsoft 365 Mettre les infos de 4 Listbox dans 1 seul liste box à plusieurs colonne
Réponses
3
Affichages
1 K
fanfan38
fanfan38
F
  • Résolu(e)
Microsoft 365 Problème pour mettre plusieurs code VBA sur la même feuille pour contrôler plusieurs combobox
Réponses
8
Affichages
1 K
fredzertya
F
M
  • Question Question
XL 2010 ComboBox liste déroulante intuitive 2 colonnes tri ordre croissant sur la 2ème colonne
Réponses
2
Affichages
2 K
modus57
M
C
  • Résolu(e)
Microsoft 365 Extraire dans plusieurs colonnes les données d'une autre feuille en sautant des lignes et sans macro
Réponses
4
Affichages
3 K
Caillou_
C
cp4
  • Résolu(e)
XL 2010 Ajuster Largeur Listbox en fonction nbre et largeur colonnes à afficher
Réponses
2
Affichages
2 K
cp4
cp4
surgeon84fr
  • Question Question
XL 2016 Macro VBA pour créer une BdD à partir de plusieurs fichiers
Réponses
2
Affichages
2 K
surgeon84fr
surgeon84fr
L
  • Résolu(e)
XL 2016 Ajout ligne tableau depuis plage dynamique
Réponses
5
Affichages
1 K
chris
chris
D
  • Question Question
Autres Pourquoi ma listbox plante au dela de 10 colonnes Exel 2007
Réponses
2
Affichages
1 K
domduf33
D
Retour