Signaler

Formules VBA pour créer des colonnes [Résolu]

Posez votre question GillesBIGBOY - Dernière réponse le 28 sept. 2017 à 14:29 par GillesBIGBOY
Bonjour,

J'ai un petit souci avec des formules VBA.
je veux créer deux colonnes dans lequel j'applique 2 formules sur toute la colonne mais le probléme est que celame prends beaucoup de temps pour l'ouverture, comme pour la fermeture.
serait-il possible d'améliorer la formule pour gagner du temps?

MERCI




Sub Macro2Colonnes()
'
' Macro pour la création de colonne

'
Columns("C:C").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C1").Select
ActiveCell.FormulaR1C1 = "Catégorie"
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D1").Select
ActiveCell.FormulaR1C1 = "Sous Catégorie"
Range("D2").Select
Columns("D:D").ColumnWidth = 14.86
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-1],'C:\Users\gboubou\Desktop\Gilles-automatisation.xlsm]Base comptable'!C1:C3,3,FALSE),""0"")"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C34049")
Range("C2:C34049").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-2],'C:\Users\gboubou\Desktop\Gilles-automatisation.xlsm]Base comptable'!C1:C4,4,FALSE),""0"")"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D34049")
Range("D2:D34049").Select

End Sub
Utile
+1
plus moins
Bonjour,
'en debut
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
.

'en fin
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
GillesBIGBOY- 28 sept. 2017 à 14:29
merci f894009 !!
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !