Discussion :

[Pauline1374]

Bonjour à tous,

Je suis nouvelle sur ce forum et débutante en VBA, je demande donc votre indulgence

J'ai une formule longue que je n'arrive pas à découper sur plusieurs lignes, excel me donne une erreur de fin d'instruction.

Comme ma formule est bien trop longue je vous supprime une bonne partie :

Code :

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

1
2
Sheets("BDD").Cells(ligne, 10) = _
    "=IF(RC[1]=""Vanadium (V) (ICP/MS) Eluat"",""Métaux"",IF(RC[1]=""Etain (Sn) (ICP/MS) Eluat"",""Métaux"",IF(RC[1]=""Vanadium (V)"",""Métaux"",IF(RC[1]=""Titane (Ti)"",""Métaux"",IF(RC[1]=""Potassium (K)"",""Métaux"",IF(RC[1]=""Phosphore (P)"",""Métaux"",IF(RC[1]=""Magnésium (Mg)"",""Métaux"",""Pasdefamille"")))))))

Où dois-je la découper ? et comment ? j'ai fait "espace_"

j'ai fait comme ceci mais il me dit qu'il y a une erreur de compilation...:

Code :

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

1
2
3
4
Sheets("BDD").Cells(ligne, 10) = _
    "=IF(RC[1]=""Vanadium (V) (ICP/MS) Eluat"",""Métaux"",IF(RC[1]=""Etain (Sn) (ICP/MS) Eluat"",""Métaux"",IF(RC[1]=""Vanadium (V)"",""Métaux"", _
 
IF(RC[1]=""Titane (Ti)"",""Métaux"",IF(RC[1]=""Potassium (K)"",""Métaux"",IF(RC[1]=""Phosphore (P)"",""Métaux"",IF(RC[1]=""Magnésium (Mg)"",""Métaux"",""Pasdefamille"")))))))

Je vous remercie d'avance pour votre précieuse aide !

Pauline

[nibledispo]

Bonsoir,

Ne serait-il pas préférable de privilégier l'instruction "select case ..... end select" à cet empilage de "si ... sinon"

Par ailleurs, il serait mieux de fournir l'algorithme de ce que tu souhaites .

cordialement,

[Philippe Tulliez]

Bonjour,
Je ne peux qu'abonder dans le sens de Paul.
Cependant s'il faut vraiment placer une formule dans le classeur Excel je m'interroge sur la raison de passer par du code VBA au lieu de taper la formule sur la première cellule de la colonne et ensuite de la recopier vers le bas.
Et pour ma part avec une formule d'excel avec autant de SI imbriqué, je passe automatiquement par la formule RECHERCHEV avec une liste des données paramètres dans une feuille spécifiquement destinée à cet effet.
Dans la feuille que je nommerai pour l'exemple [ParameterList]
En cellule :
A2 : Vanadium (V) (ICP/MS) Eluat
B2 : Métaux
A3 : Etain (Sn) (ICP/MS) Eluat
B3 : Métaux
et ainsi de suite pour les autres données de la ligne 2 vers la ligne 10 par exemple.
La formule se résumerait alors par

Code :

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

=RECHERCHEV($A2;ParamterList!$A$2:$B$10;2;FAUX)

A traduire en VBA si vraiment c'est indispensable.

[Pauline1374]

Bonjour,


Merci beaucoup pour vos réponses. Je vais utiliser votre solution Philippe : rechercheV traduit en VBA.

Je vous remercie pour votre aide !

Bonne continuation et sûrement à bientôt sur le site !