Recherche date dans une colonne

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jorisphi

XLDnaute Occasionnel
Bonjour à tous

Je n’arrive pas à afficher correctement en VERT la date recherchée
Il m’affiche toute la colonne et me donne une erreur
Pour votre info, ce fichier est évolutif (= Insertion hebdomadaire de dates)
Je joins mon fichier en annexe

Un Grand merci pour aide
Jorisphi
 

Pièces jointes

Trier par date Trier par votes
Re : Recherche date dans une colonne

Salut Jorispi,

Étant donné que tes dates sont toujours dans la même colonne, pourquoi ne ferais-tu pas une boucle de la cellule B12 à la dernière ligne de ton tableau en utilisant un pas de 11 ?
A chaque étape, tu testes si la date saisie en A2 correspond.

Si tu arrives à la fin de ton tableau sans en avoir trouvé c'est qu'elle n'existe pas. Dans le cas contraire, tu peux sortir de ta boucle et effectuer les traitements que tu souhaites...
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Hello Sly le globe Trotter

Ta proposition est pertinente
Etant un débutant en VBA, peux-tu m'écrire le code, et ce, sans te commander
Et aussi , si tu as le temps
Un TOUT TOUT GRAND MERCI pour ton aide
Jorisphi
Sly le globe trotter à dit:
Salut Jorispi,

Étant donné que tes dates sont toujours dans la même colonne, pourquoi ne ferais-tu pas une boucle de la cellule B12 à la dernière ligne de ton tableau en utilisant un pas de 11 ?
A chaque étape, tu testes si la date saisie en A2 correspond.

Si tu arrives à la fin de ton tableau sans en avoir trouvé c'est qu'elle n'existe pas. Dans le cas contraire, tu peux sortir de ta boucle et effectuer les traitements que tu souhaites...
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Salut jorisphi,

A priori, ceci fonctionne en executant pas à pas.
Code: 
Sub recherche()

For i = 13 To 65536 Step 11
    If Sheets("1C1").Cells(i, 2) = Sheets("1C1").Cells(2, 1) Then
        Range(Cells(i - 2, 2), Cells(i + 7, 2)).Interior.ColorIndex = 4
        Exit For
    End If
Next

End Sub

Par contre, il y a pas mal d'erreur générée par tes fonctions Worksheet_SelectionChange et Worksheet_Change.

Sly
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Cher Sly

Grand Merci pour ta réponse rapide

Mais il bloque sur la ligne
"Range(Cells(i - 2, 2), Cells(i + 7, 2)).Interior.ColorIndex = 4"
J’ai seché hier soir et je ne trouve pas
Puis-je te renvoyer mon nouveau fichier sans les fonctions d’erreur ?
Grand merci d’avance
Cijoint.fr - Service gratuit de dépôt de fichiers


Pour ton info, mon code suivant sert à changer le nom de l'onglet
Il faudrait donc inclure cet argument dans IF Sheets("1C1")
Et aussi un MsgBox : « Date inexistante » si non Trouvé
(Je suis vraiment difficile, mais c’est grâce à des personnes comme toi, que j’apprends)
Encore Merci
Jorisphi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("P6")) Is Nothing Then Exit Sub
ActiveSheet.Name = ActiveSheet.Range("P6").Value
End Sub
Sly le globe trotter à dit:
Salut jorisphi,
------------------
Code: 
Sub recherche()

For i = 13 To 65536 Step 11
    If Sheets("1C1").Cells(i, 2) = Sheets("1C1").Cells(2, 1) Then
        Range(Cells(i - 2, 2), Cells(i + 7, 2)).Interior.ColorIndex = 4
        Exit For
    End If
Next

End Sub

Par contre, il y a pas mal d'erreur générée par tes fonctions Worksheet_SelectionChange et Worksheet_Change.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Hello,

C'est la protection de ta feuille qui pose problème à mon avis.

Je viens de tester rapidement ce bout de code écrit dans la feuille "1C1" et cela fonctionne chez moi
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("P6")) Is Nothing Then Exit Sub
ActiveSheet.Name = ActiveSheet.Range("P6").Value
End Sub

Sub recherche()
Sheets("1C1").Unprotect

For i = 13 To 65536 Step 11
    If Sheets("1C1").Cells(i, 2) = Sheets("1C1").Cells(2, 1) Then
        Range(Cells(i - 2, 2), Cells(i + 7, 2)).Select
        Selection.Interior.Color = 65280
        Exit For
    End If
Next

Sheets("1C1").Protect
End Sub

Je creuse ton autre besoin
Sly
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Re salut Jorisphi,

Si tu ne peux accéder à ton code que par la feuille dans laquelle tu souhaites effectuer ta recherche, tu peux utiliser cette variante, qui fait abstraction du nom de la feuille

Code: 
Sub recherchebis()
ActiveSheet.Unprotect

For i = 13 To 65536 Step 11
    If ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(2, 1) Then
        Range(Cells(i - 2, 2), Cells(i + 7, 2)).Select
        Selection.Interior.Color = 65280
        Exit For
    End If
Next

ActiveSheet.Protect
End Sub

En espérant répondre à ton besoin
Sly
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Très cher Sly

Je viens aussi de tester, et tu es un AS !.......
Cela fonctionne à merveille
Ton premier code fonctionnait à merveille et c'est moi qui a été pris comme un "Bleu"
Il fallait déprotéger la Feuille !.........

J'ai encore appris grace à toi

