Faire un petit test suivi kéno Résolu/Fermé

Question

Bonjour a tous, forum bonjour
Configuration: Configuration: Windows 7 32 bits/ Internet Explorer 11.0
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

Frenchie83 · Answer

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

vieuxraymond · Answer

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

Frenchie83 · Answer

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

vieuxraymond · Answer

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

Frenchie83 · Answer

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

vieuxraymond · Answer

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

Faire un petit test suivi kéno

6 réponses

Discussions similaires