Simplication code vba

Version imprimable

Bonjour à tous,

je me pose la question peut on simplifier ce code qui prend beaucoup de temps si le nombre de ligne est important.
Code:

1 2 3 4 5 6 7 8 Range("AA1").Select Do While ActiveCell.Value <> "" ActiveCell.Offset(0, 6).Select If ActiveCell.Offset.Value = "" Then ActiveCell.Value = "OK" End If ActiveCell.Offset(1, -6).Select Loop

Bonjour,

je ne sais pas si cela ira beaucoup plus vite, mais à tester :

Code:

1
2
3
4
5
6
7
8
9
Dim i as long
 
i = 1
Do While Range("AA" & i).Value <> ""
    If Range("AA" & i).Offset(0, 6).Value = "" Then
        Range("AA" & i).Offset(0, 6).Value = "OK"
    End If
    i = i+1
Loop

Je pense qu'il faut essayer de manipuler la feuille le moins possible comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim arrTmp()
Dim ws As Worksheet
Dim i As Long
' dans quel onglet travaille-t-on ?
Set ws = ThisWorkbook.Sheets(1)
 
With ws
    arrTmp = .Range("AA1:AG" & .Cells(.Rows.Count, 27).End(xlUp).Row).Value
End With
 
For i = 1 To UBound(arrTmp)
    If arrTmp(i, 6) = "" Then
        arrTmp(i, 1) = "OK"
    End If
Next i
 
With ws
    .Range("AA1:AG" & .Cells(.Rows.Count, 27).End(xlUp).Row).Value = arrTmp
End With