Faire un petit test suivi kéno

Résolu/Fermé
vieuxraymond - Modifié par vieuxraymond le 5/02/2017 à 14:44
 vieuxraymond - 6 févr. 2017 à 09:13
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
A voir également:

6 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
5 févr. 2017 à 17:24
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
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
5 févr. 2017 à 19:56
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
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
6 févr. 2017 à 08:00
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
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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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
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
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
6 févr. 2017 à 08:49
Rajouter en dernière ligne
   [ZZ1].Select

La cellule B27 est sélectionnée mais cachée par le bouton "Effacement"
Cdlt
0
vieuxraymond > Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023
6 févr. 2017 à 09:13
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