Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel code vba1

code vba1

5 réponses
Avatar
JEAN
bjr

Range("BT15:BT35").Value <> 0 Then
ereur vba : type incompatible

je voudrai
avoir

Range("Plage de cellule").Value<> then

est ce que c'est possible

merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Bruno LOUIS
Salut Jean,

Tu n'es pas très précis sur ce que tu veux :

La condition doit être considéré comme vraie lorsque :

1. Une cellule de la plage diffère de 0

ou

2. Toutes les cellules de la plage diffère de 0

ou encore tous stades intermédiaires entre ces deux solutions.


Public Sub UneCelluleDiffereDeRien()
Dim c As Range, i As Boolean

For Each c In Sheets("Feuil1").Range("A1:B4")
If c.Value <> 0 Then i = True
Next

If i Then
MsgBox "Au moins n'est pas vierge"
Rem 'ton code'
End If

End Sub


Public Sub ToutesLesCellulesDifferentDeRien()
Dim c As Range, i As Boolean

For Each c In Sheets("Feuil1").Range("A1:B4")
If c.Value = 0 Then i = True
Next

If Not (i) Then
Rem 'ton code'
End If

End Sub



"JEAN" a écrit dans le message de news:

bjr

Range("BT15:BT35").Value <> 0 Then
ereur vba : type incompatible

je voudrai
avoir

Range("Plage de cellule").Value<> then

est ce que c'est possible

merci


Avatar
Corona
Bonjour Jean,

For Each cell In Range("BT15:BT35")
If cell <> 0 Then
MsgBox "Diff de 0"
End If
Next
Philippe

"JEAN" a écrit dans le message de
news:
bjr

Range("BT15:BT35").Value <> 0 Then
ereur vba : type incompatible

je voudrai
avoir

Range("Plage de cellule").Value<> then

est ce que c'est possible

merci


Avatar
JEAN
merci


Bonjour Jean,

For Each cell In Range("BT15:BT35")
If cell <> 0 Then
MsgBox "Diff de 0"
End If
Next
Philippe

"JEAN" a écrit dans le message de
news:
bjr

Range("BT15:BT35").Value <> 0 Then
ereur vba : type incompatible

je voudrai
avoir

Range("Plage de cellule").Value<> then

est ce que c'est possible

merci







Avatar
Modeste
Bonsour® Corona,
tiens Philippe !!
tu t'es mis au cigare ou à la bière ???

amitiès à Madame...
;o)))
@+
-----Message d'origine-----
Bonjour Jean,

For Each cell In Range("BT15:BT35")
If cell <> 0 Then
MsgBox "Diff de 0"
End If
Next
Philippe

"JEAN" a écrit dans le
message de

news:8C90EF78-1D9E-4B21-BD7B-


bjr

Range("BT15:BT35").Value <> 0 Then
ereur vba : type incompatible

je voudrai
avoir

Range("Plage de cellule").Value<> then

est ce que c'est possible

merci



.




Avatar
Corona
Bonjour Geedee,
C'est le cigare, mais cela fait plus de 15 ans. :-))
J'ai transmis tes amitiés
Philippe

"Modeste" a écrit dans le message de
news:02fc01c4d7b2$a7539600$
Bonsour® Corona,
tiens Philippe !!
tu t'es mis au cigare ou à la bière ???

amitiès à Madame...
;o)))
@+
-----Message d'origine-----
Bonjour Jean,

For Each cell In Range("BT15:BT35")
If cell <> 0 Then
MsgBox "Diff de 0"
End If
Next
Philippe

"JEAN" a écrit dans le
message de

news:8C90EF78-1D9E-4B21-BD7B-


bjr

Range("BT15:BT35").Value <> 0 Then
ereur vba : type incompatible

je voudrai
avoir

Range("Plage de cellule").Value<> then

est ce que c'est possible

merci



.