Discussion :

[chito79000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Zirak]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mathspountz]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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