Majuscule en Gras et Rouge

Résolu/Fermé
Duduleray - 12 mai 2009 à 10:07
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009 - 17 mai 2009 à 14:34
Bonjour a tous et toutes, Forum bonjour,

Dans les cellules A1/A2 s'affiche exactement sous cette forme les deux messages ci-dessous

Cellule A1 Mardi 12 Mai 2009
Cellule A2 132 ième Jour de l´année Semaine:20

Majuscule déja mise en A1 et A2

je souhaiterai SVP en VBA mettre en Rouge et gras la première lettre du jour et du mois (M)ardi et (M)ai pour A1

ainsi que (J)our et (S)emaine pour A2

Merci beaucoup a vous et de votre temps Excel 2007 et Vista

Bonne journée Raymond

16 réponses

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
12 mai 2009 à 10:25
Salut,

Pour commencer tu devrais mettre tes statuts en résolu des tes discussions antérieures, et comme je te l'ai dégalement conseillé, il serait bien que tu te déclares membre de commen ça marche.

Pour repondre à ta quetion, en VBA c'est possible

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
1
Salut Mike, forum

j'ai essayer sur tes conseils de mettre RESOLU sur mes anciens message, je ni arrive pas a part celui d'aujourd'hui ou je vois bien la possibilité de le faire
je le ferai a l'avenir au fur et a mesure

sinon merci pour la reponse si tu pouvais SVP me faire un petit code au sujet de la question poser ce matin
ca m'arrangerai bien

merci a toi et bonne apres midi

Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
12 mai 2009 à 14:11
Re,

D'ou l'intérêt d'étre membre, clic sur le triangle et demande à un modérateur de mettre le statut en résolu pour toi et on continu sur l'autre discussion

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
12 mai 2009 à 14:43
Re salut Mike

Voila le necessaire a été fait comme demander, merci de m'avoir aider pour les petites demarches.

Donc en VBA c'est possible me disait tu, te serait'il svp possible de me faire un chti code car pour ca je ne sais pas
encore faire, je bidouille mais bon pas encore assez balaise en vba.

Merci a toi si besoin d'explictions supplémentaires, pas de soucis

Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
12 mai 2009 à 15:04
Re,

Pour la première lettre dans la cellule, pas de problème

Sub Macro5()
With [A1].Characters(Start:=1, Length:=1).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With
With [A2].Characters(Start:=1, Length:=1).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With
End Sub

Pour les suivantes, le problème est qu'elles ne sont jamais a la même place, je m'absente et vois ça ce soir

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
12 mai 2009 à 15:36
Re Mike

merci pour le debut du code, je pensais comme ca une idée a creuser pour A1 detecter les deux premiers espaces et prochaine lettre en majuscule mettre en gras et rouge et pareil pour A2

si ca peut aider j'ai vu ceci sur un livre que j'ai un visual basic

X = InStr(InStr([A1], " ") + 2, [A1], " ")

Bon je te l'accorde c'est pas gagner,
a plus tard
ray
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
13 mai 2009 à 10:25
Salut Mike , forum,

Bon je voulais juste savoir si c'est jouable ou pas notre histoire de deuxième lettre gras et rouge

A bientot de te relire

Merci bonne journée
Raymond
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 09:03
Salut Mike, forum

C'est pas gentil de laisser tomber sans le dire, c'est pas grave je vais me débrouiller autrement

Merci tout de mème

Bonne journée
Raymond
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 293
14 mai 2009 à 10:40
Bonjour,

Bonjour,
je ne pense pas que Mike-31 est laissé tomber.....
Faut être gentil ... c'est une qualité qui est rare et donc qui enrichit.


pour ton affaire je ferai comme ça!
j'ai supposé que tu avais une date donc j'utilise x = Format([A1].Value, "dddd dd mmmm yyyy")
mais si tu as une chaine de texte tu mets x=[A1].value

j'ai fais le premier c'est le même principe pour le deuxième voir plus facile.


Sub GrasRouge()
Dim depart As Integer
Dim x As String
x = Format([A1].Value, "dddd dd mmmm yyyy")
'ou
' x=[A1].value ' si chaine texte
depart = 1 ' pour la position des charactères


