Code evenementiel

[anthoYS]

Bonjour,

Je souhaite en réalité alterner une ligne sur deux ou si je souligne le dernier caractère sur la ligne dite "1" et de la première colonne (E), sur cette même ligne en (J), le dernier caractère qui sera saisi devra adapter le même formalisme, c'est-à-dire se souligner automatiquement. Pareil pour la ligne dite "2", ou là il s'agit d'un double-soulignement.

Ce sujet va dans le droit fil de celui que j'ai ouvert hier, https://www.excel-downloads.com/threads/caractere-en-couleur-selon-condition.110160/

Alors, je ne sais pas si un code évenementiel suffira,ou s'il faut insérer une macro.

A vous de me le dire, car je n'en ai aucune idée,

merci.

 

[Cousinhub]

Re : Code evenementiel

Bonjour,

modifie ton code comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, Union(Columns(5), Columns(10))) Is Nothing Then
        If Len(Target) > 0 Then
            Select Case Target.Column
                Case 10
                    If Right(Target, 1) = 9 Then _
                        Target.Characters(Len(Target), 1).Font.ColorIndex = 42
                Case 5
                    If Target.Row Mod 6 = 0 And Right(Target, 1) = "K" Then _
                        Target.Characters(5, 1).Font.ColorIndex = 42
                    If (Target.Row + 2) Mod 6 = 0 And Right(Target, 1) = "e" Then _
                        Target.Characters(5, 1).Font.ColorIndex = 42
                    If Target.Characters(5, 1).Font.Underline = _
                        xlUnderlineStyleDouble Then _
                        Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
                        xlUnderlineStyleDouble
                    If Target.Characters(5, 1).Font.Underline = _
                        xlUnderlineStyleSingle Then _
                        Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
                        xlUnderlineStyleSingle
            End Select
        End If
    End If
End If
End Sub

 

[anthoYS]

Re : Code evenementiel

Merci à toi encore.

 

[anthoYS]

Re : Code evenementiel

Autre précision s'il te plaît, comment rajouter un nombre avec le "9",
c'est à dire ou le carré "²". Est-ce possible. Savoir, le nombre "2" en exposant en plus du 9.
Ceci n'est pas valable?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, Union(Columns(5), Columns(10))) Is Nothing Then
        If Len(Target) > 0 Then
            Select Case Target.Column
                Case 10
                    If Right(Target, 1) = 9 Then _
                   [COLOR="White"] Or Right(Target, 1) = ² Then _[/COLOR]
                        Target.Characters(Len(Target), 1).Font.ColorIndex = 42
                Case 5
                    If Target.Row Mod 6 = 0 And Right(Target, 1) = "K" Then _
                        Target.Characters(5, 1).Font.ColorIndex = 42
                    If (Target.Row + 2) Mod 6 = 0 And Right(Target, 1) = "e" Then _
                        Target.Characters(5, 1).Font.ColorIndex = 42
                    If Target.Characters(5, 1).Font.Underline = _
                        xlUnderlineStyleDouble Then _
                        Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
                        xlUnderlineStyleDouble
                    If Target.Characters(5, 1).Font.Underline = _
                        xlUnderlineStyleSingle Then _
                        Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
                        xlUnderlineStyleSingle
            End Select
        End If
    End If
End If
End Sub

 

[Cousinhub]

Re : Code evenementiel

Bonsoir,

essaie :

If Right(Target, 1) = 9 Or Right(Target, 1) = Chr(178) Then _

 

[anthoYS]

Re : Code evenementiel

Impeccable, un grand merci.

 

[anthoYS]

Re : Code evenementiel

Re,

Navré j'ai un souci,

"Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des
classeurs sans macro :
Projet VB
Pour enregistrer un fichier avec ces fonctionnalités, cliquez sur non, puis
sélectionnez un type de fichier prenant en charge les ma ros dans la liste
Type de fichier.
Pour continuer à enregistrer en tant que classeur sans macro, cliquez sur oui."

Si je réponds Non, on boucle sans fin.

Que faire.

En outre quel est le but d'enregistrer une macro, comment faire, pendant l'enregistrement fin, et à quoi sert le raccourci créer?

Je m'y perd, merci encore.

 

[Cousinhub]

Re : Code evenementiel

Re,

Comme tu es sous 2007, lorsque tu enregistres ton fichier, il t'est proposé un dossier, un nom, et un type de fichier....

Par défaut, il te propose comme type de fichier :

Classeur Excel (*.xlsx)

Sélectionne le type :

Classeur Excel (prenant en charge les macros)(*.xlsm)

 

[anthoYS]

Re : Code evenementiel

Re,

Excuse moi, mais quand je rouvre le fichier le code dans VBA à disparu.

Je n'y comprends plus rien, c'est le m...

Désolé mais, c'est trop.

Merci encore

 

[Cousinhub]

Re : Code evenementiel

Re,

tu avais un fichier qui fonctionnait, avec les codes précédents.....

Maintenant, tu n'as plus rien????????


Tu as autorisé les macros, sous 2007?

 

[anthoYS]

Re : Code evenementiel

Oui, pourtant le code y est mais quand je tape le "e" minuscule ou un "9" rien, ils ne se colorent plus. J'ai désactiver les macros sauf celles signés numériquement.

Que faire?

 

[Cousinhub]

Re : Code evenementiel

Re,

Dans les options de sécurités des macros, Sélectionne la 2 ème option :
"Désactiver toutes les macros avec notifications"

Mes codes ne sont pas signés numériquement pour ce forum....

A l'ouverture, tu auras un message, en haut, au dessus des lettres de colonne

Tu cliques sur options, et tu actives....

 

[anthoYS]

Re : Code evenementiel

oK, j'ai trouvé merci beaucoup.

 

[anthoYS]

Re : Code evenementiel

Re bonjour à tous,

Le présent code à révélé des insuffisances qui doivent êtres comblés par le biais de modifications du présent code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, Union(Columns(5), Columns(10))) Is Nothing Then
        If Len(Target) > 0 Then
            Select Case Target.Column
                Case 10
                    If Right(Target, 1) = 9 Then _
                        Target.Characters(Len(Target), 1).Font.ColorIndex = 42
                Case 5
                    If Target.Row Mod 6 = 0 And Right(Target, 1) = "K" Then _
                        Target.Characters(5, 1).Font.ColorIndex = 42
                    If (Target.Row + 2) Mod 6 = 0 And Right(Target, 1) = "e" Then _
                        Target.Characters(5, 1).Font.ColorIndex = 42
                    If Target.Characters(5, 1).Font.Underline = _
                        xlUnderlineStyleDouble Then _
                        Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
                        xlUnderlineStyleDouble
                    If Target.Characters(5, 1).Font.Underline = _
                        xlUnderlineStyleSingle Then _
                        Target.Offset(0, 5).Characters(Len(Target.Offset(0, 5)), 1).Font.Underline = _
                        xlUnderlineStyleSingle
            End Select
        End If
    End If
End If
End Sub

Voir le fichier suivant qui présente les insuffisances du présent code, ainsi que les résultats souhaités en fonction de la saisi sur un seul et même onglet.

Merci à vous par avance et n'hésitez pas à me poser des questions constructives,

à bientôt, je vous attends!