Formules en VBA

rudaye · 9 Août 2005

Bonsoir le forum!

Ce soir ma question est celle ci:
j'ai des formules dans ma feuille et je vousdrais les automatiser dans une macro !
Donc j'ai crée ma macro et lors de l'enregistrement, je me met sur la cellue et je fais F2 pour qu'il la transcrive!
jusque là ça va!

Cette formule se répète 12 fois avec juste le mois qui change sur une même ligne!

Voir le fichier joint pour plus d'explication

Merci

[file name=Classeur1_20050809182558.zip size=2639]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050809182558.zip[/file]

rudaye · 9 Août 2005

je voudrais éviter de répéter pour chaque cellule de la ligne :

Range('C6').Select
ActiveCell.FormulaR1C1 = '=SUMPRODUCT((ColUJanvier=7)*(ColPanneJanvier=''o''))'
Range('C7').Select

en changant juste à chaque fois le mois!

_Thierry · 9 Août 2005

Salut Rudy, le Forum

Une approche...

Option Explicit

Sub Monthes12()
Dim i As Byte
Dim M As Variant
i = 2

    For Each M In Array('January', 'Februray', 'March', 'April', 'May', 'June')
        i = i + 1
        Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '<>7)*(ColPanne' & M & '=''o''))'
    Next M

    Range('D6').Select
End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

rudaye · 9 Août 2005

Salut Thierry et merci!

ça m'a l'air bon mais à quoi sert le Range('D6').Select
à la fin de la boucle?

_Thierry · 9 Août 2005

LOL !!!

Juste un Résidu d'enregistreur.... C'était juste pour avoir la syntax de la formule SOMMEPROD !!!

Bonne Soirée
[ol]@+Thierry[/ol]

rudaye · 9 Août 2005

Excuse moi chui mort vivement les vacances!

C'est justepour se placer dans la cellule D6 je me met ou je veux après la boucle!

Merci thierry

Bonne soirée

Formules en VBA

rudaye

Guest

Pièces jointes

rudaye

Guest

_Thierry

XLDnaute Barbatruc

rudaye

Guest

_Thierry

XLDnaute Barbatruc

rudaye

Guest

Discussions similaires