Discussion :

[bird007]

Bonjour;

J'arrive pas à traduire la fonction excel suivante

Code :

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

=SI(AE$9<=DATE($T$1;$V$1;1);DECALER($AD10;0;-($V$1-MOIS(AE$9)));0)

en language VBA.
J'ai utlisé l'enregistrement de macro mais quand je la colle ca marhce pas

Au fait ce que j'ai pas su traduire c le "-($V$1-MOIS(AE$9)"


Merci

[BenjGe]

si tu remplis un range avec une formule pas besoin de la traduire:

Code :

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

range("A1").formulalocal="ma formule"

Pour l'enregistreur je ne comprend pas tes explications, tu lances l'enregistrement tu rentres dans ta formule (déjà renseignée auparavant) puis
F2 et entrée. Dans la macro tu auras la traduction.

Sur ce forum beaucoup te diront qu'il est préférable de conserver la formule anglaise, pour une question de compatibilité avec l'ensemble des versions d'Excel.

[bird007]

Bonjour;Merci pour ta reponseCependant, ça n'a pas marché chez moi Voici le code que j'ai utilisé

Code :

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

1
2
3
4
5
6
7
8
9
Sub decaler()
Dim ligne As Integer, colonne As IntegerFor ligne = 10 
To Cells(Rows.Count, 1).End(xlUp).Row
For colonne = 31 To 78
If Cells(9, colonne) < Cells(1, 23) ThenRange("AD10").offset(0,2)
End If
Next colonne
Next ligne
End Sub

Merci