With [A1].Characters(Start:=depart, Length:=1).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With
nbspc = 0 ' pour compter les espaces
For depart = 1 To Len(x)
If Mid(x, depart, 1) = " " Then
nbspc = nbspc + 1
End If
If nbspc > 1 Then Exit For
Next
depart = depart + 1 ' on avance de 1 charactère après le deuxième espace


' on applique le format...
With [A1].Characters(Start:=depart, Length:=1).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With



End Sub
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 11:49
Salut Bidouilleur

Merci pour ta réponse, pour Mike rien ne va a penser mal, je ne suis pas comme ca, et en plus je ne me permettrai pas d'etre insolent envers une personne qui m'aides, mais ca m'ai arriver plein de fois qu'on laisse tomber mème une fois c'était pourtant quasiment fini.

bon je vais essayer ton code tantot.

Merci beaucoup bonne journée a toi ainsi qu'a Mike.

Bye Raymond
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 16:28
Salut bidouilleur, forum

J'ai essayer mais désoler ca ne fonctionne pas sur mon excel 2007

je vais bidouiller avec ton et celui de Mike qui ne marche pas non plus hihihihi

je blague, mais c'est bon pour la formation

Merci a toi

bonne fin d'apres midi

Raymond
0

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

Posez votre question
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
14 mai 2009 à 15:10
Salut,

Merci Bidouilleu_R d'avoir pris le relai, et excuse dudulray un petit imprévu, sans vouloir ajouter une couche à ce qui à été dit, il faut savoir que nous sommes bénévoles, et sur un forum il y a toujours un ami qui apporte son concours dans les limites de ses connaissances et de sa disponibilité

si le code de notre ami Bidouilleu_R ne rempli pas tes attentes regardes celui que je te propose

Sub essai()
Dim i&
Dim F As Range
For Each F In [A1:F10] 'Plage à traiter
F.Characters(1, 1).Font.Bold = True
F.Characters(1, 1).Font.ColorIndex = 3
For i = 2 To Len(F)
Select Case Asc(Mid(F, i, 1))
Case 65 To 90
If Asc(Mid(F, i - 1, 1)) = 32 Then
F.Characters(i, 1).Font.Bold = True
F.Characters(i, 1).Font.ColorIndex = 3
End If
End Select
Next
Next
End Sub


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 15:21
Salut Mike, forum

Pas de souci, j'ai juste dit ca du style (qu'est ce que tu fous) rien de méchant rassure toi, mais je comprends bien ausi votre bénévola et je respecte.

Mais des fois c'est très long et ca engendre une perte de temps inutile, je vais essayer le code d'ici peu te redit si ok

Merci a toi et pour le code, bonne après midi.

Raymond
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 16:31
Salut Mike

Ca ne marche pas non plus, lit svp la reponse faite a bidouilleur, j'ai vu le code sur Excel Downloads j'ai essayer et ca fonctionne mais que pour la premiere lettre

j'y retourne quelques fois que j'ai mal compris

Bonne fin d'apres midi a toi et merci, l'essentiel c'est que ca marche

Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
14 mai 2009 à 16:48
RE,

si ton fichier ne contient pas de données confidentielles mets le sur le forum avec ce lien

https://www.cjoint.com/

ou mets le lien généré sur un message privé en cliquant sur mon pseudo et message privé

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 17:04
Re Mike, forum

C'est bon ca marche, autant pour moi car j'avais mal lu qu'il fallait que les premieres lettres de chaque mot soit déja en majuscule mais la c'est OK

Merci a toi probleme résolu ouf j'ai eu bien du mal sur ce coup la

passe une bonne soirée et encore merci

Raymond
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 293
14 mai 2009 à 18:38
Salut les gars,

j'avais essayé de faire simple.

mais je trouve ton code très interessant, du moins pas classique.
je crois que je vais te le piquer, oui c'est dit je le pique. ... et merci.

Bon week end.
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
14 mai 2009 à 18:53
Re,

C'est fait pour ça, ce qui est intérêssant, c'est que l'on peut choisir la lettre et éventuellement les majuscules ou le chiffre que l'on souhaite mettre en évidence exemple les F ce code mettra les F majuscule en évidence

