Ajouter des colonnes dans une table en mettant des formules dedans

Version imprimable

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:

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

Essaie :

Code:

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

12/10/2015, 12h45
mercatog

Citation:

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
16/10/2015, 16h22
Freudsw

Merci pour vos réponses

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
16/10/2015, 17h19
Daniel.C

Bonjour,

Tu peux préciser quelle est la formule à appliquer (et à la place de laquelle) ?
16/10/2015, 17h25
Freudsw

Merci pour ta réponse rapide Daniel

Re

La formule que je voudrais appliquer est la suivante :

Code:

=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

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

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])"