correction macro vba excel

Version imprimable

Bonjour forum,

Je me demande s'il y a une erreur dans le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub formule2()
Sheets("CA(PC)").Select
Range("E12").Activate
Dim ligne As Integer, colonne As Integer, CPT As Integer
CPT = 20
 
For ligne = 12 To Cells(Rows.Count, 1).End(xlUp).Row
  For colonne = 31 To 78
    Do While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Offset(0, CPT) = "=IF(R11C<=DATE(R1C25,R1C27,1),OFFSET(RC24,0,-(R1C27-MONTH(R11C))),IF(AND(RC11=""S"",RC5<=R11C),RC9,IF(AND(RC8>=R11C,RC5<=R11C),RC9,0)))"
Loop
    CPT = CPT + 1
Next colonne
     Next ligne
 
ActiveCell.Offset(0, CPT) = "=SUMIF(R12C10:R22C10,""o"",R12C25:R22C25)"
 
 
End Sub

Merci

07/06/2010, 14h51
Gorfael

Salut bird007 et le forum

Citation:

Je me demande s'il y a une erreur dans le code suivant

OUI

Ah, ça ne suffit pas comme réponse ? Alors donne assez d'infos sur ce que doit faire la macro !!!
ActiveCell.Offset(0, CPT) = "=IF(R11C<=DATE(R1C25,R1C27,1.....

- 1er :
Tu donnes une formule (un texte), mais tu n'explique pas à Excel cequ'il doit faire
ActiveCell.Offset(0, CPT).FormulaR1C1 = "=IF(R11C<=DATE(R1C25,R1C27,1.....

-2me :
Je n'ai pas décodé ta formule, mais tu utilises des adresses Absolues, ce qui me semble assez débile dans une boucle
R11C => cellule de la même ligne de la colonne 11 (K)
R[11]C => cellule de la même ligne à 11 colonne à droite
A+
07/06/2010, 15h43
bird007

Bonjour,

C'est que j'ai utilisé l'enregistrement pour avoir ma formule.

Au fait j'ai un tableau avec des lignes et des colonnes
je voudrais qu'il vient alimenter mes colonnes de Y à BW et toutes mes lignes par la formule excel suivante:

Code:

=SI(Y$11<=DATE($Y$1;$AA$1;1);DECALER($X12;0;-($AA$1-MOIS(Y$11)));SI(ET($K12="S";$E12<=Y$11);$I12;SI(ET($H12>=Y$11;$E12<=Y$11);$I12;0)))

Ce que je n'ai pas su traduire en language VBA pur

Merci A+
07/06/2010, 23h46
Gorfael

Salut bird007 et le forum

Code:

=SI(Y$11<=DATE($Y$1;$AA$1;1);DECALER($X12;0;-($AA$1-MOIS(Y$11)));SI(ET($K12="S";$E12<=Y$11);$I12;SI(ET($H12>=Y$11;$E12<=Y$11);$I12;0)))

C'est pas du VBA pur, ce n'est que la formule avec une syntaxe anglaise. Pour les histoires de référence d'adresse, passes ton excel en L1C1 (menu outils>>option>>Onglet Général => coches Référence en L1C1, tu copies chacune des adresses)
A+