Discussion :

[Kestion100]

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

[mercatog]

Bonjour
Utilise un filtre avec comme critère <>X
Copie en une seule fois les éléments filtrés

[Kestion100]

Dans le fichier j'ai une fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Function Concatener_Matrice(ByVal Matrice As Variant, separateur As String) As String
    Dim c As Variant
    Application.Volatile
    For Each c In Matrice
       Concatener_Matrice = Concatener_Matrice & c & separateur
 
    Next
    If Len(Concatener_Matrice) > 0 Then
        Concatener_Matrice = Left(Concatener_Matrice, Len(Concatener_Matrice) - Len(separateur))
    End If
End Function

Qui se déclenche à la ligne:

Code :

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

1
2
 
Sheets("P").Range("O200000").End(xlUp).Offset(1, 0).Value = c.Value

Et qui le fait d'ailleurs dans d'autres codes du fichier.
Elle m'est très utile mais pas là.....