selectionner des prix en fonction d'une date puis copier coller Fermé

Question

Bonjour à tous,

Après de lonnngues recherche je rame tjrs, vu que le forum à l'air efficace jme permets de solliciter votre savoir faire 
Mon probleme est le suivant : 
-J'ai 2 colones dans ma feui2. des dates dans la colone A , des prix dans la colone B (J'ai un historique de prix à chaque heures donc 24 cellules pour 1 jour)
-Dans ma Feuil1 j'ai 2 cellules B12 et C12. qui st 2 dates. Ces deux dates constituent un intervalle de dates. Je voudrais selectionner tt les prix de ma feuil2 qui correspondent à cet intervalle de dates.Une fois ces prix selectionnés dans la Feuil 2 je veux les coller dans la colone E dans la Feuil1 de la colone E. Quelqu'un aurait une idée d'une macro faisant cela??? Je tourne en rond.

-Enfin derniere chose. Dans ma Feuil 1 j'ai une liste de jour férié. Je voudrais que ces jours feriés de ma feuil1 soient mis en gras et couleur dans ma feuil2... J'ai essayer de faire une mise en forme conditionnelle mais ca ne fonctionne pas ... 

Merci à tous

michel_m · Answer

Bonjour,

pour tenter d'^tre efficace

mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/ 
puis copier l'adresse du lien et la coller dans le message de réponse 

D'avance, merci

PoivronsGris · Answer

entendu je l'ai fait

PoivronsGris · Answer

https://www.cjoint.com/?DIbqCyTa3d4

Mes excuses, et merci encore

biencoiffe · Answer

merciiiii !! cela dit j'ai un pu avancer un peu.. Je me suis servi du code suivant : Option Explicit

Private Sub cmdGo_Click()

    Dim oShDonnees As Worksheet
    Dim oShTrait As Worksheet
    Dim bFin As Boolean
    Dim iLig As Integer
    Dim dtDeb As Date
    Dim dtFin As Date
    Dim iLigEcrite As Integer
    
    Set oShTrait = Worksheets("Traitement")
    dtDeb = oShTrait.Range("B3").Value
    dtFin = oShTrait.Range("C3").Value
    
    iLigEcrite = 3
    Set oShDonnees = Worksheets("Données")
    bFin = False
    iLig = 2
    While Not bFin
        If DateDiff("d", dtDeb, oShDonnees.Range("A" & iLig).Value) >= 0 Then
                oShTrait.Range("E" & iLigEcrite).Value = oShDonnees.Range("A" & iLig).Value
                oShTrait.Range("F" & iLigEcrite).Value = oShDonnees.Range("B" & iLig).Value
                iLigEcrite = iLigEcrite + 1
            End If
        End If
        iLig = iLig + 1
        If oShDonnees.Range("A" & iLig).Value = "" Then
            bFin = True
        End If
    Wend
    
    Set oShDonnees = Nothing
    Set oShTrait = Nothing
    
    MsgBox "Fini !", vbInformation
    
End Sub
---------------------------------------------------------------
Du coup, j'obtiens dans ma feuille "traitement" (anciennement la Feuil1) une colonne des prix sélectionnés en fonction de l'intervalle définit par les cellules B3 et C3. Maintenant je voudrai simplement prendre les prix correspondants aux jours fériés (cad les jours dans la colonne L) et coller ces prix dans la colonne H de la meme  feuil1(traitement). c'est à dire avoir les prix à chaque heure des jours fériés (24 h pr chacun des jours de la liste de jours fériés qui st ds la colonne L)... . Une jolie macro pr fr tout ca me rendrai bcp service !!!

Merci de ton aide =)

PS : Par ailleurs j ai toujours pas réussi à mettre en forme les jours fériés (en gras et rouge par exemple).

michel_m · Answer

Bonjour

biencoiffe=Poivrongris ???? pas très futefute

dans la 1° demande tu parles B12:C12 maintenant B3:C3 ?

Ton bouton "cmdgo" se trouve sur quelle feuille ?

PoivronsGris · Answer

Mon bouton se trouve ds la feuil1 merci michel

PoivronsGris · Answer

Oui c' vrai que j'ai changé entre le 1er et le deuxieme. Mais oublions le 1er. Je  prefere parler du 2. Et mon bouton se situe ds la Feuil1.

Merci

michel_m · Answer

re,

C'est avancé; sois patient, proposition en fin d'après midi ou demain en matinée 
Pour l'instant la liste des fériés colonne L et horaires colonne M est automatisée en fonction de B3:C3

michel_m · Answer

Ci joint proposition

https://www.cjoint.com/?3Icrlh97e60

j'ai eu des fonctionnements capricieux avec les lignes de premlig et derlig: des fois ça a marché, d'autres fois c'était déclaré "erreur", va savoir pourquoi§
apparemment les threads actuels sont  ok .....
 
 Michel

PoivronsGris · Answer

Salut Michel j'ai bien recu ton fichier excel. Peut etre que je n'ai pas été assez clair dans mon explication. Parce que tu t'es donné de la peine pour des choses que j'ai déjà faite par ailleurs, mais que je n'ai pas mise dans mon fichier excel pour simplifier. Néanmoins la manière dont tu as codé m'a beaucoup aidé pour une autre partie de mon travail (un mal pour un GRAND BIEN finalement :). Cependant je suis toujours bloqué avec ma question... Je te soumets donc le fichier excel avec tout les détails qui j'espere seront clairs cette fois ci.

Merci  !! Un grand merci !!!

PoivronsGris · Answer

https://www.cjoint.com/?DIdjXXoCOZm

PoivronsGris · Answer

Créer les intervalles comme tu as fait et tout. Meme la definition des changements d'heure est deja faite sur dautres outils de programmation donc ce n'était pas necessaire de le faire... :( jsuis desolé de t'avoir donné tu travail pour rien.

Selectionner des prix en fonction d'une date puis copier coller

12 réponses

Discussions similaires