Discussion :

[Freudsw]

Bonjour à tous;

Je travaille sur une base de données qui nécessite beacoup de traitement. Ce que j'aimerais faire, c'est dans un premier temps, de remplacer dans les colonnes (AO, AP, AQ) les points par des virgules. Ensuite, j'aimerais supprimer toutes les lignes de la table pour lesquelles dans la colonne (AQ) il y a des valeurs inferieur à 50000. Ensuite j'aimerais ajouter ( insérer) deux colonnes à partir de la colonne (AQ) sachant qu'il y a plein de colonnes aprés.
Dans la premiere j'aimerais que ça m'affiche la somme des cellules (AP+AO). et dans la deuxiéme colonne j'aimerais introduire la formule suivante :=SI(ET((AR2=AR1);OU((X2="SWAP");(X2="EXOTIC")));"";AR2).

Je vous remercie par avance pour votre aide.

j'ai un code ici si il y a moyen de l'améliorer :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub Macro1()
 
'Déclaration des variables
Dim oRng As Range
Dim i, j, t As Integer
 
Application.ScreenUpdating = False
Columns("AO:AQ").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
 
'Avec "échantillon"
With Worksheets("EXTRACT")
 
    Set oRng = .Range("AQ1")
 
    'On boucle de i = dernière ligne non vide de la colonne 43 à 1 (décroissant)
    For i = .Cells(.Cells.Rows.Count, 43).End(xlUp).Row - 1 To 1 Step -1
            'Si cette valeur  est < à 50000
            If oRng.Offset(i, 0) < 50000 Then
                'On supprime la ligne
                oRng.Offset(i, 0).EntireRow.Delete
            End If
    Next i
    End With
 
    Columns("AR:AR").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("AR1").Select
    ActiveCell.FormulaR1C1 = "PNL1"
    Range("AS1").Select
    ActiveCell.FormulaR1C1 = "PNL2"
    Range("AR2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-3]"
    Range("AR2").Select
    Selection.FillDown
 
    Range("AS2").Select
 
    ActiveCell.FormulaR1C1 = _
        "=IF(AND((RC[-1]=R[-1]C[-1]),OR((RC[-21]=""SWAP""),(RC[-21]=""EXOTIC""))),"""",RC[-1])"
 
    Range("AS2").Select
    Selection.FillDown
    Application.ScreenUpdating = True
 
End Sub

Aussi sur la partie de la supression des lignes, ça dure trop longtenmps, vous aurez une autre idée; le but et de travailler sur les lignes qui ont dans la colonne AQ une valeur supérieure a 50000.


Cordialement,
Freudsw

[Daniel.C]

Essaie :

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
21
22
23
24
25
26
27
28
29
30
31
Sub Macro1()
 
'Déclaration des variables
Dim oRng As Range
Dim i, j, t As Integer
 
Application.ScreenUpdating = False
Columns("AO:AQ").Replace What:=".", Replacement:=","
 
 
'Avec "échantillon"
With Worksheets("EXTRACT")
 
    .AutoFilterMode = False
    .[1:1].EntireRow.Insert
    .[AQ1] = "x"
    .Range(.[AQ1], .Cells(.Rows.Count, "AQ").End(xlUp)).AutoFilter 1, "<50000"
    .AutoFilter.Range.Delete
End With
 
    Columns("AR:AS").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("AR1") = "PNL1"
    Range("AS1") = "PNL2"
    Range("AR2", .Cells(.Rows.Count, "AR").End(xlUp)).FormulaR1C1 = "=RC[-2]+RC[-3]"
 
    Range("AS2", .Cells(.Rows.Count, "AS").End(xlUp)).FormulaR1C1 = _
        "=IF(AND((RC[-1]=R[-1]C[-1]),OR((RC[-21]=""SWAP""),(RC[-21]=""EXOTIC""))),"""",RC[-1])"
 
    Application.ScreenUpdating = True
 
End Sub

[mercatog]

Aussi sur la partie de la supression des lignes, ça dure trop longtenmps, vous aurez une autre idée

Fais un filtre automatique et supprime les lignes visibles.

PS. Évite les Select et Activate


EDIT: Daniel plus vite

[Freudsw]

Re-bonjour

j'ai un petit souci par rapport au formule que je veux inserer. elle ne s'applique que sur une seule ligne, or que moi je voudrais que s'effectue sur toute la colonne.

Une idée ?

Merci à l'avance pour vos réponses.

Cordialement,
Freudsw

[Daniel.C]

Bonjour,

Tu peux préciser quelle est la formule à appliquer (et à la place de laquelle) ?

[Freudsw]

Re

La formule que je voudrais appliquer est la suivante :

Code :

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

=SI(ET((AR2=AR1);OU((X2="SWAP");(X2="EXOTIC");(X2="BOND")));"";AR2)

Et comme tu peux le constater, je voudrais l'appliquer sur toutes les cellules de la colonne AS.


Merci encore,

Cordialement,
Freudsw

[Daniel.C]

Fais attention que tu as déjà une formule en colonne R et que là, tu remplacec les cellules par la formule :

Code :

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

1
2
Range("AR2", .Cells(.Rows.Count, "AR").End(xlUp)).FormulaR1C1 = _
        "=IF(AND((RC[43]=R[-1]C[43]),OR((RC[23]=""SWAP""),(RC[23]=""EXOTIC""),(RC[23]=""BOND""))),"""",RC[43])"