bonjour,
je remarque que mon calcul ne se fait pas comme il devrait
if (.Range("W3")>0 And .Range("X3") = 0 Then.................
ou bien ceci
if (.Range("W3") <>"" And .Range("X3") = "" Then.................
la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une
cellule Vide
Si W contient une date et que X n'en contient pas
elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi
le test se fait différemment sur une date?
Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
si vous pouvez m'éclairer........ Pascal
Salut Denis
L'écriture de Pascal me laisse perplexe
Le point devant Range --> ?
(.Range("W3")
Tu peux expliquer, steplé?
Merci et bonne soirée
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236B9BqH%23IHA.5192@TK2MSFTNGP04.phx.gbl...
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'--------------------------------------
Sub tets()
MsgBox EstVide(Range("A1"))
End Sub
'--------------------------------------
Function EstVide(Rg As Range) As Boolean
Dim Erreur As String
EstVide = True
On Error GoTo Erreur
If IsError(Rg * 1) Then
EstVide = False
End If
Exit Function
Erreur:
Err.Clear
EstVide = False
End Function
'--------------------------------------
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
u0zyIiG%23IHA.4336@TK2MSFTNGP04.phx.gbl...
bonjour,
je remarque que mon calcul ne se fait pas comme il devrait
if (.Range("W3")>0 And .Range("X3") = 0 Then.................
ou bien ceci
if (.Range("W3") <>"" And .Range("X3") = "" Then.................
la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une
cellule Vide
Si W contient une date et que X n'en contient pas
elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi
le test se fait différemment sur une date?
Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
si vous pouvez m'éclairer........ Pascal
michdenis
Je suppose qu'il a publé qu'un partie de sa macro qui devait ressembler à ceci :
With worksheets("x") if .Range("W3") <>"" And .Range("X3") = "" Then ' son code End if End with
Le point signifie que les 2 plages de cellules appartient à la feuille x . Le point en vba fait référence à hiérarchie des objets ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" a écrit dans le message de news: uz2UjZL% Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
si vous pouvez m'éclairer........ Pascal
Je suppose qu'il a publé qu'un partie de sa macro qui
devait ressembler à ceci :
With worksheets("x")
if .Range("W3") <>"" And .Range("X3") = "" Then
' son code
End if
End with
Le point signifie que les 2 plages de cellules appartient
à la feuille x . Le point en vba fait référence à hiérarchie des objets
ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: uz2UjZL%23IHA.1224@TK2MSFTNGP02.phx.gbl...
Salut Denis
L'écriture de Pascal me laisse perplexe
Le point devant Range --> ?
(.Range("W3")
Tu peux expliquer, steplé?
Merci et bonne soirée
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236B9BqH%23IHA.5192@TK2MSFTNGP04.phx.gbl...
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'--------------------------------------
Sub tets()
MsgBox EstVide(Range("A1"))
End Sub
'--------------------------------------
Function EstVide(Rg As Range) As Boolean
Dim Erreur As String
EstVide = True
On Error GoTo Erreur
If IsError(Rg * 1) Then
EstVide = False
End If
Exit Function
Erreur:
Err.Clear
EstVide = False
End Function
'--------------------------------------
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
u0zyIiG%23IHA.4336@TK2MSFTNGP04.phx.gbl...
bonjour,
je remarque que mon calcul ne se fait pas comme il devrait
if (.Range("W3")>0 And .Range("X3") = 0 Then.................
ou bien ceci
if (.Range("W3") <>"" And .Range("X3") = "" Then.................
la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une
cellule Vide
Si W contient une date et que X n'en contient pas
elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi
le test se fait différemment sur une date?
Je suppose qu'il a publé qu'un partie de sa macro qui devait ressembler à ceci :
With worksheets("x") if .Range("W3") <>"" And .Range("X3") = "" Then ' son code End if End with
Le point signifie que les 2 plages de cellules appartient à la feuille x . Le point en vba fait référence à hiérarchie des objets ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" a écrit dans le message de news: uz2UjZL% Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
si vous pouvez m'éclairer........ Pascal
Pascal
bonsoir, exact je n'ai publié qu'une partie il faut lire With feuil2 .range("W3") ....... end with bien à vous
"michdenis" a écrit dans le message de groupe de discussion : #clppgL#
Je suppose qu'il a publé qu'un partie de sa macro qui devait ressembler à ceci :
With worksheets("x") if .Range("W3") <>"" And .Range("X3") = "" Then ' son code End if End with
Le point signifie que les 2 plages de cellules appartient à la feuille x . Le point en vba fait référence à hiérarchie des objets ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" a écrit dans le message de news: uz2UjZL% Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
si vous pouvez m'éclairer........ Pascal
bonsoir,
exact je n'ai publié qu'une partie
il faut lire
With feuil2
.range("W3") .......
end with
bien à vous
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : #clppgL#IHA.524@TK2MSFTNGP06.phx.gbl...
Je suppose qu'il a publé qu'un partie de sa macro qui
devait ressembler à ceci :
With worksheets("x")
if .Range("W3") <>"" And .Range("X3") = "" Then
' son code
End if
End with
Le point signifie que les 2 plages de cellules appartient
à la feuille x . Le point en vba fait référence à hiérarchie des objets
ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: uz2UjZL%23IHA.1224@TK2MSFTNGP02.phx.gbl...
Salut Denis
L'écriture de Pascal me laisse perplexe
Le point devant Range --> ?
(.Range("W3")
Tu peux expliquer, steplé?
Merci et bonne soirée
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236B9BqH%23IHA.5192@TK2MSFTNGP04.phx.gbl...
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'--------------------------------------
Sub tets()
MsgBox EstVide(Range("A1"))
End Sub
'--------------------------------------
Function EstVide(Rg As Range) As Boolean
Dim Erreur As String
EstVide = True
On Error GoTo Erreur
If IsError(Rg * 1) Then
EstVide = False
End If
Exit Function
Erreur:
Err.Clear
EstVide = False
End Function
'--------------------------------------
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
u0zyIiG%23IHA.4336@TK2MSFTNGP04.phx.gbl...
bonjour,
je remarque que mon calcul ne se fait pas comme il devrait
if (.Range("W3")>0 And .Range("X3") = 0 Then.................
ou bien ceci
if (.Range("W3") <>"" And .Range("X3") = "" Then.................
la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une
cellule Vide
Si W contient une date et que X n'en contient pas
elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi
le test se fait différemment sur une date?
bonsoir, exact je n'ai publié qu'une partie il faut lire With feuil2 .range("W3") ....... end with bien à vous
"michdenis" a écrit dans le message de groupe de discussion : #clppgL#
Je suppose qu'il a publé qu'un partie de sa macro qui devait ressembler à ceci :
With worksheets("x") if .Range("W3") <>"" And .Range("X3") = "" Then ' son code End if End with
Le point signifie que les 2 plages de cellules appartient à la feuille x . Le point en vba fait référence à hiérarchie des objets ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" a écrit dans le message de news: uz2UjZL% Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
si vous pouvez m'éclairer........ Pascal
Jacquouille
OK, merci Bonne journée Jacques
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %23clppgL%
Je suppose qu'il a publé qu'un partie de sa macro qui devait ressembler à ceci :
With worksheets("x") if .Range("W3") <>"" And .Range("X3") = "" Then ' son code End if End with
Le point signifie que les 2 plages de cellules appartient à la feuille x . Le point en vba fait référence à hiérarchie des objets ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" a écrit dans le message de news: uz2UjZL% Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
si vous pouvez m'éclairer........ Pascal
OK, merci
Bonne journée
Jacques
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23clppgL%23IHA.524@TK2MSFTNGP06.phx.gbl...
Je suppose qu'il a publé qu'un partie de sa macro qui
devait ressembler à ceci :
With worksheets("x")
if .Range("W3") <>"" And .Range("X3") = "" Then
' son code
End if
End with
Le point signifie que les 2 plages de cellules appartient
à la feuille x . Le point en vba fait référence à hiérarchie des objets
ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: uz2UjZL%23IHA.1224@TK2MSFTNGP02.phx.gbl...
Salut Denis
L'écriture de Pascal me laisse perplexe
Le point devant Range --> ?
(.Range("W3")
Tu peux expliquer, steplé?
Merci et bonne soirée
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%236B9BqH%23IHA.5192@TK2MSFTNGP04.phx.gbl...
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'--------------------------------------
Sub tets()
MsgBox EstVide(Range("A1"))
End Sub
'--------------------------------------
Function EstVide(Rg As Range) As Boolean
Dim Erreur As String
EstVide = True
On Error GoTo Erreur
If IsError(Rg * 1) Then
EstVide = False
End If
Exit Function
Erreur:
Err.Clear
EstVide = False
End Function
'--------------------------------------
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
u0zyIiG%23IHA.4336@TK2MSFTNGP04.phx.gbl...
bonjour,
je remarque que mon calcul ne se fait pas comme il devrait
if (.Range("W3")>0 And .Range("X3") = 0 Then.................
ou bien ceci
if (.Range("W3") <>"" And .Range("X3") = "" Then.................
la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une
cellule Vide
Si W contient une date et que X n'en contient pas
elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi
le test se fait différemment sur une date?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %23clppgL%
Je suppose qu'il a publé qu'un partie de sa macro qui devait ressembler à ceci :
With worksheets("x") if .Range("W3") <>"" And .Range("X3") = "" Then ' son code End if End with
Le point signifie que les 2 plages de cellules appartient à la feuille x . Le point en vba fait référence à hiérarchie des objets ou propriétés ou méthodes appartenant à ces objets.
"Jacquouille" a écrit dans le message de news: uz2UjZL% Salut Denis L'écriture de Pascal me laisse perplexe Le point devant Range --> ? (.Range("W3") Tu peux expliquer, steplé? Merci et bonne soirée
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"michdenis" a écrit dans le message de news: %236B9BqH%
Il y a ceci :
Tu peux utiliser une fonction personnalilsée comme ceci :
'-------------------------------------- Sub tets()
MsgBox EstVide(Range("A1"))
End Sub '-------------------------------------- Function EstVide(Rg As Range) As Boolean Dim Erreur As String EstVide = True On Error GoTo Erreur If IsError(Rg * 1) Then EstVide = False End If Exit Function Erreur: Err.Clear EstVide = False End Function '--------------------------------------
"Pascal" ,com> a écrit dans le message de news: u0zyIiG% bonjour, je remarque que mon calcul ne se fait pas comme il devrait if (.Range("W3")>0 And .Range("X3") = 0 Then................. ou bien ceci if (.Range("W3") <>"" And .Range("X3") = "" Then................. la condition n'est JAMAIS remplie???
je veux tout simplement tester si W est une cellule non vide et X une cellule Vide Si W contient une date et que X n'en contient pas elles sont au format date toutes les deux cela aurait-il une influence?
si je fais len(.range("W3")) j'ai bien 0 et len de X aussi le test se fait différemment sur une date?
