Concaténation VBA et if

Question

Bonjour, 

Je suis un programmateur autodidacte en VBA. Je souhaiterais faire apparaître un commentaire dans une cellule en fonction de la valeur de la cellule voisine. 

Je sais qu'il est possible de le faire de multiple façon mais je tiens absolument à le faire en codant la fonction If.  Voici le code que j'utilise. Quelqu'un sait-il comment positionner les guillemets dans le 1er argument de la fonction if

Sub ElIf()
Dim n As Integer
    For n = 2 To 23
        Worksheets("Voyage").Range("K" & n).Select
        ActiveCell.Formula = "=IF(f & n <500,""pas cher"",""cher"")"
    Next n
End Sub

Configuration: Windows 7 / Chrome 21.0.1180.89

Patrice33740 · Answer

Bonjour,

Sub ElIf()
Dim n As Integer
For n = 2 To 23
  Worksheets("Voyage").Range("K" & n).Formula = _
    "=IF(F" & n & "<500,""pas cher"",""cher"")"
Next n
End Sub

t_li · Answer

Merci énormément Patrice. J'avais essayé des dizaines de combinaisons différentes pour placer les guillemets mais jamais je n'aurai pensé à celle-là.

Du coup, ça me sera très utile pour rédiger la syntaxe de mes autres formules ^_^

Thierry

Concaténation VBA et if

2 réponses

Discussions similaires

Newsletters