Je souhaite demander à une macro si un élément fait partie d'une liste (en
fait plusieurs lignes d'une colonne).
Je ne sais pas bien comment associer l'instruction Application.Match. Voici
ce que j'ai fait, Jour contenant l'information dont la présence doit être
vérifiée dans la colonne.
With Worksheets("BDD")
A = Application.Match(Jour, .Range("B1:B65536"), 0)
If IsError(A) Then
MsgBox "Le traitement peut se poursuivre"
On Error GoTo 0
Else
MsgBox "Cette journée a déjà été intégrée !!!"
End If
End With
Merci pour vos conseils.
--
Merci pour vos réponses.
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
michdenis
Bonjour Yvan,
Je ne sais pas vraiment ce que tu cherches !
With Worksheets("BDD") A = Application.Match(Jour, .Range("B1:B65536"), 0) 'Si il n'a pas trouvé la valeur cherchée If IsError(A) Then MsgBox "Le traitement peut se poursuivre" 'Si la valeur cherchée a été trouvée... Else MsgBox "Cette journée a déjà été intégrée !!!" End If End With
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souhaite demander à une macro si un élément fait partie d'une liste (en fait plusieurs lignes d'une colonne).
Je ne sais pas bien comment associer l'instruction Application.Match. Voici ce que j'ai fait, Jour contenant l'information dont la présence doit être vérifiée dans la colonne.
With Worksheets("BDD") A = Application.Match(Jour, .Range("B1:B65536"), 0) If IsError(A) Then MsgBox "Le traitement peut se poursuivre" On Error GoTo 0 Else MsgBox "Cette journée a déjà été intégrée !!!" End If End With
Merci pour vos conseils. -- Merci pour vos réponses.
Bonjour Yvan,
Je ne sais pas vraiment ce que tu cherches !
With Worksheets("BDD")
A = Application.Match(Jour, .Range("B1:B65536"), 0)
'Si il n'a pas trouvé la valeur cherchée
If IsError(A) Then
MsgBox "Le traitement peut se poursuivre"
'Si la valeur cherchée a été trouvée...
Else
MsgBox "Cette journée a déjà été intégrée !!!"
End If
End With
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 1C269F36-FFBB-4FF1-9732-FFEBBF346C7D@microsoft.com...
Bonjour,
Je souhaite demander à une macro si un élément fait partie d'une liste (en
fait plusieurs lignes d'une colonne).
Je ne sais pas bien comment associer l'instruction Application.Match. Voici
ce que j'ai fait, Jour contenant l'information dont la présence doit être
vérifiée dans la colonne.
With Worksheets("BDD")
A = Application.Match(Jour, .Range("B1:B65536"), 0)
If IsError(A) Then
MsgBox "Le traitement peut se poursuivre"
On Error GoTo 0
Else
MsgBox "Cette journée a déjà été intégrée !!!"
End If
End With
Merci pour vos conseils.
--
Merci pour vos réponses.
With Worksheets("BDD") A = Application.Match(Jour, .Range("B1:B65536"), 0) 'Si il n'a pas trouvé la valeur cherchée If IsError(A) Then MsgBox "Le traitement peut se poursuivre" 'Si la valeur cherchée a été trouvée... Else MsgBox "Cette journée a déjà été intégrée !!!" End If End With
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souhaite demander à une macro si un élément fait partie d'une liste (en fait plusieurs lignes d'une colonne).
Je ne sais pas bien comment associer l'instruction Application.Match. Voici ce que j'ai fait, Jour contenant l'information dont la présence doit être vérifiée dans la colonne.
With Worksheets("BDD") A = Application.Match(Jour, .Range("B1:B65536"), 0) If IsError(A) Then MsgBox "Le traitement peut se poursuivre" On Error GoTo 0 Else MsgBox "Cette journée a déjà été intégrée !!!" End If End With
Merci pour vos conseils. -- Merci pour vos réponses.
LSteph
Bonjour, exemple avec countif :
Sub test() Dim Jour As Date Jour = DateValue("06/02/2006") With Worksheets("BDD") If Application.WorksheetFunction.CountIf _ (.Range("b1", .[b65536].End(xlUp)), Jour) > 0 Then _ MsgBox "Cette journée a déjà été intégrée !!!": Exit Sub MsgBox "Le traitement peut se poursuivre" End With End Sub
'lSteph
"Yvan" a écrit dans le message de news:
Bonjour,
Je souhaite demander à une macro si un élément fait partie d'une liste (en fait plusieurs lignes d'une colonne).
Je ne sais pas bien comment associer l'instruction Application.Match. Voici ce que j'ai fait, Jour contenant l'information dont la présence doit être vérifiée dans la colonne.
With Worksheets("BDD") A = Application.Match(Jour, .Range("B1:B65536"), 0) If IsError(A) Then MsgBox "Le traitement peut se poursuivre" On Error GoTo 0 Else MsgBox "Cette journée a déjà été intégrée !!!" End If End With
Merci pour vos conseils. -- Merci pour vos réponses.
Bonjour,
exemple avec countif :
Sub test()
Dim Jour As Date
Jour = DateValue("06/02/2006")
With Worksheets("BDD")
If Application.WorksheetFunction.CountIf _
(.Range("b1", .[b65536].End(xlUp)), Jour) > 0 Then _
MsgBox "Cette journée a déjà été intégrée !!!": Exit Sub
MsgBox "Le traitement peut se poursuivre"
End With
End Sub
'lSteph
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
1C269F36-FFBB-4FF1-9732-FFEBBF346C7D@microsoft.com...
Bonjour,
Je souhaite demander à une macro si un élément fait partie d'une liste (en
fait plusieurs lignes d'une colonne).
Je ne sais pas bien comment associer l'instruction Application.Match.
Voici
ce que j'ai fait, Jour contenant l'information dont la présence doit être
vérifiée dans la colonne.
With Worksheets("BDD")
A = Application.Match(Jour, .Range("B1:B65536"), 0)
If IsError(A) Then
MsgBox "Le traitement peut se poursuivre"
On Error GoTo 0
Else
MsgBox "Cette journée a déjà été intégrée !!!"
End If
End With
Merci pour vos conseils.
--
Merci pour vos réponses.
Sub test() Dim Jour As Date Jour = DateValue("06/02/2006") With Worksheets("BDD") If Application.WorksheetFunction.CountIf _ (.Range("b1", .[b65536].End(xlUp)), Jour) > 0 Then _ MsgBox "Cette journée a déjà été intégrée !!!": Exit Sub MsgBox "Le traitement peut se poursuivre" End With End Sub
'lSteph
"Yvan" a écrit dans le message de news:
Bonjour,
Je souhaite demander à une macro si un élément fait partie d'une liste (en fait plusieurs lignes d'une colonne).
Je ne sais pas bien comment associer l'instruction Application.Match. Voici ce que j'ai fait, Jour contenant l'information dont la présence doit être vérifiée dans la colonne.
With Worksheets("BDD") A = Application.Match(Jour, .Range("B1:B65536"), 0) If IsError(A) Then MsgBox "Le traitement peut se poursuivre" On Error GoTo 0 Else MsgBox "Cette journée a déjà été intégrée !!!" End If End With
Merci pour vos conseils. -- Merci pour vos réponses.
