XL 2016 Equilibrage gestion de comptes

  • Initiateur de la discussion Initiateur de la discussion obyone
  • Date de début Date de début
O

obyone

XLDnaute Occasionnel
bonjour,
lors de la verifications de mes comptes j'ai une macro qui transfere les lignes dans un tableau pour les verifier puis si les compte sont bon les retransfere dans l'autre sens.
ce macro fonctionne mais elle devient beaucoup trop longue (10minutes pour traiter 150 lignes) y a-t-il un moyen de la simplifier pour la rendre plus réactive.

merci d'avance

Oby1

VB: 
Sub Equilibrage_CommandButton1_Cliquer()
' copie si l'Equilibrage est OK
Dim Lequ As Long
If Sheets("Equilibrage").Cells(3, 4) = "0" Then
    If Sheets("Equilibrage").Cells(1, 1) = "Boursorama" Then
        With Sheets("Equilibrage")
                Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Boursorama")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Boursorama")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Boursorama")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille Boursorama est vide
    
        With Sheets("Boursorama")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        Dim LignR
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With


    ElseIf Sheets("Equilibrage").Cells(1, 1) = "Visa Laurent" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Visa Laurent")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Visa Laurent")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Visa Laurent")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille CCP est vide
    
        With Sheets("Visa Laurent")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
        
    ElseIf Sheets("Equilibrage").Cells(1, 1) = "Livret A Laurent" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Livret A Laurent")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Livret A Laurent")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Livret A Laurent")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille CCP est vide
    
        With Sheets("Livret A Laurent")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
        
    ElseIf Sheets("Equilibrage").Cells(1, 1) = "Livret A Laurence" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Livret A Laurence")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Livret A Laurence")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Livret A Laurence")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille Livret A Laurence est vide
    
        With Sheets("Livret A Laurence")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
        
    ElseIf Sheets("Equilibrage").Cells(1, 1) = "Livret A Evan" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Livret A Evan")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Livret A Evan")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Livret A Evan")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille Evan est vide
    
        With Sheets("Livret A Evan")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
        
    ElseIf Sheets("Equilibrage").Cells(1, 1) = "Livret A Elsa" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Livret A Elsa")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Livret A Elsa")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Livret A Elsa")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille Elsa est vide
    
        With Sheets("Livret A Elsa")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
        
    ElseIf Sheets("Equilibrage").Cells(1, 1) = "PEA" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("PEA")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("PEA")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("PEA")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille PEA est vide
    
        With Sheets("PEA")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
        
    ElseIf Sheets("Equilibrage").Cells(1, 1) = "Visa Laurence" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Visa Laurence")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Visa Laurence")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Visa Laurence")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille PEL est vide
    
        With Sheets("Visa Laurence")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
        
 ElseIf Sheets("Equilibrage").Cells(1, 1) = "Crédit du nord" Then
       With Sheets("Equilibrage")
            Range("Tableau112").Select
                Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                Selection.Borders(xlEdgeTop).LineStyle = xlNone
                Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                Selection.Borders(xlEdgeRight).LineStyle = xlNone
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                    With Selection.Interior
                        .Pattern = xlNone
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    End With
                For Lequ = 6 To .[a65000].End(xlUp).Row
                    If .Cells(Lequ, 5) = "p" Then
                        With Sheets("Crédit du nord")
                                ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                                
                        End With
                    ElseIf .Cells(Lequ, 5) = "" Then
                        With Sheets("Crédit du nord")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    ElseIf .Cells(Lequ, 5) = "r" Then
                        With Sheets("Crédit du nord")
                                  ligne = .[a65000].End(xlUp).Row + 1
                                 Sheets("Equilibrage").Cells(Lequ, 1).Cut .Cells(ligne, 1)
                                 Sheets("Equilibrage").Cells(Lequ, 2).Cut .Cells(ligne, 2)
                                 Sheets("Equilibrage").Cells(Lequ, 3).Cut .Cells(ligne, 3)
                                 Sheets("Equilibrage").Cells(Lequ, 4).Cut .Cells(ligne, 4)
                                 Sheets("Equilibrage").Cells(Lequ, 5).Cut .Cells(ligne, 5)
                                 Sheets("Equilibrage").Cells(Lequ, 6).Cut .Cells(ligne, 6)
                                 Sheets("Equilibrage").Cells(Lequ, 7).Cut .Cells(ligne, 7)
                                 ligne = ligne + 1
                        End With
                    End If
                Next
    'supprime les lignes si la premiere celulle est vide
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
      
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
        End With
        
     'supprime les lignes si la premiere celulle de la feuille PEL est vide
    
        With Sheets("Crédit du nord")
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        .Activate
        .[a65000].End(xlUp).Select
        
    
        Do
            If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
            End If
            ActiveCell.Offset(-1, 0).Select
            Loop Until ActiveCell.Row = 1
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            
        ' masque les lignes avec r
        For LignR = .Range("A65536").End(xlUp).Row To 5 Step -1
        If .Cells(LignR, 5) = "r" Then .Rows(LignR).Hidden = True
        Next
        End With
    End If
ElseIf Sheets("Equilibrage").Cells(3, 4) <> "0" Then
FormEquil2.Show
End If
End Sub
 
Trier par date Trier par votes
Dudu2

Dudu2

XLDnaute Barbatruc
Bonjour,
Tu ne pourrais pas réduire la longueur de ce code en créant une fonction avec 2 ou 3 paramètres qui ferait le traitement qui semble répété N fois dans ce code et qui le rend assez indigeste , pour plus de lisibilité ?
 
Vote positif 0 Vote négatif

Discussions similaires

Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
184
eric72
E
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
403
job75
job75
R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
352
rebatte
R
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
654
laurent950
laurent950
S
  • Question Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
212
Dranreb
Dranreb
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
756
Mody200
M
D
  • Question Question
XL pour MAC Match liste des valeurs identique
Réponses
4
Affichages
451
Dudy
D
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
342
pangasoul
P
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
264
vgendron
vgendron
Y
  • Question Question
Microsoft 365 Insérer des lignes selon variable
Réponses
1
Affichages
434
gbinforme
G
Jojo973
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
386
Jojo973
Jojo973
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
178
sebastien176
S
piga25
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
343
TooFatBoy
TooFatBoy
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
283
Latias
L
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
452
Aya_flo
A
Nicolas JACQUIN
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
660
TooFatBoy
TooFatBoy
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
444
ph.vanne
ph.vanne
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
383
CathyLD
C
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
337
Phil69970
Phil69970

Membres actuellement en ligne

28 membres et 428 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 268
Messages
2 117 908
Membres
113 375
dernier inscrit
FRUG33