Bonsoir
j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas
au niveau de Application.CountIf
Merci beaucoup
Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _
"Cet interlocuteur a déjà saisi " & Application.CountIf _
(Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier
!", vbCritical, _
" Impossible de retirer " & Mavar & " !"
Unload Me
Exit Sub
End If
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
Daniel
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier !", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
Bonsoir.
Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas.
Quelle est ton erreur ?
Cordialement.
Daniel
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23nh1MlXtFHA.1256@TK2MSFTNGP09.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas
au niveau de Application.CountIf
Merci beaucoup
Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _
"Cet interlocuteur a déjà saisi " & Application.CountIf _
(Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier
!", vbCritical, _
" Impossible de retirer " & Mavar & " !"
Unload Me
Exit Sub
End If
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier !", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
Florian
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier !", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
Bonsoir Daniel
il me met 0 comme valeur,en fait cela ne compte pas les valeurs
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e6hcpuYtFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas.
Quelle est ton erreur ?
Cordialement.
Daniel
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23nh1MlXtFHA.1256@TK2MSFTNGP09.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne
pas au niveau de Application.CountIf
Merci beaucoup
Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _
"Cet interlocuteur a déjà saisi " & Application.CountIf _
(Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier
!", vbCritical, _
" Impossible de retirer " & Mavar & " !"
Unload Me
Exit Sub
End If
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier !", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
anonymousA
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier !", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la
feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une
occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel
il me met 0 comme valeur,en fait cela ne compte pas les valeurs
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e6hcpuYtFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas.
Quelle est ton erreur ?
Cordialement.
Daniel
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23nh1MlXtFHA.1256@TK2MSFTNGP09.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne
pas au niveau de Application.CountIf
Merci beaucoup
Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _
"Cet interlocuteur a déjà saisi " & Application.CountIf _
(Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier
!", vbCritical, _
" Impossible de retirer " & Mavar & " !"
Unload Me
Exit Sub
End If
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier !", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
Jacky
Bonjour à tous Et avec CountA ?? '-------- MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).Range("A3:A5000")) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" '----------- Salutations JJ
"Florian" a écrit dans le message de news:
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
Bonjour à tous
Et avec CountA ??
'--------
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).Range("A3:A5000")) & " fiches dans le
fichier !", vbCritical, " Impossible de retirer " & Mavar & " !"
'-----------
Salutations
JJ
"Florian" <florian@toto.fr> a écrit dans le message de
news:O6IUhyYtFHA.1372@TK2MSFTNGP09.phx.gbl...
Bonsoir Daniel
il me met 0 comme valeur,en fait cela ne compte pas les valeurs
Merci
Bonjour à tous Et avec CountA ?? '-------- MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).Range("A3:A5000")) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" '----------- Salutations JJ
"Florian" a écrit dans le message de news:
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
Jacky
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle, afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000]) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ "anonymousA" a écrit dans le message de news:43229de0$0$306$
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier
!", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
Re...
Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle,
afin de tester toutes les cellules au lieu de seulement A3
A toi de voir..........
'---------
If Application.CountA(Sheets(Mavar).[A3:A5000]) Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet
interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " &
Mavar & " !"
Unload Me
Exit Sub
End If
'-----------
JJ
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:43229de0$0$306$7a628cd7@news.club-internet.fr...
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la
feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une
occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel
il me met 0 comme valeur,en fait cela ne compte pas les valeurs
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e6hcpuYtFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas.
Quelle est ton erreur ?
Cordialement.
Daniel
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23nh1MlXtFHA.1256@TK2MSFTNGP09.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne
pas au niveau de Application.CountIf
Merci beaucoup
Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _
"Cet interlocuteur a déjà saisi " & Application.CountIf _
(Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le
fichier
!", vbCritical, _
" Impossible de retirer " & Mavar & " !"
Unload Me
Exit Sub
End If
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle, afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000]) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ "anonymousA" a écrit dans le message de news:43229de0$0$306$
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le fichier
!", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
anonymousA
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle, afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000]) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ "anonymousA" a écrit dans le message de news:43229de0$0$306$
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le
fichier
!", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re...
Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle,
afin de tester toutes les cellules au lieu de seulement A3
A toi de voir..........
'---------
If Application.CountA(Sheets(Mavar).[A3:A5000]) Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet
interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " &
Mavar & " !"
Unload Me
Exit Sub
End If
'-----------
JJ
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:43229de0$0$306$7a628cd7@news.club-internet.fr...
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la
feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une
occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel
il me met 0 comme valeur,en fait cela ne compte pas les valeurs
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e6hcpuYtFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas.
Quelle est ton erreur ?
Cordialement.
Daniel
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23nh1MlXtFHA.1256@TK2MSFTNGP09.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne
pas au niveau de Application.CountIf
Merci beaucoup
Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _
"Cet interlocuteur a déjà saisi " & Application.CountIf _
(Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le
fichier
!", vbCritical, _
" Impossible de retirer " & Mavar & " !"
Unload Me
Exit Sub
End If
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle, afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000]) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ "anonymousA" a écrit dans le message de news:43229de0$0$306$
bonjour,
As-tu essayé de visualiser ce qe Mavar vaut?.Par ailleurs dans la feuille Mavar dans la plage A3:A5000, y a t-il certitude de trouver une occurrence répondant à la stricte valeur Mavar ?
A+
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
"Daniel" a écrit dans le message de news:
Bonsoir. Ca fonctionne chez moi, à l'eexception du userform que je n'ai pas. Quelle est ton erreur ? Cordialement. Daniel "Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cette procédure, mais cela ne fonctionne pas au niveau de Application.CountIf Merci beaucoup Flo riant
Mavar = ComboBox1.Text
If Sheets(Mavar).Range("A3").Value <> "" Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & _ "Cet interlocuteur a déjà saisi " & Application.CountIf _ (Sheets(Mavar).Range("A3:A5000"), Mavar) & " fiches dans le
fichier
!", vbCritical, _ " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If
Jacky
Mes excuses. Erreur de manip. C'était destiné à Florian(qui est encore dans les bras de Morphée.) Mais tu l'avais sûrement deviné ;o)) Ton avis, suis-je dans le vrai ?? JJ
"anonymousA" a écrit dans le message de news:4322b66a$0$301$
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle,
afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet
interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ
Mes excuses. Erreur de manip.
C'était destiné à Florian(qui est encore dans les bras de Morphée.)
Mais tu l'avais sûrement deviné ;o))
Ton avis, suis-je dans le vrai ??
JJ
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:4322b66a$0$301$7a628cd7@news.club-internet.fr...
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re...
Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce
contrôle,
afin de tester toutes les cellules au lieu de seulement A3
A toi de voir..........
'---------
If Application.CountA(Sheets(Mavar).[A3:A5000]) Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine &
"Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " &
Mavar & " !"
Unload Me
Exit Sub
End If
'-----------
JJ
Mes excuses. Erreur de manip. C'était destiné à Florian(qui est encore dans les bras de Morphée.) Mais tu l'avais sûrement deviné ;o)) Ton avis, suis-je dans le vrai ?? JJ
"anonymousA" a écrit dans le message de news:4322b66a$0$301$
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce contrôle,
afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet
interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ
Florian
Merci beaucoup pour toutes ses explications et soluces C'est impeccable avec CountA Flo riant
"Jacky" a écrit dans le message de news: eoh$
Bonjour à tous Et avec CountA ?? '-------- MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).Range("A3:A5000")) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" '----------- Salutations JJ
"Florian" a écrit dans le message de news:
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
Merci beaucoup pour toutes ses explications et soluces
C'est impeccable avec CountA
Flo riant
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
eoh$jdetFHA.2504@tk2msftngp13.phx.gbl...
Bonjour à tous
Et avec CountA ??
'--------
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).Range("A3:A5000")) & " fiches dans le
fichier !", vbCritical, " Impossible de retirer " & Mavar & " !"
'-----------
Salutations
JJ
"Florian" <florian@toto.fr> a écrit dans le message de
news:O6IUhyYtFHA.1372@TK2MSFTNGP09.phx.gbl...
Bonsoir Daniel
il me met 0 comme valeur,en fait cela ne compte pas les valeurs
Merci
Merci beaucoup pour toutes ses explications et soluces C'est impeccable avec CountA Flo riant
"Jacky" a écrit dans le message de news: eoh$
Bonjour à tous Et avec CountA ?? '-------- MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine & "Cet interlocuteur a déjà saisi " & Application.CountA(Sheets(Mavar).Range("A3:A5000")) & " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" '----------- Salutations JJ
"Florian" a écrit dans le message de news:
Bonsoir Daniel il me met 0 comme valeur,en fait cela ne compte pas les valeurs Merci
anonymousA
en fait, je ne sais as trop si tu es dans le vrai ou pas . C'est plutot à Florian de répondre car on ne sait pas s'il teste seulement la vacuité de A3 pour ensuite chercher une correspondance dans A3:A5000 avec la valeur Mavar ou autre. C'était d'ailleurs un peu le but de ma question entre autres. On verra bien !
Cordialement,
A+
Mes excuses. Erreur de manip. C'était destiné à Florian(qui est encore dans les bras de Morphée.) Mais tu l'avais sûrement deviné ;o)) Ton avis, suis-je dans le vrai ?? JJ
"anonymousA" a écrit dans le message de news:4322b66a$0$301$
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce
contrôle,
afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine &
"Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ
en fait, je ne sais as trop si tu es dans le vrai ou pas . C'est plutot
à Florian de répondre car on ne sait pas s'il teste seulement la vacuité
de A3 pour ensuite chercher une correspondance dans A3:A5000 avec la
valeur Mavar ou autre.
C'était d'ailleurs un peu le but de ma question entre autres.
On verra bien !
Cordialement,
A+
Mes excuses. Erreur de manip.
C'était destiné à Florian(qui est encore dans les bras de Morphée.)
Mais tu l'avais sûrement deviné ;o))
Ton avis, suis-je dans le vrai ??
JJ
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:4322b66a$0$301$7a628cd7@news.club-internet.fr...
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re...
Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce
contrôle,
afin de tester toutes les cellules au lieu de seulement A3
A toi de voir..........
'---------
If Application.CountA(Sheets(Mavar).[A3:A5000]) Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine &
"Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " &
Mavar & " !"
Unload Me
Exit Sub
End If
'-----------
JJ
en fait, je ne sais as trop si tu es dans le vrai ou pas . C'est plutot à Florian de répondre car on ne sait pas s'il teste seulement la vacuité de A3 pour ensuite chercher une correspondance dans A3:A5000 avec la valeur Mavar ou autre. C'était d'ailleurs un peu le but de ma question entre autres. On verra bien !
Cordialement,
A+
Mes excuses. Erreur de manip. C'était destiné à Florian(qui est encore dans les bras de Morphée.) Mais tu l'avais sûrement deviné ;o)) Ton avis, suis-je dans le vrai ?? JJ
"anonymousA" a écrit dans le message de news:4322b66a$0$301$
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce
contrôle,
afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine &
"Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ
Florian
Bonjour AnonymousA Au départ en fait, je pensai que si il y avait un item, sachant que la plage commence en A3, alors lancer la procédure, mais c'est vrai que si CountA > 0 alors... Flo riant
"anonymousA" a écrit dans le message de news: 4322d0b0$0$304$
en fait, je ne sais as trop si tu es dans le vrai ou pas . C'est plutot à Florian de répondre car on ne sait pas s'il teste seulement la vacuité de A3 pour ensuite chercher une correspondance dans A3:A5000 avec la valeur Mavar ou autre. C'était d'ailleurs un peu le but de ma question entre autres. On verra bien !
Cordialement,
A+
Mes excuses. Erreur de manip. C'était destiné à Florian(qui est encore dans les bras de Morphée.) Mais tu l'avais sûrement deviné ;o)) Ton avis, suis-je dans le vrai ?? JJ
"anonymousA" a écrit dans le message de news:4322b66a$0$301$
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce
contrôle,
afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine &
"Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ
Bonjour AnonymousA
Au départ en fait, je pensai que si il y avait un item, sachant que la plage
commence en A3, alors lancer la procédure, mais c'est vrai que si CountA > 0
alors...
Flo riant
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4322d0b0$0$304$7a628cd7@news.club-internet.fr...
en fait, je ne sais as trop si tu es dans le vrai ou pas . C'est plutot à
Florian de répondre car on ne sait pas s'il teste seulement la vacuité de
A3 pour ensuite chercher une correspondance dans A3:A5000 avec la valeur
Mavar ou autre.
C'était d'ailleurs un peu le but de ma question entre autres.
On verra bien !
Cordialement,
A+
Mes excuses. Erreur de manip.
C'était destiné à Florian(qui est encore dans les bras de Morphée.)
Mais tu l'avais sûrement deviné ;o))
Ton avis, suis-je dans le vrai ??
JJ
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de
news:4322b66a$0$301$7a628cd7@news.club-internet.fr...
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re...
Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce
contrôle,
afin de tester toutes les cellules au lieu de seulement A3
A toi de voir..........
'---------
If Application.CountA(Sheets(Mavar).[A3:A5000]) Then
MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine &
"Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " &
Mavar & " !"
Unload Me
Exit Sub
End If
'-----------
JJ
Bonjour AnonymousA Au départ en fait, je pensai que si il y avait un item, sachant que la plage commence en A3, alors lancer la procédure, mais c'est vrai que si CountA > 0 alors... Flo riant
"anonymousA" a écrit dans le message de news: 4322d0b0$0$304$
en fait, je ne sais as trop si tu es dans le vrai ou pas . C'est plutot à Florian de répondre car on ne sait pas s'il teste seulement la vacuité de A3 pour ensuite chercher une correspondance dans A3:A5000 avec la valeur Mavar ou autre. C'était d'ailleurs un peu le but de ma question entre autres. On verra bien !
Cordialement,
A+
Mes excuses. Erreur de manip. C'était destiné à Florian(qui est encore dans les bras de Morphée.) Mais tu l'avais sûrement deviné ;o)) Ton avis, suis-je dans le vrai ?? JJ
"anonymousA" a écrit dans le message de news:4322b66a$0$301$
ben je m'excuse mais moi perso j'ai rien à voir.
A+
Re... Si 'Mavar' est bien le nom d'une feuille, j'utiliserai plutôt ce
contrôle,
afin de tester toutes les cellules au lieu de seulement A3 A toi de voir.......... '--------- If Application.CountA(Sheets(Mavar).[A3:A5000]) Then MsgBox "Vous ne pouvez pas retirer " & Mavar & " ! " & vbNewLine &
"Cet
interlocuteur a déjà saisi " &
Application.CountA(Sheets(Mavar).[A3:A5000])
& " fiches dans le fichier !", vbCritical, " Impossible de retirer " & Mavar & " !" Unload Me Exit Sub End If '----------- JJ
