Programmation VBA

thibeau67 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -  
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   - 28 avril 2016 à 15:57
Bonjour,

J'aimerai changer cette formule :

=SI(ESTERREUR(LIREDONNEESTABCROISDYNAMIQUE("Temps Coût MO";Feuil4!$A$3;"Article";$A5;"PDC";D$4)*$C5);0;LIREDONNEESTABCROISDYNAMIQUE("Temps Coût MO";Feuil4!$A$3;"Article";$A5;"PDC";D$4))*$C5

en code vba

J'aimerai que cette formule se face sur toute les cellules de la plage ( d5:AA(numéro de la dernière ligne non vide) dans mon cas ligne 1230)

J'aimerai bien que la macro face la cellule D5 en premier puis qu'elle face les cellules jusqu'à AA5 et ensuite qu'elle descende jusqu'à la dernière ligne non vide afin de remplir toute la plage demandée.

Est-ce possible ?

Merci d'avance

Cordialement

Thibeau67

1 réponse

Réponse 1 / 1
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour
Essayez ceci. Attention, n'ayant pas votre fichier, je n'ai pas pu la tester, faites un essai sur une copie. 
Sub RecopieFormule()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    DerLig = Cells.Find("*", , , , xlByColumns, xlPrevious).Row
    Range(Cells(5, "D"), Cells(DerLig, "AA")).FormulaR1C1 = "=IF(ISERROR(GETPIVOTDATA(""Temps Coût MO"",Feuil4!R3C1,""Article"",R[4]C1,""PDC"",R4C[1])*R[4]C3),0,GETPIVOTDATA(""Temps Coût MO"",Feuil4!R3C1,""Article"",R[4]C1,""PDC"",R4C[1]))*R[4]C3"
    Application.Calculation = xlCalculationAutomatic
End Sub
Cdlt
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse