Discussion :

[chito79000]

Bonjour,

Peut-on simplifier la macro ?

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
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Columns("AK:AK").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Columns("AK:AL").Select
    Range("AL1").Activate
    Selection.NumberFormat = "m/d/yyyy"
    Range("AK2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-8],'[bidule.xlsx]BAL'!R2C28:R1904C30,3,FALSE)"
    Range("AK2").Select
    Selection.AutoFill Destination:=Range("AK2:AK1895")
    Range("AK2:AK1895").Select
    Range("AL2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-9],'[bidule.xlsx]BAL'!R2C28:R1904C31,4,FALSE)"
    Range("AL2").Select
    Selection.AutoFill Destination:=Range("AL2:AL1895")
    Range("AL2:AL1895").Select
    Range("AK2").Select
End Sub

[Gado2600]

Bonjour,

Ta question est plutôt : "L'enregistreur de macro me donne ça. Comment le mettre au propre ?".
Premier point : utilisation de variables pour les sheets pour un code plus sûr et plus clair
Second point : les .select sont inutiles et générateurs d'erreur donc, il vaut mieux avoir du :

Code :

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

range("A1")=1

plutôt que du :

Code :

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

1
2
range("A1").select
selection.value = 1

Troisième point : retirer les lignes complètement inutiles (comme les double select)

Cordialement,

[Philippe Tulliez]

Bonjour,
En premier lieu, utiliser les objets feuille, colonne, cellule directement plutôt que d'utiliser les méthodes Select, Activate ainsi que l'objet Selection. C'est parfaitement inutile et ralentit l'exécution du programme.
Ensuite pour éviter les problèmes préciser la filiation complète de l'objet Range (Classeur + feuille).
Et encore, pour entrer une formule sur un ensemble de cellules, il n'est pas nécessaire d'utiliser la méthode AutoFill
Exemple pour la formule =A2*B2 qui sera appliquée sur la plage C2:C1000

Code :

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

ThisWorkbook.Worksheets("Feuil1").Range("C2:C1000").Formula = "=A2*B2"

Ceci écrit en vitesse sans avoir tout lu

[chito79000]

J'ai trouvé la solution pour la simplifier merci de votre temps.

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
Sub recherchev()
 
    'création de colonne au format date
    Columns("AK:AK").Select
    Selection.Insert Shift:=xlToRight
    Selection.Insert Shift:=xlToRight
    Columns("AK:AL").Select
    Selection.NumberFormat = "m/d/yyyy"
 
    'recherchev des date d'abonnement
    Range("C2").Select
Do While ActiveCell.Value <> ""
     ActiveCell.Offset(0, 34).Select
     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],'[bidule.xlsx]BAL'!R2C28:R1904C30,3,FALSE)"
     ActiveCell.Offset(1, -34).Select
 
 Loop
 
     Range("C2").Select
Do While ActiveCell.Value <> ""
     ActiveCell.Offset(0, 35).Select
     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],'[bidule.xlsx]BAL'!R2C28:R1904C31,4,FALSE)"
     ActiveCell.Offset(1, -35).Select
 
 Loop
 
End Sub

Pouvez vous me dire si elle est encore à améliorer ?

[Philippe Tulliez]

Bonjour,

Pouvez vous me dire si elle est encore à améliorer ?

Il y a des fois c'est exaspérant d'essayer d'aider quelqu'un.
As-tu lu les réponses faites ?
Manifestement pas.
Nous sommes deux à t'avoir dit de ne pas utiliser les Select, Selection, etc.
Je t'ai écrit aussi de placer ta formule directement sur l'ensemble de la plage concernée.

[Invité]

Bonjour,

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
Sub recherchev()
 
    'création de colonne au format date
    With Columns("AK:AL")
        .Insert Shift:=xlToRight
        .NumberFormat = "m/d/yyyy"
    End With
    'recherchev des date d'abonnement
Dim I As Long
With Range("C2")
    Do While .Offset(I).Value <> ""
        .Offset(I, 34).FormulaR1C1 = "=VLOOKUP(RC[-8],'[bidule.xlsx]BAL'!R2C28:R1904C30,3,FALSE)"
        .Offset(I, 35).FormulaR1C1 = "=VLOOKUP(RC[-9],'[bidule.xlsx]BAL'!R2C28:R1904C31,4,FALSE)"
        I = I + 1
     Loop
End With
End Sub

[chito79000]

Merci rdurupt pour votre simplification. Cependant, le format date ne fonctionne cela me parait bizarre...

[Invité]

autant pour moi!

Code :

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

1
2
Columns("AK:AL").Insert Shift:=xlToRight
Columns("AK:AL").NumberFormat = "m/d/yyyy"