Discussion :

[bullot27]

Bonjour,
j ai un fichier avec une macro pour ajouter les données saisies en feuille 1 dans un tableau recap en feuille 2
ce que je souhaiterais c'est pouvoir mettre dans la macro un msgbox qui m'indiquerait si la date de saisie est déjà présente dans mon tableau recap
mes compétences en vba étant très limités pourriez vous m'aider svp?

[Marc-L]

Bonjour,

rappel :

Important : Editorial - A lire avant de poster

[Menhir]

qui m'indiquerait si la date de saisie est déjà présente dans mon tableau recap

Je n'ai pas ouvert ton XLSM pour des questions de prudence.
Est-ce que ce que tu veux savoir c'est si la cellule dans laquelle est placée cette date est vide ou non ?
Dans ce cas, il suffit de mettre un test du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("A1").Value = "" Then

En remplaçant A1 par la cellule où se trouve la valeur à tester.

[bullot27]

bonsoir menhir,

en fait ce que je voudrais c'est savoir si la date contenue dans la cellule a1 de l'onglet 1 est déjà présente dans la colonne B de l'onglet 2 et si oui stopper la macro

[Menhir]

Si tu ne donnes pas suffisamment de renseignements pour comprendre ton problème sans avoir à ouvrir ton fichier, je ne peux pas t'aider.

[Marc-L]

Comme ici c'est le forum des formules de calculs d'Excel, voir du côté des fonctions EQUIV, RECHERCHEV, CHERCHE, TROUVE, …

[davido84]

Bonjour à tous,
tu peux utiliser la fonction NB.SI.
En VBA soon pendant est Application.WorksheetFunction.CountIf.
Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim Rng As Range, LaDate As Range, DerLig As Long
Set LaDate = Sheets("Feuil1").Range("B3")
DerLig = Sheets("Feuil2").Range("C" & Rows.Count).End(xlUp).Row
Set Rng = Sheets("Feuil2").Range("C3:C" & DerLig)
If Application.WorksheetFunction.CountIf(Rng, LaDate) > 0 Then
  MsgBox "date déjà présente": End
Else
  'ton code si la date n'est pas présente
End If
End Sub

A+

[bullot27]

bonsoir menhir,

en fait dans mon 1er onglet j'ai un tableau où je rentre des données( plus précisément un nombre d'opération par position de travail).dans la cellule A1 je mets la date des données concernées.j'ai enregistré une macro qui copie et colle ces données sur un 2eme onglet puis les classe par date. ce que je souhaiterais c'est pouvoir insérer un message d'alerte dans la macro si la date en a1 est déjà présente dans mon 2eme onglet autrement dit si j'ai déjà rentré des données à cette date