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
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
A voir également:
- Majuscule en Gras et Rouge
- Ecrire en gras sur whatsapp - Guide
- É majuscule - Guide
- Mettre un texte en majuscule - Guide
- Dram led rouge - Forum Matériel & Système
- Trouver numéro liste rouge gratuitement ✓ - Forum Mobile
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
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)
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)
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
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)
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)
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
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
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
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
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)
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)
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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)
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)
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
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
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
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
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
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
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
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)
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)
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
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
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
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
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.
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.
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
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)
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)
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
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
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
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
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)
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)
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
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
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
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
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)
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)
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
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
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
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
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å
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å
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
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
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
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
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)
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)
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
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
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
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
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)
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)
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
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
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
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
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)
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)
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
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
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
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
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)
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)
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
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
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
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
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)
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
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
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
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
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
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)
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)
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
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
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
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
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)
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)
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
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
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
12 mai 2009 à 13:33
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