Sub essai()
Dim i&
Dim c As Range
For Each c In [A1:F10] 'Plage à traiter
For i = 2 To Len(c)
Select Case Asc(Mid(c, i, 1))
Case 70
If Asc(Mid(c, i - 1, 1)) = 32 Then
c.Characters(i, 1).Font.Bold = True
c.Characters(i, 1).Font.ColorIndex = 3
End If
End Select
Next
Next
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009 > Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024
14 mai 2009 à 19:01
Salut Mike
je viens de poster car encore un petit souci
mais essaie ca marche

Ce code est senser faire défiler le texte dans A1 pendant quelques secondes puis une tempo de 3 secondes et c'est le texte de la cellule A2 qui défile.

Et bien ca défile mais les majuscules qui sont en gras et rouge ne le sont plus. pourquoi sniff sniff

Raymond



Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Sub Tst()
Dim X, Z, O As Byte

[A1] = Application.Proper(Format(Date, "dddd dd mmmm yyyy "))
[A2] = "Semaine: " & DatePart("ww", Date, vbMonday) & " " & _
DatePart("y", Date, vbMonday) & " ième Jour de l" & Chr(180) & "année" & " "

With [A1:A2].Characters(1).Font
.FontStyle = "gras"
.ColorIndex = 3
End With

With [A1:A2].Characters(2).Font
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With

X = InStr(InStr([A1], " ") + 2, [A1], " ") 'Détecte 2 espaces dans la date
Z = InStr(InStr([A2], " ") + 12, [A2], " ") 'Détecte pour le J de jour

With [A1].Characters(X + 1).Font 'Pour deuxième majuscule Mois
.FontStyle = "Gras"
.ColorIndex = 3
End With

With [A2].Characters(Z + 1).Font 'Pour premier caractere jour en rouge
.FontStyle = "Gras"
.ColorIndex = 3
End With

With [A2].Characters(Z + 2).Font 'Pour apres premier caractere jour en noir
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With

With [A1].Characters(X + 2).Font
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With

'End 'Pour ne pas effectuer le défilement

'*** CODE POUR LE DEFILEMENT DES DEUX MESSAGES CELLULES A1/A2
[A1].Font.ColorIndex = 0
[A1].Font.Bold = False

Dim C As Range: Dim D As Range: Dim i
Set C = [A1]

For i = 1 To 40 'Durée de rotation de la date
C = Right(C, Len(C.Value) - 1) + Left(C, 1)
Sleep 150 'Vitesse de rotation
Next i

[A1] = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))

With [A1].Characters(1).Font
.FontStyle = "gras"
.ColorIndex = 3
End With

With [A1].Characters(2).Font
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With

X = InStr(InStr([A1], " ") + 2, [A1], " ") 'Détecte 2 espaces dans la date

With [A1].Characters(X + 1).Font 'Pour deuxième majuscule Mois
.FontStyle = "Gras"
.ColorIndex = 3
End With

With [A1].Characters(X + 2).Font
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With

Application.Wait (Now + TimeValue("00:00:03")) 'Tempo de 3 secondes

[A2].Font.ColorIndex = 0
[A2].Font.Bold = False
Set D = [A2]

For i = 1 To 40 'Durée de rotation semaine et jour
D = Right(D, Len(D.Value) - 1) + Left(D, 1)
Sleep 150 'Vitesse de rotation
Next i

[A2] = "Semaine: " & DatePart("ww", Date, vbMonday) & " " & _
DatePart("y", Date, vbMonday) & " ième Jour de l" & Chr(180) & "année"

With [A2].Characters(1).Font
.FontStyle = "gras"
.ColorIndex = 3
End With

With [A2].Characters(2).Font
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With

With [A2].Characters(Z + 1).Font 'Pour premier caractere jour en rouge
.FontStyle = "Gras"
.ColorIndex = 3
End With

With [A2].Characters(Z + 2).Font 'Pour apres premier caractere jour en noir
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With
End Sub
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
14 mai 2009 à 19:04
Re,

Je vais manger si non ma moitié va me charpir et je vois cela après

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 19:40
RE Mike

J'ai essayer ton code ca marche je l'ai mis dans documentation perso, ca m'a donner une idée dans le fait que l'on peut choisir la lettre case 70 (F) je vais creuser ca demain

je vais manger egalement avant de prendre une tole par madame

