Bonjour,
Je souhaiterais, à partir de la colonne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
X:X
composée comme suit: Pierre; X; X; Jean; X; X; Michel....remplir la colonne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
O:O
comme suit: Pierre; Jean; Michel.....

Pour l'instant, j'utilise:


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
 
Set Plaje = Sheets("P").Range("K2:K" & DerligSrce)
 
For Each c In Plaje
 
Application.StatusBar = c.Row & "/" & Sheets("P").Range("A200000").End(xlUp).Row
 
Application.ScreenUpdating = False
 
If c.Value <> "X" Then
 
Sheets("P").Range("O200000").End(xlUp).Offset(1, 0).Value = c.Value
 
End If
 
Next c
 
Application.ScreenUpdating = False
Dans un gros fichier cette procédure me paraît très lente, existe-t-il un moyen plus rapide?


Merci d'avance