Faire un petit test suivi kéno

Résolu
vieuxraymond -  
 vieuxraymond -
Bonjour a tous, forum bonjour

sous Excel 2007 VBA

Je me fait un programme pour suivre le résultat du kéno (hum c'est pas gagner)

je récupère sur un site les résultats l'après midi du jour même pour le résultat du MIDI
et le lendemain matin pour le résultat du soir de la veille.

d'où l'utilité d'effectuer un test pour un affichage correct dans mon programme, voir svp le lien conduisant sur le fichier ci-joint pour explications dans une bulle dans le programme.

http://www.cjoint.com/c/GBflpS3Wcuz

Merci a vous pour votre aide, un bon dimanche a vous.

Cordialement vieux ray

6 réponses

  1. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour
    Si j'ai bien compris, sur chaque ligne impaire, on aura les résultats du matin et sur les lignes paires les résultats de l'après-midi saisis le lendemain. Il suffit donc, pour le lendemain, de recopier la date de la vieille (ligne impaire) pour les résultats de l'après-midi
    https://mon-partage.fr/f/vTDocnMt/
    A tester
    Cdlt
    1
  2. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonsoir,
    Pour les formules en colonne X:
    =SI(ET($W1<>"";MOD(LIGNE();2)<>0);"Midi";"")
    en colonne Y
    =SI(ET($W1<>"";MOD(LIGNE();2)=0);"Soir";"")
    Cdlt
    1
  3. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour
    Rajoutez ceci juste avant le "End sub" de la macro attribuée au bouton "GO"
        Range("A1:A20", "C22:V41").Select
        With Selection.Font
            .Name = "Arial"
            .Size = 12
            .Bold = True
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
        End With
    

    bonne journée
    Cdlt
    1
  4. vieuxraymond
     
    Salut frenchie83,

    Merci pour ta réponse c'est sympa a toi

    Je souhaiterai que (Midi ou Soir) s'affiche au fur et a mesure que j'entre les données, là j'ai déjà tout d'afficher d'avance.

    Voila donc aujourd'hui j'ai entrer le résultat de ce midi a 14h15
    pour le résultat de ce soir (( je le rentrerai que demain matin )) mais dans la
    colonne il faudra que ce soit donc la date de ce dimanche (Soir)

    merci pour ton aide, bonne fin d'après midi

    Cdlt Raymond
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. vieuxraymond
     
    Salut Frenchie83,

    Merci pour ta réponse ainsi que le code.

    J'ai adapter le code et ça fonctionne bien, merci a toi.

    Svp, serait t'il possible que l'affichage dans les plages (A1:A20) et (C22:V41)
    se fasse comme ci-dessous.

    Name = "Arial"
    ColorIndex = 1
    Bold = True
    Size = 12

    J'ai une macro qui fonctionne et qui devrai me faire ça.
    Mais dès que j'applique la macro, ça ne fonctionne pas.

    En fait, l'affichage reste a l'initial, ou alors c'est a cause du code qui fonctionne en arrière plan mais là, je ne sais plus ???

    Si svp, tu a une explication et comment faire pour y remédier.

    Je te souhaite un bon début de semaine et merci pour ton aide.

    Cdlt Raymond
    0
  7. vieuxraymond
     
    Salut Frenchie83,

    Merci pour cette réponse rapide, c'est gentil.

    Bon ça fonctionne (presque)

    La première fois que je clic sur le bouton "GO" ça fonctionne MAIS
    toute la plage de (A1:V14) reste sélectionner comme si j'avais sélectionner cette plage avec la souris (en gris clair).
    Ca fonctionne quand même ça reste sélectionner en permanence.

    Merci pour le code bonne journée également

    Cdlt raymond
    0
    1. Frenchie83 Messages postés 2254 Statut Membre 339
       
      Rajouter en dernière ligne
         [ZZ1].Select

      La cellule B27 est sélectionnée mais cachée par le bouton "Effacement"
      Cdlt
      0
      1. vieuxraymond > Frenchie83 Messages postés 2254 Statut Membre
         
        Re salut

        Bon voila, c'est tout bon, juste (supprimer un (Z) dans le code) car la sélection s'étalait trop loin dans la feuil1.

        Maintenant c'est ok.


        [Z1].Select


        Je te remercie pour ton aide et ton savoir partager.

        Je te souhaite une agréable journée et encore grand merci a toi.

        Bien Cordialement Raymond
        0