A plus tard bonne soirée

Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
14 mai 2009 à 23:17
Re,

places ce codes dans un module et associes la macro test à un bouton


Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

Sub Test()
Dim X, Z, O As Byte
Dim c As Range: Dim D As Range: Dim i
[A1].Font.ColorIndex = 0
[A1].Font.Bold = False
[A1] = Application.Proper(Format(Date, "dddd dd mmmm yyyy "))
Set c = [A1]
For i = 1 To 40 'Durée de rotation de la date
c = Right(c, Len(c.Value) - 1) + Left(c, 1)
Sleep 150 'Vitesse de rotation
Next i
[A1] = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))
Majuscule_En_Gras
Application.Wait (Now + TimeValue("00:00:03")) 'Tempo de 3 secondes
[A2].Font.ColorIndex = 0
[A2].Font.Bold = False
Set D = [A2]
For i = 1 To 40 'Durée de rotation semaine et jour
D = Right(D, Len(D.Value) - 1) + Left(D, 1)
Sleep 150 'Vitesse de rotation
Next i
[A2] = "Semaine: " & DatePart("ww", Date, vbMonday) & " " & _
DatePart("y", Date, vbMonday) & " ième Jour de l" & Chr(180) & "année"
Majuscule_En_Gras
End Sub

Sub Majuscule_En_Gras()
Dim i&
Dim c As Range
For Each c In [A1:F10] 'Plage à traiter
c.Characters(1, 1).Font.Bold = True
c.Characters(1, 1).Font.ColorIndex = 3
For i = 2 To Len(c)
Select Case Asc(Mid(c, i, 1))
Case 65 To 90
If Asc(Mid(c, i - 1, 1)) = 32 Then
c.Characters(i, 1).Font.Bold = True
c.Characters(i, 1).Font.ColorIndex = 3
End If
End Select
Next
Next
End Sub


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
15 mai 2009 à 08:21
Bonjour Mike, bonjour forum

J'ai essayer le code que tu me proposes mais meme erreur que dans le code (vois la réponse svp, faites a Myta)

Désoler de ne t'avoir répondu plus tot, préretraité, 57 ans, 35 ans de quarts, alors le soir pour moi c'est mort.

je vais retourner voir si je peut trouver d'ou provient l'erreur

Merci a toi bonne journée et bon W-end

Raymond
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
15 mai 2009 à 00:57
Salut le forum

Raymond, tu as la même solution de l'autre côté

Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

Sub Tst()

Dim I As Byte
Dim C As Range

[A1] = Application.Proper(Format(Date, "dddd dd mmmm yyyy")) & " "
Maj_Rouge ([A1])

[A2] = "La " & DatePart("y", Date, vbMonday) & " ième Journée" & _
" de la " & DatePart("ww", Date, vbMonday) & " ième Semaine. "
Maj_Rouge ([A2])

'*** Code pour le défilement du texte des cellules A1 et A2 ***

Sleep 1000

Set C = [A1]
For I = 1 To Len([A1]) * 2
C = Right(C, Len(C.Value) - 1) + Left(C, 1)
Maj_Rouge ([A1])
Sleep 100
Next I

Sleep 1000

Set C = [A2]
For I = 1 To Len([A2]) * 2
C = Right(C, Len(C.Value) - 1) + Left(C, 1)
Maj_Rouge ([A2])
Sleep 100
Next I

Set C = Nothing

End Sub

Sub Maj_Rouge(Cellule As Range)
Dim I As Byte
For I = 1 To Len(Cellule)
With Cellule
With .Characters(I).Font
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With
Select Case Asc(Mid(.Value, I, 1))
Case 65 To 90
With .Characters(I).Font
.FontStyle = "Gras"
.ColorIndex = 3
End With
End Select
With .Characters(I + 1).Font
.FontStyle = "Normal"
.ColorIndex = xlAutomatic
End With
End With
Next I
End Sub

Mytå
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
15 mai 2009 à 08:11
Bonjour Myta , forum

Tout d'abord merci pour le code que tu as refait, il ne marche pas me surligne en bleu le code
Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
et me mets Erreur de compilation:

Des constantes, chaines de longueur fixe,tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membres Public de modules d'objet.

