Discussion :

[bird007]

Bonjour forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

Salut bird007 et le forum

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+

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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+

[Gorfael]

Salut bird007 et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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+