1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Sub atester()
Application.ScreenUpdating = False
Colonne = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", "CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CI", "CJ", "CK", "CL")
NBRCAR = Array(10, 1, 22, 40, 800, 4, 255, 40, 800, 4, 255, 40, 800, 3, 255, 40, 800, 4, 255, 40, 800, 4, 255, 40, 800, 4, 255, 8, 3, 11, 40, 11, 11, 11, 3, 10, 10, 3, 8, 8, 10, 3, 100, 100, 100, 100, 100, 100, 8, 7, 40, 40, 3, 10, 10, 255, 255, 255, 5, 1, 255, 333, 20, 20, 30, 20, 20, 20, 20, 20, 20, 20, 30, 30, 20, 20, 20, 20, 20, 20, 30, 30, 1, 1, 100, 100, 100, 100, 100, 100)
With Sheets("BDD")
' Mettre le point pour associer à l'objet Sheets("BDD")
For i = 2 To 15000
For j = 0 To 89
If Not IsEmpty(.Cells(i, Colonne(j))) Then
If Len(.Cells(i, Colonne(j))) > NBRCAR(j) Then
Sheets("Feuil2").Range("T65536").End(xlUp).Offset(1) = .Cells(i,Colonne(j)).Address(0, 0)
End If
End If
Next
Next
Application.ScreenUpdating = True
End With
End Sub |
Partager