Fonction "Si' en VBA

Bonjour,

Voici mon code VBA

Code:

---

1 2 3 4 5 6 7 8

Sub caseacocher() If Range("b153") = True Then Range("b465") = "coex" 'si c'est une expression à intégrer Range("b162").Select ' pourquoi faire Else Range("B465").ClearContents End If End Sub

---

Lorsque la case est cochée, "VRAI" s'affiche cellule B153, l'expression COEX s'intègre donc. (Merci à Dom ;) )

Je voudrais maintenant faire une fonction "si" en macro, faire en sorte que l'expression COEX s'affiche à partir du moment ou la cellule B159 n'est pas vide. Ca doit vous semble enfantin mais j'ai tout essayé ca ne marche pas...

Merci d'avance pour votre aide :)

Bonjour Elodie (l'ardennaise ?), le forum

Il faut essayer de comprendre le code que je t'ai envoyé, ce que tu demande n'exige absolument pas du VBA, une simple formule dans la cellule concernée suffit :

Code:

---

=SI(B159<>"";"COEX";"")

---

et si tu insistes, histoire d'apprendre, l'équivalent de "Si" en VBA

Code:

---

1 2 3 4 5

Sub exemple_si() If Range("B159") <> "" Then Range("B465") = "coex" End If End Sub

---

Mais il est temps que tu te prennes par la main 8-)

Merci Dom
Mais ca ne marche pas, quand je remplie la cellule B159 ça ne remplie pas la cellule B465 automatiquement

Je sais que je pourrais le faire avec la fonction SI, mon problème étant que c'est la cellule B465 doit rester vide, je ne peux pas entrer de formule dedans.


J'ai une autre question .. Qui sera ma dernière pour le moment :) (normalement ^^)
Y a-t-il un moyen pour recopier cette formule dans les colonnes B à P ? Sans faire 15 formules ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub coex2()   If Range("C153") = True Then Range("C465") = "COEX" 'si c'est une expression à intégrer Range("C164") = Range("b159") Range("C162").Select ' pourquoi faire Else Range("C465").ClearContents Range("C164").ClearContents   End If End Sub

---

Avant de répondre, il faut être sur de ce que tu veux, tu parlais au départ de "B153", ensuite de "B159"

Citation:

---

Y a-t-il un moyen pour recopier cette formule dans les colonnes B à P ?

---

En Vba, ce n'est pas une formule mais une procédure, prendre en compte les colonnes B à P, un peu plus d'explication serait utile.

Dom,

Je t'ai mis une vue de mon fichier.

Quand je remplie et coche la case en B159, la référence se copie dans B164 et le fournisseur COEX se remplie automatiquement. Mais j'utilise la case B153 parce qu'elle est liée à la case à cocher via le format de contrôle .

J'hésitais à mettre une case à cocher, j'ai voulu essayer d'effectuer cette macro directement, dès que l'on remplie la case B159, sans cocher la case à côté.

J'ai besoin que cette macro fonction dans chaque colonne. Existe-t-il une procédure (j'apprends ^^ ) qui le permet ?

J'espère être compréhensible

Peux-tu envoyer un fichier avec des données bidon mais la même structure, ça sera plus facile pour t'aider.

Dom,

Je me suis prise en main ;) j'ai recopié la procédure dans 15 macro ..

Merci pour ton aide en tout cas!

(j'ai essayé d'envoyer le fichier mais il me met "erreur d'upload").

Bonne journée