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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Claudevba

XLDnaute Nouveau
Ma question est la suivante, comment faire pour différencier sur une cellule de Excel la valeur 0, du vide. Je m'explique:

Lorsqu'on exécute le code suivant:
Sub Ouais()
With ThisWorkbook.Worksheets("Feuil1")
If .Cells(1, 7) = 0 Then
Debug.Print "je suis égal à zero"
End If
End With
End Sub

le programme affichera "je suis égal à 0", dans le cas où la cellule (1, 7) est égal à zero, ou dans le cas où elle est vide

Si on exécute ceci:


Sub Yep()
With ThisWorkbook.Worksheets("Feuil1")
If .Cells(1, 2) = Empty Then
Debug.Print "je suis vide"
End If
End With
End Sub

Il affichera "je suis vide aussi dans les 2 cas.

Comment donc faire pour que les macros puissent dissocier les 2 cas.

Merci
 
Re : vide et 0

Bonjour

pour détecter une cellule vide
VB:
Sub Yep()
With ThisWorkbook.Worksheets("Feuil1")
  If IsEpmty(.Cells(1, 2).value) Then Debug.Print "je suis vide"
End With
End Sub

pour une valeur à 0
VB:
Sub Yep()
With ThisWorkbook.Worksheets("Feuil1")
  If not(IsEpmty(.Cells(1, 2).value)) and (IsEpmty(.Cells(1, 2).value)=0)Then Debug.Print "je suis vide"
End With
End Sub

@Pierrot t'avais pas vue encore trop lent à la frappe ou au test....
 
Dernière édition:
Re : vide et 0

si cela peut vous servir,

en voulant faire des moyennes pondérées à partir de listes de valeurs affectées d'un meme coefficient (ligne 4) , je différencie le zéro de la case vide par un test ">-1" pour une case non vide
exemple:
=SOMMEPROD(F5:N5;$F$4:$N$4)/SOMME.SI(F5:N5;">-1";$F$4:$N$4) pour la moyenne des valeurs en ligne 5.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
680
Réponses
4
Affichages
533
Réponses
9
Affichages
251
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
984
Réponses
10
Affichages
505
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…