J'apprends seul de chez seul, et je peux te dire que j'en ch.... a part quelques livres a la maison, ca ne vaut pas les explications d'un prof ou d'un coach, alors comme je n'ai ni l'un, ni l'autre et que je ne veux pas toujours solliciter les memes personnes, je suis donc bien content de trouver sur les forums des gens qui sont comme toi compréhensif et dévouer a aider ses semblables et de transférer le savoir.

Il ni a que comme ca que j'y arrive a peut pret a faire avancer mon programme, mais il faut bien commencer un jour.

Sinon je n'ai pas trouver pour l'erreur, malgré l'aide d'excel

Je te souhaite une excellente journée et un Bon W-end

Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
15 mai 2009 à 09:53
Salut,

Il doit y avoir un problème autre que le code par lui même, testes le fichier joint à récupérer avec ce lien et tiens nous au courant

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

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
15 mai 2009 à 12:34
Salut Mike salut forum

Dans un premier temps merci, ton code fonctionne bien avec la macro, tu lui a fait subir une cure d'amaigrissement, si tu en avais un pour moi, je suis preneur hihihihi.

(1) Par contre quand ca défile le rouge disparait des majuscules le temps du défilement, que peut' on faire a ce sujet, disons que je voudrai bien que ca défile tel que le texte est a l'origine dans la cellule

(2) Autre question, j'ai vu qu'on pouvait arrèter le défilement en cliquant dans une cellule de la feuille, juste le temps d'écrire puis on reclick et ca redéfile

c'est pas mal tout ca, encore merci et dit moi ce que tu en penses SVP

Bonne journée a toi

Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
15 mai 2009 à 13:30
Re,

Pour la cure d'amaigrissement du code, on pourrait encore le concentrer un petit peu, pour ta cure, autrefois les jeunes que nous étions disaient des gens corpulent ils sont gros, plus tard avec l’age nous disions ils ont un peu d’embonpoint et maintenant que l’âge nous rattrape il vaut mieux dire nous sommes confortable, rassure toi il vaut mieux faire envie que pitié.

Pour répondre à tes questions, il n’est pas possible de garder le format du texte gras et rouge de certaines lettres lors du défilement, ou il est tout gras ou tout rouge, mais l’ensemble du texte est identique.
J’ai une petite idée là-dessus, si j’arrive à faire quelque chose, je te le dirai

Pour ta deuxième question, lorsqu’on démarre un code macro, il est prioritaire et ne s’arrête qu’a la fin ou il faut prévoir dans le code une condition d’arrêt qui n’est pas ce qu’il y a de mieux.
Par contre on peut ajouter au code un déclenchement automatique toutes les x minutes et dans c’est intervalle il est possible de travailler sur la feuille ou d’arrêter le code


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
15 mai 2009 à 14:03
Re Mike

Merci pour les reponses c'est gentil a toi,

Je t'envoi un fichier trouver sur le net, concernant la possibilité d'arreter le defilement pour ecrire et reprendre comme expliquer dans ma question a ce sujet. Par contre je ne saurai, si ca devait marcher l'adapter au fichier de défilement.

Dit moi si tu as bien recu le fichier car c'est une premiere pour moi

Bien sur si tu peux faire marcher le defilement au complet ca serai génial car ca fait longtemps que je fouine sur les forums et j'ai jamais vu, ca mérite de l'encouragement, alors yes just do it, on y crois. je déconne bon courage tout de mème.

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

si besoin tu peux me joindre sur mon mail perso ca ne gene pas

te dit a plus tard merci Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
15 mai 2009 à 14:12
Re,

Ton lien est vide, pour envoyer une pièce jointe, cliques sur le lien ci-dessous

https://www.cjoint.com/
Fais parcourir, sélectionnes le fichier à envoyer, clic sur créer le lien/Autoriser l’accès et colle le lien généré en haut de ta feuille sur un post.

Si je comprends bien tu souhaites que le défilement soit cyclique toutes les X minutes avec possibilité d’arrêt à la fin d’un cycle

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
15 mai 2009 à 14:41
Re Mike

ok pour l'envoi de fichier suis pas performant sur ce coup la, par contre va voir svp sur le forum excel downloads ou j'avais également demander des renseignements pour parvenir a faire marcher tout ca.

je viens de repondre le code est un peu compliquer pour moi

