Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Par exemple et à adapter : Dim Nbdiffzero As Long Nbdiffzero = Application.WorksheetFunction.CountIf(Feuil1.Range("A:A"), "<>0") If Nbdiffzero <> 0 Then MsgBox Nbdiffzero & " valeurs différentes de zéro dans la colonne A" Else: MsgBox "Aucune valeur différente de 0 dans la colonne A" End If Cordialement Pascal
"beurnoir" a écrit dans le message de news: 1cd7d01c422c4$2df609d0$
Salut,
Comment ecrire en VBA si une des cellules de la colonne A est differente de 0??
Merci
Bonjour
Par exemple et à adapter :
Dim Nbdiffzero As Long
Nbdiffzero = Application.WorksheetFunction.CountIf(Feuil1.Range("A:A"),
"<>0")
If Nbdiffzero <> 0 Then
MsgBox Nbdiffzero & " valeurs différentes de zéro dans la colonne A"
Else: MsgBox "Aucune valeur différente de 0 dans la colonne A"
End If
Cordialement
Pascal
"beurnoir" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1cd7d01c422c4$2df609d0$a401280a@phx.gbl...
Salut,
Comment ecrire en VBA si une des cellules de la colonne A
est differente de 0??
Bonjour Par exemple et à adapter : Dim Nbdiffzero As Long Nbdiffzero = Application.WorksheetFunction.CountIf(Feuil1.Range("A:A"), "<>0") If Nbdiffzero <> 0 Then MsgBox Nbdiffzero & " valeurs différentes de zéro dans la colonne A" Else: MsgBox "Aucune valeur différente de 0 dans la colonne A" End If Cordialement Pascal
"beurnoir" a écrit dans le message de news: 1cd7d01c422c4$2df609d0$
Salut,
Comment ecrire en VBA si une des cellules de la colonne A est differente de 0??
