A voir également:
- Affichage de la date dans une cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Affichage double ecran - Guide
11 réponses
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
284
20 sept. 2018 à 09:28
20 sept. 2018 à 09:28
Bonjour,
A tester
A tester
Public Sub Reset_Effacer_Les_Lignes() Dim x$ With Feuil1 If MsgBox(" Doit t'on vraiment effacer les résultats du tableau ", vbYesNo, " Demande de confirmation d'effacement !!!") = vbYes Then Range("A3:H200").SpecialCells(xlCellTypeConstants, 23).ClearContents 'Efface la plage sans effacer les formules Range("A3:H200").Interior.ColorIndex = xlNone 'On remets le fond (interior) en blanc Range("$C$2").FormulaLocal = "=SOMME(DECALER(C3;0;0;NBVAL(F:F)))" 'Ici on recopie la formule de C2 en C2 '***** Affichage de la date d'aujourd'hui uniquement dans la cellule (A3) [A3] = Application.Proper(Format(Date, "dddd dd mmmm yyyy")) With [A3] With .Characters(1).Font .FontStyle = "Gras" .ColorIndex = 3 End With [A3].Font.Name = "Arial" [A3].Font.Size = 12 With .Characters(2).Font .FontStyle = "Gras" .ColorIndex = xlAutomatic End With x = InStr(InStr([A1], " ") + 1, [A3], " ") With .Characters(x + 1).Font .FontStyle = "Gras" .ColorIndex = 3 End With [A3].Font.Name = "Arial" [A3].Font.Size = 12 With .Characters(x + 2).Font .FontStyle = "Gras" .ColorIndex = xlAutomatic End With End With Else Exit Sub 'Si réponse = "Non" alors on sort End If End With End Sub
Salut M-12,
Merci pour ta réponse et pour la modification.
La macro fait bien son boulot jusqu'au début de ton code.
Mais rien ne s'affiche en cellule (A3), pas d'erreur, ni autre.
J'ai chercher mais pas trouver le soucis.
Sinon je te passe le fichier bien sur si tu a le temps.
Merci et vu l'heure bon app et bonne après midi a toi.
Cdlt Vieuxray
Merci pour ta réponse et pour la modification.
La macro fait bien son boulot jusqu'au début de ton code.
Mais rien ne s'affiche en cellule (A3), pas d'erreur, ni autre.
J'ai chercher mais pas trouver le soucis.
Sinon je te passe le fichier bien sur si tu a le temps.
Merci et vu l'heure bon app et bonne après midi a toi.
Cdlt Vieuxray
'***** Affichage de la date d'aujourd'hui uniquement dans la cellule (A3)
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
284
20 sept. 2018 à 11:53
20 sept. 2018 à 11:53
Re,
Pas de soucis, je regarderai
Pas de soucis, je regarderai
Salut M-12
Merci pour ta sympathie, voici le fichier, ça sera plus simple comme ça.
https://www.cjoint.com/c/HIukoz7EYQz
Donc le fichier est parti de moi et n'étant plus balèze que ca en VBA, je me débrouille comme je peux.
Je pense que si ton code ne fonctionne pas, c'est que le programme doit rentrer en conflit avec le début de mon code, a vérifier, svp.
D'autres part, tu verra chez moi l'écran clignote quand on déplace la barre multicolore avec les flèches du clavier mais ce n'ai pas forcément ça. LOL
Si tu veux bien svp jeter un œil voir le pourquoi du clignotement, merci d'avance.
Quand je veux effacer toute la liste, j'efface la cellule (C2) du coup je suis obliger de recopier la formule qui était en C2.
et quand je veux clic-droit en (A3) pour de nouveau insérer la date ca commence a merdouiller.
j'avais donc trouver l'astuce d'effacer la liste puis recopier la formule en C2 et afficher automatiquement la date après normalement ca merdouille plus, enfin hum c'est pas gagner mon truc.
Merci a toi prends le temps rien ne presse.
A plus tard et merci
Cdlt Vieuxray
Merci pour ta sympathie, voici le fichier, ça sera plus simple comme ça.
https://www.cjoint.com/c/HIukoz7EYQz
Donc le fichier est parti de moi et n'étant plus balèze que ca en VBA, je me débrouille comme je peux.
Je pense que si ton code ne fonctionne pas, c'est que le programme doit rentrer en conflit avec le début de mon code, a vérifier, svp.
D'autres part, tu verra chez moi l'écran clignote quand on déplace la barre multicolore avec les flèches du clavier mais ce n'ai pas forcément ça. LOL
Si tu veux bien svp jeter un œil voir le pourquoi du clignotement, merci d'avance.
Quand je veux effacer toute la liste, j'efface la cellule (C2) du coup je suis obliger de recopier la formule qui était en C2.
et quand je veux clic-droit en (A3) pour de nouveau insérer la date ca commence a merdouiller.
j'avais donc trouver l'astuce d'effacer la liste puis recopier la formule en C2 et afficher automatiquement la date après normalement ca merdouille plus, enfin hum c'est pas gagner mon truc.
Merci a toi prends le temps rien ne presse.
A plus tard et merci
Cdlt Vieuxray
Salut M-12,
Si trop de soucis avec le fichier tu laisses tomber c'est pas grave
Ce n'ai pas un programme professionnel.
Juste fait ce programme avec ce que je sais de VBA et des internautes qui partagent leurs savoirs.
Après j'ai j'adapter.
Merci pour ton aide, dit moi svp de quoi il retourne.
Bonne soirée et bon W-end a toi
Bien cordialement Vieuxray
Si trop de soucis avec le fichier tu laisses tomber c'est pas grave
Ce n'ai pas un programme professionnel.
Juste fait ce programme avec ce que je sais de VBA et des internautes qui partagent leurs savoirs.
Après j'ai j'adapter.
Merci pour ton aide, dit moi svp de quoi il retourne.
Bonne soirée et bon W-end a toi
Bien cordialement Vieuxray
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
25 sept. 2018 à 08:40
25 sept. 2018 à 08:40
Bonjour a tous et a toutes
Ne pas oublier de remettre a true en fin de la procedure
'***** Affichage de la date d'aujourd'hui uniquement dans la cellule (A3) Application.EnableEvents = False 'pour eviter raz par Private Sub Worksheet_Change(ByVal Target As Range) feuil1 [A3] = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))
Ne pas oublier de remettre a true en fin de la procedure
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
26 sept. 2018 à 16:25
26 sept. 2018 à 16:25
Bonjour,
fichier modifie pour ce que j'ai compris: B et D premiere lettre premier mot majuscule/bleu et le reste minus noir
https://mon-partage.fr/f/CfQDJIhc/
fichier modifie pour ce que j'ai compris: B et D premiere lettre premier mot majuscule/bleu et le reste minus noir
https://mon-partage.fr/f/CfQDJIhc/
Salut M-12,
Je viens aux nouvelles, juste pour savoir si tu avais eu le temps de regarder mon fichier ou si tu avais laisser tomber.
Merci a toi de me tenir informer.
Bonne journée.
Cdlt Ray
Je viens aux nouvelles, juste pour savoir si tu avais eu le temps de regarder mon fichier ou si tu avais laisser tomber.
Merci a toi de me tenir informer.
Bonne journée.
Cdlt Ray
Salut f894009,
Merci beaucoup et beaucoup enfin je n'ai plus d'erreur dans mon code tout fonctionne bien, merci a toi.
La date s'affiche bien en (A3) mais il y a une petite erreur dans le code pour la mise en Rouge de la date et du mois.
(M)ardi [2)5 Septembre 2018
Pour le (M) c'est bon pour le jour majuscule et rouge
Sinon c'est le premier chiffre du mois qui se mets en rouge a la place de la première lettre du mois.
Merci pour ton aide bonne journée a toi.
Cdlt Ray
Merci beaucoup et beaucoup enfin je n'ai plus d'erreur dans mon code tout fonctionne bien, merci a toi.
La date s'affiche bien en (A3) mais il y a une petite erreur dans le code pour la mise en Rouge de la date et du mois.
(M)ardi [2)5 Septembre 2018
Pour le (M) c'est bon pour le jour majuscule et rouge
Sinon c'est le premier chiffre du mois qui se mets en rouge a la place de la première lettre du mois.
Merci pour ton aide bonne journée a toi.
Cdlt Ray
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
25 sept. 2018 à 12:02
25 sept. 2018 à 12:02
Re,
Je regarde la chose....
Je regarde la chose....
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
25 sept. 2018 à 16:45
25 sept. 2018 à 16:45
Re,
Dans procedure
petite erreur:
Dans procedure
Public Sub Reset_Effacer_Les_Lignes()
petite erreur:
'x = InStr(InStr([A1], " ") + 1, [A3], " ") x = InStr(InStr([A3], " ") + 1, [A3], " ")
Salut f894009,
Merci pour cette correction, j'ai relu plusieurs fois pourtant mais je n'ai pas vu cette petite erreur, seul un œil d'expert pouvait déceler l'intru.
Bon, toujours est t'il que ca fonctionne maintenant, merci bien.
Une petite modification sur le code ci-dessous svp si tu a le temps.
La macro sert a mettre la première lettre des colonnes (B) et (D) en Majuscule, Gras, Bleu.
Ca fonctionne bien
Mais, je voudrais bien svp que SEULE la première lettre soit en Majuscule, Gras et Bleu, le reste de la phrase ou du mot soit en Minuscule Noir, Gras.
Merci pour ton aide qui pour moi est très appécier.
Bonne soirée et merci a toi
Cdlt Ray
Merci pour cette correction, j'ai relu plusieurs fois pourtant mais je n'ai pas vu cette petite erreur, seul un œil d'expert pouvait déceler l'intru.
Bon, toujours est t'il que ca fonctionne maintenant, merci bien.
Une petite modification sur le code ci-dessous svp si tu a le temps.
La macro sert a mettre la première lettre des colonnes (B) et (D) en Majuscule, Gras, Bleu.
Ca fonctionne bien
Mais, je voudrais bien svp que SEULE la première lettre soit en Majuscule, Gras et Bleu, le reste de la phrase ou du mot soit en Minuscule Noir, Gras.
Merci pour ton aide qui pour moi est très appécier.
Bonne soirée et merci a toi
Cdlt Ray
'PREMIÈRE LETTRE MAJUSCULE BLEU ET GRAS
Public Sub Majuscule_Bleu_Gras(Cel As Range)
Dim S As String
Application.ScreenUpdating = False
With Cel
S = .Value
If S = "" Then Exit Sub
Mid(S, 1, 1) = UCase(Mid(S, 1, 1)) 'Majuscule
.Value = S
With .Font
.Name = "Arial"
.ColorIndex = Noir
.Bold = True
.Size = 12
End With
With .Characters(1, 1).Font
.Name = "Arial"
.ColorIndex = Bleu ' Première lettre
.Bold = True
.Size = 12
End With
End With
Application.ScreenUpdating = True
End Sub
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
25 sept. 2018 à 18:54
25 sept. 2018 à 18:54
Re,
Ok, demain matin
Ok, demain matin
Salut f894009,
Merci pour la modification du code,
Après essais, le résultat est concluant, nickel.
Encore des petits ennuis, j'essai de trouver comment faire, mais je n'ai
plus d'erreur dans le code du programme, c'est déjà ça.
Merci a toi pour l'aide et ton savoir partager.
Bonne soirée et encore merci.
Bien cordialement Raymond
Merci pour la modification du code,
Après essais, le résultat est concluant, nickel.
Encore des petits ennuis, j'essai de trouver comment faire, mais je n'ai
plus d'erreur dans le code du programme, c'est déjà ça.
Merci a toi pour l'aide et ton savoir partager.
Bonne soirée et encore merci.
Bien cordialement Raymond