Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub UserForm_InitAn(tableau) ComboBox2.ColumnCount = 1 ComboBox2.AddItem "Toutes" Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A" & Rows.Count).End(xlUp).Row ComboBox2 = Range("A" & j) '...et filtre les doublons If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Range("A" & j) Next j ComboBox2.Value = "Année" End Sub
Private Sub ComboBox2_Click() Dim i As Integer Static Memoire As String If Memoire <> Me.ComboBox2.Text Then For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If ComboBox2 = Range("A" & i) Then 'ComboBox1.AddItem Range("B" & i) ComboBox1 = Range("B1", "B" & i) 'ComboBox1.AddItem 1 End If Next End If Memoire = Me.ComboBox2.Text End Sub
Public Sub UserForm_InitAn(tableau) ListBox1.ColumnCount = 1 'ListBox1.AddItem "Années1" ListBox1.AddItem "Toutes" Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A" & Rows.Count).End(xlUp).Row ListBox1.AddItem Range("A" & j) Next j SupDoubles ListBox1 'Supprime les doublons End Sub
Private Sub ListBox1_Click() Dim i As Integer Dim var Static Memoire ListBox2.Clear Memoire = ListBox1.Text If Memoire <> ListBox1.Text Then For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If ListBox1 = Range("A" & i) Then var = Range("B" & i + 1).Value If Application.WorksheetFunction.Odd(var) Then Select Case var Case 1 ListBox2.AddItem "Janvier" Case 3 ListBox2.AddItem "Mars" Case 5 ListBox2.AddItem "Mai" Case 7 ListBox2.AddItem "Juillet" Case 9 ListBox2.AddItem "Septembre" Case 11 ListBox2.AddItem "Novembre" End Select Else Select Case var Case 2 ListBox2.AddItem "Février" Case 4 ListBox2.AddItem "Avril" Case 6 ListBox2.AddItem "Juin" Case 8 ListBox2.AddItem "Août" Case 10 ListBox2.AddItem "Octobre" Case 12 ListBox2.AddItem "Décembre" End Select End If End If Next End If SupDoubles ListBox2 End Sub
Memoire = ListBox1.Text If Memoire <> ListBox1.Text Then For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If ListBox1 = Range("A" & i) Then var = Range("B" & i + 1).Value
Function InitDonnee() As Variant Dim NomFicher(101) As String Dim CdoMessage As CDO.Message Dim FichiersChoisis As String Dim remplace As String remplace = ".csv" FichiersChoisis = "" ChDir "C:\Documents and Settings\pdeschanels\Mes documents\Projet VBA" FichiersChoisis = Application.GetOpenFilename("Fichier de Production, *.csv", 2, "Choisissez un Fichier de production") If FichiersChoisis <> "" Then 'Ouverture du fichier text Workbooks.OpenText Filename:= _ FichiersChoisis, _ Origin:=xlWindows, _ StartRow:=1, _ DataType:=xlDelimited, _ TextQualifier:= _ xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ tab:=False, _ Semicolon:=True, _ Comma:=False, _ Space:=False, _ Other:=False ' On enlève l'adresse complète du fichier et on garde son nom FichiersChoisis = Mid(FichiersChoisis, InStrRev(FichiersChoisis, "") + 1) 'On active le classeur Workbooks(FichiersChoisis).Activate Application.Visible = True Range("A1").Select Dim i As Integer, j As Integer Dim l, x As Integer l = 1 x = 1 derniereLigne = Application.WorksheetFunction.CountA(Range("A:A")) ReDim tableau(derniereLigne, 8) If Range("A" & l).Value = "Année" Then l = l + 1 End If x = Range("A" & Rows.Count).End(xlUp).Row tableau = Range("A" & 2, "H" & x) End If InitDonnee = tableau End Function
If Range("A" & l).Value = "Année" Then
l = l + 1
End If
x = Range("A" & Rows.Count).End(xlUp).Row
tableau = Range("A" & 2, "H" & x)
If ListBox1.ListIndex >= 0 Then _ Valeur = Listbox1.List(Listbox1.ListIndex, ColonneRecherchée - 1)