XL 2019 Cellule Vide Vba

[achraf26]

Bonjour,
comment renseigner la cellule E2, si la cellule E9 = 0; la cellule E2 est vide "clear content"; sinon la cellule E2 prend la valeur E9.
Bien à vous

 

[StanSigma]

Bonjour,
Si j'ai bien compris ton soucis, tu peux faire en formule excel ou alors en vba
Formule Excel :
Dans E2 : =SI(E9=0;"";E9)
En VBA :
Sub tamacro()

If Sheets("tafeuille").Cells(9, 5) = 0 Then
Sheets("tafeuille").Cells(2, 5) = ""
Else
Sheets("tafeuille").Cells(2, 5) = Sheets("tafeuille").Cells(9, 5)
End If

End Sub

 

[achraf26]

Bonjour Stan Sigma,
la fonction fonctionne super bien , peut-on la faire automatiquement sans créer un bouton macro ?
Merci à toi

 

[StanSigma]

Bonjour,

La formule excel =SI(...) n'a pas à être actualisé par contre la macro VBA si.
Pour cette dernière, tu peux l'activer à l'ouverture de ta feuille par exemple.
Dans Visual Basic, tu crées une macro dans la feuille concerné (pas dans un module) et tu l'appelles :

Sub worksheet_activate()

'Ta macro

End sub

Bonne journée

 

[achraf26]

Bonjour,

La formule excel =SI(...) n'a pas à être actualisé par contre la macro VBA si.
Pour cette dernière, tu peux l'activer à l'ouverture de ta feuille par exemple.
Dans Visual Basic, tu crées une macro dans la feuille concerné (pas dans un module) et tu l'appelles :

Sub worksheet_activate()

'Ta macro

End sub

Bonne journée

Sub worksheet_activate()
If Sheets("D").Cells(9, 5) = 0 Then
Sheets("D").Cells(2, 5) = ""
Else
Sheets("D").Cells(2, 5) = Sheets("D").Cells(9, 5)
End If
End Sub


j'ai mis le code dans la feuille nommé D

 

[_Thierry]

Bonjour @achraf26 @StanSigma , le Forum

Je t'ai corrigé ton test, et pour que l'évènement Worksheet_Activate, il faut bien comprendre qu'il faut changer de Feuille pour que cet évènement se déclenche...

Tu as d'autres choix possibles d'évènements, je t'ai mis des exemples...

Bonne découverte et journée
@+Thierry

EDIT 10H25 PS Dans un Module de Feuille, les événementielles (Triggers) sont des Private Sub, pas simplement Sub)