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

Le
Yvan
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 vos réponses.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5460451
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éalabl e : Dim
Jour as Date

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

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


Frédéric Sigonneau
Le #5548271
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,


Yvan
Le #5917741
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,





Yvan
Le #5923791
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.






JB
Le #5931961
Bonsoir,

Exemple simple:

Sub essai()
x = [SumProduct((Dates>á)*(Dates<ñ)*montant)]
End Sub

http://cjoint.com/?evtTbp20RK

JB
http://boisgontierjacques.free.fr/

On 21 avr, 19:19, Yvan
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:Í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é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 -




Publicité
Poster une réponse
Anonyme