Recherche date vba colonne A Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
d
daniel1965
Membre habitué
Membre habitué
Messages : 56
Inscrit le : 18 juillet 2018
Version d'Excel : 365

Message par daniel1965 » 31 mars 2020, 11:13

Bonjour à tous,

je butte donc je vous demande de l'aide, voila mon problème.
je recherche des dates se trouvant dans une colonne sur une feuille et je voudrais me position sur ces mêmes dates se trouvant sur une autre feuille.
Ceci pour que je, puisse me déplacer et inscrit quelque chose après chaque date
D'avance merci
Daniel
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'334
Appréciations reçues : 267
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 31 mars 2020, 13:14

Bonjour daniel1965, le forum,

Vois si le fichier joint peut t'aider...
Classeur1.xlsm
(20.63 Kio) Téléchargé 4 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
d
daniel1965
Membre habitué
Membre habitué
Messages : 56
Inscrit le : 18 juillet 2018
Version d'Excel : 365

Message par daniel1965 » 31 mars 2020, 15:04

Re

Je regarde depuis tout à l'heure mais je n'arrive pas a le modifier comme je le souhaiterais, je te le renvoi modifié pour que tu comprenne.
Merci
Classeur1 (2).xlsm
(29.14 Kio) Téléchargé 2 fois
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'334
Appréciations reçues : 267
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 31 mars 2020, 15:43

Re,

Une tentative....
Option Explicit

Dim f1 As Worksheet, f2 As Worksheet, cell As Range
Dim i As Long

Sub Compare()
    
    Set f1 = Sheets("Critères")
    Set f2 = Sheets("Dates")
    
    f2.Cells.Rows.Interior.Color = xlNone                     'supprime les couleurs
    f2.Columns(2).ClearContents                                  'vide la colonne B
    
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Set cell = f2.Range("A:A").Find(f1.Range("A" & i), lookat:=xlWhole)
        If Not cell Is Nothing Then
            f2.Rows(cell.Row & ":" & cell.Row).Interior.Color = RGB(255, 255, 64)
            f2.Cells(cell.Row, 2) = f1.Cells(i, 2)
        End If
    Next i
End Sub
Classeur1.xlsm
(22.34 Kio) Téléchargé 4 fois

Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
d
daniel1965
Membre habitué
Membre habitué
Messages : 56
Inscrit le : 18 juillet 2018
Version d'Excel : 365

Message par daniel1965 » 31 mars 2020, 16:48

Oui c'est ca!
mais sans la coloration des lignes
énorme merci merci merci
daniel
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'334
Appréciations reçues : 267
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 31 mars 2020, 17:16

Re,
Oui c'est ca!
mais sans la coloration des lignes
Option Explicit

Dim f1 As Worksheet, f2 As Worksheet, cell As Range
Dim i As Long

Sub Compare()
    
    Set f1 = Sheets("Critères")
    Set f2 = Sheets("Dates")
    
    f2.Columns(2).ClearContents                                  'vide la colonne B
    
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Set cell = f2.Range("A:A").Find(f1.Range("A" & i), lookat:=xlWhole)
        If Not cell Is Nothing Then
            f2.Cells(cell.Row, 2) = f1.Cells(i, 2)
        End If
    Next i
End Sub
Cordialement, :)
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message