le fichier s'appelle "Perds la couleur au défilement" eliot.raymond Mr PMO2 a répondu

l'essentiel c'est d'avancer

et redit moi chez moi ca marche, vois mais comme tu es spcécialiste des cures il y surement quelque chose a faire


A plus tard Mike

Raymond l'union fait la force et l'oignon la soupe
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
15 mai 2009 à 15:43
Re,

J'ai vu le code qui t’a été proposé, il est complexe et marche bien et je connais bien l'intervenant que j’apprécie, mais par respect et comme tous nous le ferions, je ne peux modifier un code proposé sur un autre forum, il est la propriété de son auteur, contraire à la charte des forum et loi informatique

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
15 mai 2009 à 18:02
Re salut Mike forum

Merci pour le coup de main, j'ai apprécier ainsi que ta symphatie, pour le code t'inquiète pas je comprends bien.
Je vais intégrer le code a mon programme car il fonctionne très bien et garder les autres pour une éventuelle utilisation.

Je n'ai toujours pas compris comment il a fait, mais ca marche c'est le principal.

Te dit surement a une autre fois
je te souhaite une bonne soirée ainsi qu'un bon W-end

Bye Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104 > dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
15 mai 2009 à 18:34
Demande à Raymond de t'expliquer son code, à défaut je m'y pencherai, c'est pas très compliqué, sans pour autant le modifier, ce ne serait pas bien

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009 > Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024
15 mai 2009 à 19:14
Re Mike

Tu as raison je vais demander a Mr PMO2 s'il veut bien commenter son code afin d'en comprendre le déroulement.

Cependant j'ai agrandir la taille de la date en A1 donc j'ai mis 12 j'ai fait défiler ca saccade beaucoup
si tu as le fichier fait un essai, tu verras.

voila c'est tout

bonne soirée et ne te mets en retard pour le souper si tu veux rester parmi les vivants ihihihi je blague bien sur

je ne vais pas tarder non plus madame a déja la tète dans les épaules , pas bon ca.

Salut Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
15 mai 2009 à 21:43
Re,

C'est normal, pour faire clignoter une image ou une cellule etc ... comme pour le défilement on se sert du cadencé et donc l'avancement est saccadé et plus la taille est importante et plus c'est visible

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
16 mai 2009 à 12:13
Bonjour Mike bonjour Forum

Merci pour ta réponse, c'est sympa, j'ai incorporer le code de défilement, ca marche bien.

Par contre en essayant j'ai complètement zapper pour la question suivante que j'ai poser également a Mr PMO2
mais pas de réponse a ce sujet.

Peut' on arrèter le défilement en double-cliquant dans { une cellule n'étant pas concernée } le temps d' écrire la ou on a besoin et de faire repartir le défilement après en re-double-cliquant a nouveau.

Il ne s'agit pas de modifier le code mais l'arrèter juste le temps d'écrire ailleurs.

Merci d'avance me reste plus que ca a mettre en place et s'en ai fini du défilement.

Bonne journée a toi et merci pour les coups de mains.

Raymond
0
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
16 mai 2009 à 19:27
Salut,

Le peu que j'ai regardé ce code, il n'est pas possible d'arrêter le déroulement de la macro ou de changer de feuille, comme je te l’ai déjà dit le déroulement d’une macro est prioritaire ou dans le code il faut prévoir des accès.
Le seul moyen est de mettre en erreur le code en faisant Echap et répondre Fin parce que si tu réponds Débogage, le code ce verrouille


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
dudulray Messages postés 21 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 17 mai 2009
17 mai 2009 à 14:34
Salut Mike, forum

Ok bien recu le message et je t'en remercie Mike, Mr PMO2 m'a répondu, je t'invite stp a voir si tu veux le dernier code qu'il me propose par rapport a ma question qui fonctionne sur sa version d'excel 2003, chez moi sur 2007, tout ne fonctionne pas comme prévu et je n'ai plus la version 2003 pour confirmer le bon déroulement du code, vois également ma réponse.

Peut ètre te serai t'il possible de voir ce qui cloche pour que cela fonctionne en V 2007.

Dommage si près du but redit moi svp quand tu as le temps.

Bon Dimanche a toi et a plus tard

Raymond
0