Formules en VBA

[rudaye]

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]

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]

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
&nbsp; &nbsp; &nbsp; &nbsp; Cells(6, i).Formula = '=SUMPRODUCT((ColU' & M & '<>7)*(ColPanne' & M & '=''o''))'
&nbsp; &nbsp; Next M


&nbsp; &nbsp; Range('D6').Select
End Sub

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

 

[rudaye]

Salut Thierry et merci!

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

 

[_Thierry]

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]

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