Bonjour à tous
Quand je fais une recherche, genre :
Sub Find()
Dim c
With ActiveSheet.Range([zone de recherche allant de la ligne suivante à la
dernière ligne])
Set c = .find([cequejecherche], LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
Exit Do
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
Else
MsgBox "y a plus !"
End If
End With
End Sub
J'essaie d'afficher un message quand il n'y a plus rien à trouver (msgbox "y
a plus !"), or.... il ne se passe rien ! pas moyen d'afficher ce message...
Attention au fait que vide ou rien , ce n'est pas pareil. Ainsi si c est un objet range , une cellule peut être vide : Isempty(c) est vrai mais set c=range("A1") n'est pas rien puisque c est alors formellement affectée à range("A1").
if c is nothing renvoie true si c est nothing donc si set c=.find(quelquechose) ne renvoie aucun objet range parce qu'il ne trouve pas d'objet range répondant à la recherche
if not c is nothing renvoie vrai si c=.find(quelquechose) renvoie un objet range parce que Find a trouvé un objet range répondant à la recherche.
A+
Bonjour à toutes à tous et à anonymousA qui nous a tapoter de ses petits doigt ce qui suit :
si.!! on pourrait (cf mon post précédent) écrire if c is nothing mais si tu relis bien ce que je t'ai envoyé, tu as l'explication du pourquoi du comment.
A+
Ok ! voila ce que je crois avoir compris :
c is nothing = rien, vide, nada :-( Not c is nothing = qq chose, trouve :D
If c Is Nothing Then ne rien faire Else Travailer End If
Mieux :
If Not c Is Nothing Then Travailler End If
Encore mieux :
If c Then Travailler End If
Voila, j'ai juste ou il faut que je revise encore pour l'examen ? rofl A+ JLuc
Attention au fait que vide ou rien , ce n'est pas pareil. Ainsi si c est
un objet range , une cellule peut être vide : Isempty(c) est vrai mais
set c=range("A1") n'est pas rien puisque c est alors formellement
affectée à range("A1").
if c is nothing renvoie true si c est nothing donc si set
c=.find(quelquechose) ne renvoie aucun objet range parce qu'il ne trouve
pas d'objet range répondant à la recherche
if not c is nothing renvoie vrai si c=.find(quelquechose) renvoie un
objet range parce que Find a trouvé un objet range répondant à la recherche.
A+
Bonjour à toutes à tous et à anonymousA qui nous a tapoter de ses petits
doigt ce qui suit :
si.!! on pourrait (cf mon post précédent) écrire if c is nothing mais
si tu relis bien ce que je t'ai envoyé, tu as l'explication du
pourquoi du comment.
A+
Ok ! voila ce que je crois avoir compris :
c is nothing = rien, vide, nada :-(
Not c is nothing = qq chose, trouve :D
If c Is Nothing Then
ne rien faire
Else
Travailer
End If
Mieux :
If Not c Is Nothing Then
Travailler
End If
Encore mieux :
If c Then
Travailler
End If
Voila, j'ai juste ou il faut que je revise encore pour l'examen ? rofl
A+
JLuc
Attention au fait que vide ou rien , ce n'est pas pareil. Ainsi si c est un objet range , une cellule peut être vide : Isempty(c) est vrai mais set c=range("A1") n'est pas rien puisque c est alors formellement affectée à range("A1").
if c is nothing renvoie true si c est nothing donc si set c=.find(quelquechose) ne renvoie aucun objet range parce qu'il ne trouve pas d'objet range répondant à la recherche
if not c is nothing renvoie vrai si c=.find(quelquechose) renvoie un objet range parce que Find a trouvé un objet range répondant à la recherche.
A+
Bonjour à toutes à tous et à anonymousA qui nous a tapoter de ses petits doigt ce qui suit :
si.!! on pourrait (cf mon post précédent) écrire if c is nothing mais si tu relis bien ce que je t'ai envoyé, tu as l'explication du pourquoi du comment.
A+
Ok ! voila ce que je crois avoir compris :
c is nothing = rien, vide, nada :-( Not c is nothing = qq chose, trouve :D
If c Is Nothing Then ne rien faire Else Travailer End If
Mieux :
If Not c Is Nothing Then Travailler End If
Encore mieux :
If c Then Travailler End If
Voila, j'ai juste ou il faut que je revise encore pour l'examen ? rofl A+ JLuc
JLuc
Bonjour à toutes à tous et à JLuc qui nous a tapoter de ses petits doigt ce qui suit :
Bonjour à toutes à tous et à anonymousA qui nous a tapoter de ses petits doigt ce qui suit :
si.!! on pourrait (cf mon post précédent) écrire if c is nothing mais si tu relis bien ce que je t'ai envoyé, tu as l'explication du pourquoi du comment.
A+
Ok ! voila ce que je crois avoir compris :
c is nothing = rien, vide, nada :-( Not c is nothing = qq chose, trouve :D
If c Is Nothing Then ne rien faire Else Travailer End If
Mieux :
If Not c Is Nothing Then Travailler End If
Encore mieux :
If c Then Travailler End If
Voila, j'ai juste ou il faut que je revise encore pour l'examen ? rofl A+ JLuc
Bon ok, je revise tout ca et je repasse l'exam dans un an :'( Merci encore JLuc
-- Pour m'ecrire directement :
Tomorrow is another day
Bonjour à toutes à tous et à JLuc qui nous a tapoter de ses petits
doigt ce qui suit :
Bonjour à toutes à tous et à anonymousA qui nous a tapoter de ses petits
doigt ce qui suit :
si.!! on pourrait (cf mon post précédent) écrire if c is nothing mais si tu
relis bien ce que je t'ai envoyé, tu as l'explication du pourquoi du
comment.
A+
Ok ! voila ce que je crois avoir compris :
c is nothing = rien, vide, nada :-(
Not c is nothing = qq chose, trouve :D
If c Is Nothing Then
ne rien faire
Else
Travailer
End If
Mieux :
If Not c Is Nothing Then
Travailler
End If
Encore mieux :
If c Then
Travailler
End If
Voila, j'ai juste ou il faut que je revise encore pour l'examen ? rofl
A+
JLuc
Bon ok, je revise tout ca et je repasse l'exam dans un an :'(
Merci encore
JLuc
--
Pour m'ecrire directement :
jeanluc.laurent@free.fr
Tomorrow is another day
Bonjour à toutes à tous et à JLuc qui nous a tapoter de ses petits doigt ce qui suit :
Bonjour à toutes à tous et à anonymousA qui nous a tapoter de ses petits doigt ce qui suit :
si.!! on pourrait (cf mon post précédent) écrire if c is nothing mais si tu relis bien ce que je t'ai envoyé, tu as l'explication du pourquoi du comment.
A+
Ok ! voila ce que je crois avoir compris :
c is nothing = rien, vide, nada :-( Not c is nothing = qq chose, trouve :D
If c Is Nothing Then ne rien faire Else Travailer End If
Mieux :
If Not c Is Nothing Then Travailler End If
Encore mieux :
If c Then Travailler End If
Voila, j'ai juste ou il faut que je revise encore pour l'examen ? rofl A+ JLuc
Bon ok, je revise tout ca et je repasse l'exam dans un an :'( Merci encore JLuc
