Option Explicit Private Sub CommandButton1_Click() Dim derlig As Long, i As Integer, zone, feuilles, f As Worksheet, f_encours As String Dim oul As Long, ouc As Long feuilles = "" For Each f In Worksheets feuilles = feuilles & Chr(1) & Trim(LCase(f.Name)) Next feuilles = LCase(feuilles & Chr(1)) derlig = Range("B" & Rows.Count).End(xlUp).Row zone = Range("B2:D" & derlig) For i = 1 To UBound(zone) If InStr(feuilles, Chr(1) & Trim(LCase(zone(i, 1))) & Chr(1)) = 0 Then With ThisWorkbook.Worksheets.Add .Name = Trim(LCase(zone(i, 1))) feuilles = feuilles & Trim(LCase(zone(i, 1))) & Chr(1) DoEvents End With End If f_encours = Trim(LCase(zone(i, 1))) oul = 2 ouc = 2 If i = UBound(zone) - 1 Then Exit Sub Do While Trim(LCase(zone(i, 1))) = f_encours And i <= UBound(zone) If WorksheetFunction.CountIf(Worksheets(f_encours).Columns(1), zone(i, 3)) = 0 Then Worksheets(f_encours).Range("A" & oul).Value = zone(i, 3) oul = oul + 1 End If If WorksheetFunction.CountIf(Worksheets(f_encours).Rows(1), zone(i, 2)) = 0 Then Worksheets(f_encours).Cells(1, ouc).Value = zone(i, 2) ouc = ouc + 1 End If If i >= UBound(zone) Then Exit For If i <UBound(zone) - 1 Then i i + 1 Loop i = i - 1 Next End Sub
Autre chose nouveau comment faire pour joindre un fichier?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmais si ton idée est bonne pour parvenir au résultat escompté je suis preneur
404 - File or directory not found.
The resource you are looking for might have been removed, had its name changed, or is temporarily unavailable.