Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Cellule Vide Vba

achraf26

XLDnaute Occasionnel
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

XLDnaute Junior
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
 

StanSigma

XLDnaute Junior
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

XLDnaute Occasionnel
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
 

Pièces jointes

  • test n°2.xlsm
    12.6 KB · Affichages: 8

_Thierry

XLDnaute Barbatruc
Repose en paix
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)
 

Pièces jointes

  • XLD_achraf26_ testn°2.xlsm
    15.6 KB · Affichages: 2
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…