Discussion :

[Elodie08000]

Bonjour,

Voici mon code VBA

Code :

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

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

[casefayere]

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 :

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

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

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

Code :

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

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

[Elodie08000]

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 :

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

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

[casefayere]

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

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.

[Elodie08000]

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