Discussion :

[Ashord]

Bonjour !

Je travaille actuellement sur VBA mais j'ai malheureusement oublié tout mes cours
Donc j'aimerai avoir l'aide de la communauté pour le problème qui suit :

J'ai une feuille excel contenant des valeurs.
Et j'aimerai appliquer une formule à partir de A11 à Axxx. XXX étant la valeur de BXXX en face non vide.

J'ai beaucoup cherché mais à chaque fois que j'essaie d'adapter les solutions proposées par vos semblables je me retrouve avec des erreurs.

Voici l'exemple sur lequel je bute en ce moment :

Code :

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

1
2
3
 Range("A11").Select
 ActiveCell.FormulaR1C1 = "=if(isblank(B11);A10;if(B10=""Closing Balance"";B11;if(B10=""Risk profile: Undefined"";B11;A10))"
 Selection.AutoFill Destination:=Range("a11:a" & Range("b65536").End(xlUp).Row)

Lorsque j'applique la formule, un bug apparaît ensuite avec l'alerte Runtime error 1004.
En me rendant dessus, c'est la formule

Code :

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

ActiveCell.FormulaR1C1 = "=if(isblank(B11);A10;if(B10=""Closing Balance"";B11;if(B10=""Risk profile: Undefined"";B11;A10))"

qui est surligné en jaune

Une ame charitable pourrait-elle m'éclaircir sur ce point ?

Merci d'avance !

[cerede2000]

Bonjour à toi

Premier point, tu utilise la propriété FormulaR1C1 et tu y mets des références de cellule avec les lettres des colonnes....
Ça ne peux donc pas fonctionner.

Dans un premier temps, remplace FormulaR1C1 par Formula

[Ashord]

Bonjour à toi !

Merci de ta réponse, par contre je viens de faire la modification, mais j'ai toujours la meme erreur qui apparaît ^^"

[cerede2000]

Ah oui !
Dans les formules que tu appliques en VBA et qui sont donc en anglais, il faut remplacer les ; par ,
Tiens ici un traducteur de formules bien pratique : http://fr.excel-translator.de/translator/

[Ashord]

Mdr merci beaucoup pour le lien par contre je ne peux pas y accéder car mes accès sont bloqués pour beaucoup de site...

Je ne vois pas ou je dois remplacer les ; par des ,
Les ; sont utilisés de base dans la formule suivante non? et font parti intégrante de la formule telle que je l'aurai tapé si je le faisais manuellement dans une cellule lambda.

Code :

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

ActiveCell.FormulaR1C1 = "=if(isblank(B11);A10;if(B10=""Closing Balance"";B11;if(B10=""Risk profile: Undefined"";B11;A10))"

[cerede2000]

C'est bien ceux que tu as mis en rouge que tu dois remplacer
Comme indiqué, les formules en français utilisent ; alors qu'en anglais c'est ,

Donc :

Code :

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

ActiveCell.Formula = "=if(isblank(B11),A10,if(B10=""Closing Balance"",B11,if(B10=""Risk profile: Undefined"",B11,A10))"

Au passage remplacement de FormulaR1C1 en Formula

PS : Utilise la balise CODE (bouton #) plutôt que QUOTE