Concaténation VBA et if

t_li Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
t_li Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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

2 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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


0
t_li Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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
0