Contrôle occurence d'éléments...

Bonsoir,


Le format de la date cherchée est le même que le format des dates du
champ de recherche:

Sub RechercheDateFind()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
On Error Resume Next
[L:L].Find(What:=CDate(d), LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub

On adapte le format de la date recherchée au format des dates du champ
de recherche

Sub RechercheDateFind2()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
On Error Resume Next
[N:N].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"),
LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/FindDates.xls

JB
http://boisgontierjacques.free.fr/

La macro suivante ne fonctionne pas :

        a = Application.Match(Jour, .Range("B1:B65536"), 0)
        If IsError(a) Then...

avec Jour représentant la nouvelle date. Jour est défini au préalabl e : Dim
Jour as Date

Mais cela ne fonctionne pas. Où est le problème ???

Merci d'avance,
--
Merci pour vos réponses.

Voir aussi ma réponse à ta première demande du 18/4 à 16:30.

FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr

Bonjour,

En colonne B, j'ai toute une série de date.

Avant d'ajouter une nouvelle date sur cette colonne, je vérifie si cette
dernière n'est pas déjà présente.

La macro suivante ne fonctionne pas :

a = Application.Match(Jour, .Range("B1:B65536"), 0)
If IsError(a) Then...

avec Jour représentant la nouvelle date. Jour est défini au préalable : Dim
Jour as Date

Mais cela ne fonctionne pas. Où est le problème ???

Merci d'avance,

Merci pour ta réponse.
--
Merci pour vos réponses.

Voir aussi ma réponse à ta première demande du 18/4 à 16:30.

FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr

Bonjour,

En colonne B, j'ai toute une série de date.

Avant d'ajouter une nouvelle date sur cette colonne, je vérifie si cette
dernière n'est pas déjà présente.

La macro suivante ne fonctionne pas :

a = Application.Match(Jour, .Range("B1:B65536"), 0)
If IsError(a) Then...

avec Jour représentant la nouvelle date. Jour est défini au préalable : Dim
Jour as Date

Mais cela ne fonctionne pas. Où est le problème ???

Merci d'avance,

Merci c'est parfait. J'ai à présent un souci avec une instruction
Evaluate(Sumproduct... pour laquelle je recherche une somme si les dates sont
comprises dans une plage...

La syntaxe suivante ne fonctionne pas :

Evaluate("SUMPRODUCT(('CA N'!B1:B" & r & " = " & .Cells(i, 1) & ") * ('CA
N'!A1:A" & r & " >= " & Format(CDate(Workbooks("Chiffres
d'Affaires").Sheets("Infos").Range("B15")), "dd/mm/yy") & ") * ('CA N'!A1:A"
& r & " <= " & Format(CDate(Workbooks("Chiffres
d'Affaires").Sheets("Infos").Range("B3")), "dd/mm/yy") & "), 'CA N'!C1:C" & r
& ")")
--
Merci pour vos réponses.

Bonsoir,


Le format de la date cherchée est le même que le format des dates du
champ de recherche:

Sub RechercheDateFind()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
On Error Resume Next
[L:L].Find(What:Íate(d), LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub

On adapte le format de la date recherchée au format des dates du champ
de recherche

Sub RechercheDateFind2()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
On Error Resume Next
[N:N].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"),
LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/FindDates.xls

JB
http://boisgontierjacques.free.fr/

La macro suivante ne fonctionne pas :

a = Application.Match(Jour, .Range("B1:B65536"), 0)
If IsError(a) Then...

avec Jour représentant la nouvelle date. Jour est défini au préalable : Dim
Jour as Date

Mais cela ne fonctionne pas. Où est le problème ???

Merci d'avance,
--
Merci pour vos réponses.

Bonsoir,

Exemple simple:

Sub essai()
x = [SumProduct((Dates>=E1)*(Dates<=F1)*montant)]
End Sub

http://cjoint.com/?evtTbp20RK

JB
http://boisgontierjacques.free.fr/

On 21 avr, 19:19, Yvan <Y...@discussions.microsoft.com> wrote:

Merci c'est parfait. J'ai à présent un souci avec une instruction
Evaluate(Sumproduct... pour laquelle je recherche une somme si les dates s ont
comprises dans une plage...

La syntaxe suivante ne fonctionne pas :

Evaluate("SUMPRODUCT(('CA N'!B1:B" & r & " = " & .Cells(i, 1) & ") * ('C A
N'!A1:A" & r & " >= " & Format(CDate(Workbooks("Chiffres
d'Affaires").Sheets("Infos").Range("B15")), "dd/mm/yy") & ") * ('CA N'!A1: A"
& r & " <= " & Format(CDate(Workbooks("Chiffres
d'Affaires").Sheets("Infos").Range("B3")), "dd/mm/yy") & "), 'CA N'!C1:C" & r
& ")")
--
Merci pour vos réponses.

Bonsoir,

Le format de la date cherchée est le même que le format des dates du
champ de recherche:

Sub RechercheDateFind()
  d = InputBox("Date? jj/mm/aa")
  If d <> "" Then
    On Error Resume Next
    [L:L].Find(What:=CDate(d), LookIn:=xlValues).Select
    If Err <> 0 Then MsgBox "Inconnu"
  End If
End Sub

On adapte le format de la date recherchée au format des dates du champ
de recherche

Sub RechercheDateFind2()
  d = InputBox("Date? jj/mm/aa")
  If d <> "" Then
    On Error Resume Next
    [N:N].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"),
LookIn:=xlValues).Select
    If Err <> 0 Then MsgBox "Inconnu"
  End If
End Sub

http://boisgontierjacques.free.fr/fichiers/FindDates.xls

JB
http://boisgontierjacques.free.fr/

La macro suivante ne fonctionne pas :

        a = Application.Match(Jour, .Range("B1:B65536"), 0)
        If IsError(a) Then...

avec Jour représentant la nouvelle date. Jour est défini au préa lable : Dim
Jour as Date

Mais cela ne fonctionne pas. Où est le problème ???

Merci d'avance,
--
Merci pour vos réponses.- Masquer le texte des messages précéden ts -

- Afficher le texte des messages précédents -