alignement des pointages

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Klin89
Membre dévoué
Membre dévoué
Messages : 634
Appréciations reçues : 27
Inscrit le : 28 mai 2011
Version d'Excel : 2003 FR

Message par Klin89 » 2 juillet 2018, 19:45

Re , :)

On peut remplacer cette boucle :
For j = 4 To .Columns.Count
    If dico.exists(.Cells(2, j).Value2) Then
        For i = 3 To .Rows.Count Step 2
            If dico(.Cells(2, j).Value2).exists(.Cells(i, 1).Value2) Then
                If dico(.Cells(2, j).Value2)(.Cells(i, 1).Value2).Count = 2 Then
                    .Cells(i, j).Resize(2).Value = Application.Transpose(dico(.Cells(2, j).Value2)(.Cells(i, 1).Value2).ToArray)
                Else
                    .Cells(i, j).Value = dico(.Cells(2, j).Value2)(.Cells(i, 1).Value2).Item(0)
                End If
            End If
        Next
    End If
Next
par celle ci :
For j = 4 To .Columns.Count
    If dico.exists(.Cells(2, j).Value2) Then
        For i = 3 To .Rows.Count Step 2
            If dico(.Cells(2, j).Value2).exists(.Cells(i, 1).Value2) Then
                .Cells(i, j).Resize(dico(.Cells(2, j).Value2)(.Cells(i, 1).Value2).Count).Value = _
                Application.Transpose(dico(.Cells(2, j).Value2)(.Cells(i, 1).Value2).ToArray)
            End If
        Next
    End If
Next
C'est plus simple ::~

klin89
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message