Juste une petite chose et je te laisserai tranquille
Comment faire pour désactiver la couleur sélectionnée précedemment
(Car lors d'une nouvelle recherche, il laisse la couleur recherchée précédente)

Et si possible un msgBox "Date inexistante" si non trouvée

Voilà
Encore un TOUT TOUT GRNAD MERCI pour ton aide précieuse et aussi pour ton coaching
Très cordialement
Jorisphi
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Et hop,

Code: 
Sub recherchebis()
ActiveSheet.Unprotect

Dim cpt As Integer
cpt = 0

Columns("B:B").Select
With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

For i = 13 To 65536 Step 11
    If ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(2, 1) Then
        Range(Cells(i - 2, 2), Cells(i + 7, 2)).Select
        Selection.Interior.Color = 65280
        cpt = 1
        Exit For
    End If
Next
If cpt = 0 Then
    MsgBox "Date inexistante", vbOKOnly, "Information"
End If

ActiveSheet.Protect
End Sub

Je rajoute une variable qui prend la valeur 1 quand la date est trouvée. Si elle n'est pas trouvée, elle reste donc à 0 et o affiche un message.

Sly
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Hello Sly
Quelle rapidité pour me répondre !.......

Qu'ai-je fait encore erreur ?

Le code s'arrete sur :
TintAndShade = 0

Cordialement
Jorisphi

Sly le globe trotter à dit:
Et hop,

Code: 
Sub recherchebis()
ActiveSheet.Unprotect

Dim cpt As Integer
cpt = 0

Columns("B:B").Select
With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

For i = 13 To 65536 Step 11
    If ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(2, 1) Then
        Range(Cells(i - 2, 2), Cells(i + 7, 2)).Select
        Selection.Interior.Color = 65280
        cpt = 1
        Exit For
    End If
Next
If cpt = 0 Then
    MsgBox "Date inexistante", vbOKOnly, "Information"
End If

ActiveSheet.Protect
End Sub

Je rajoute une variable qui prend la valeur 1 quand la date est trouvée. Si elle n'est pas trouvée, elle reste donc à 0 et o affiche un message.

Sly
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Cher Sly,
J'active ma macro via ma Worksheet 1C1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then Recherchedate
End Sub

Et ensuite, j'ai collé ton code dans la macro "Recherchedate"

J'ai encore fait une erreur? Laquelle ?.....
J'y perd mon latin

Voici mon fichier
Peux-tu regarder?...
Merci pour ton coaching.... et ta patience
Cordialement
Jorisphi

Cijoint.fr - Service gratuit de dépôt de fichiers

Sly le globe trotter à dit:
As-tu bien collé le code dans la feuille "1C1" ?
Sur mon poste, pas de problème...

Sly
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Hello,

Avec ce code collé dans l'onglet vba de la feuille "1C1",
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("P6")) Is Nothing Then Exit Sub
ActiveSheet.Name = ActiveSheet.Range("P6").Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then Recherchedate
End Sub

Sub Recherchedate()
ActiveSheet.Unprotect

Dim cpt As Integer
cpt = 0

Columns("B:B").Select
With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

For i = 13 To 65536 Step 11
    If ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(2, 1) Then
        Range(Cells(i - 2, 2), Cells(i + 7, 2)).Select
        Selection.Interior.Color = 65280
        cpt = 1
        Exit For
    End If
Next
If cpt = 0 Then
    MsgBox "Date inexistante", vbOKOnly, "Information"
End If

ActiveSheet.Protect
End Sub

cela fonctionne sur mon poste avec le fichier que tu as communiqué...

Sly
 
Vote positif 0 Vote négatif
Re : Recherche date dans une colonne

Cher Sly , le patient

J'ai suivi tes instructions
et j'ai toujours le problème

Sans te commander,
Peux-tu m'envoyer ton fichier qui marche ?
Je vais contrôler si celui-ci fonctionne chez moi

Encore Merci pour ta patience

Très Très cordialement
Jorisphi
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Faire une MFC avec pour condition la couleur d'une des cellules d'une plage.
Réponses
9
Affichages
240
nullosse
N
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
565
mikeduff
M
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
461
cathodique
cathodique
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
437
sylvanu
sylvanu
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
371
Cousinhub
Cousinhub
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
276
AD74
A
R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
260
Ron74
R
jeff1494
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
768
SAMUAL_2023
S
BLACKHAYES
  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
652
BLACKHAYES
BLACKHAYES
P
  • Résolu(e)
Microsoft 365 Suppression lignes par rapport à une date
2 3 4
Réponses
50
Affichages
1 K
pierrof
P
M
  • Résolu(e)
Microsoft 365 Somme d'une donnée spécifique, dans une Colonne spécifique dans chaque Onglet
Réponses
2
Affichages
279
Lolote83
L
yaka
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Calcul retard paiement en montant et nombre facture
Réponses
5
Affichages
430
Seydina
S
T
  • Résolu(e)
XL 2016 Recherche dans un tableau suivant dates
Réponses
5
Affichages
384
Gégé-45550
Gégé-45550
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
2 K
richard31
R
E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
568
emmanuel.conche
E
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
812
floflatch22
F
Poulet13
  • Question Question
XL 2021 EXTRAIRE + SOMME des 6 meilleures valeurs avec condition par participant
Réponses
11
Affichages
500
Poulet13
Poulet13
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
426
GALOUGALOU
GALOUGALOU
P
  • Question Question
XL 2021 dans une vba, la date automatique mais de la veille.
Réponses
6
Affichages
304
Patrick BRZ
P
Retour