Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code evenementiel

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

anthoYS

XLDnaute Barbatruc
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.
 

Pièces jointes

Trier par date Trier par votes
Re : Code evenementiel

Bonjour,

modifie ton code comme ceci :

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
 
Vote positif 0 Vote négatif
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?

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 _
                   [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
 
Vote positif 0 Vote négatif
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.
 
Dernière édition:
Vote positif 0 Vote négatif
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....
 
Vote positif 0 Vote négatif
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 :

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!
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
160
sousou
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
367
Dégé59
D
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
1 K
A-F
A
X
  • Question Question
XL 2019 Plusieurs fonctions
Réponses
0
Affichages
1 K
xorf
X
A
  • Question Question
Autres Code VBA pour aller à la ligne du dessous
Réponses
8
Affichages
3 K
alain.pierrephie
A
G
  • Question Question
XL 2016 Comparer une valeur par rapport à un format défini.
Réponses
1
Affichages
810
Lolote83
L
D
  • Question Question
Microsoft 365 Compléter un tableau de suivi automatiquement et bien compliqué :-)
Réponses
1
Affichages
2 K
herve62
F
  • Résolu(e)
Microsoft 365 Macro VBA
2
Réponses
16
Affichages
3 K
Fofi1
F
D
  • Question Question
XL pour MAC Retraitement (trop complexe pour moi) d'une base de données
3 4 5
Réponses
74
Affichages
10 K
didcac
D
M
  • Résolu(e)
XL 2016 Message d'erreur aléatoire pour les utilisateurs réseau -Excel 2016
Réponses
11
Affichages
2 K
Melidan2006
M
H
  • Question Question
Nombre de lignes calculé par formule
Réponses
4
Affichages
2 K
harzer
H
  • Question Question
XL 2013 Modifier un code VBA existant.
Réponses
3
Affichages
984
luke3300
  • Question Question
XL 2013 Code Vba
Réponses
6
Affichages
3 K
Le_Troll_Du_27
F
  • Question Question
Suppression de lignes sous conditions
Réponses
4
Affichages
1 K
Robert
  • Question Question
VBA : saisie sans espace entre les termes de tout code
2
Réponses
18
Affichages
2 K
DoubleZero
K
  • Question Question
Regroupement de colonnes automatisé par macro VBA
Réponses
0
Affichages
3 K
kokosei
K
S
  • Question Question
Fonction MATCH() capricieuse (parfois marche, parfois bugge !)
Réponses
6
Affichages
1 K
Sebast
S
  • Question Question
Projet apprentissage langage informatique pour enfants de 8 à 18 ans.
Réponses
6
Affichages
2 K
bandolero
T
  • Question Question
Compréhension et réutilisation d'un code VBA
Réponses
5
Affichages
1 K
TgR
T
M
  • Question Question
Modification code incrémentation
2
Réponses
16
Affichages
2 K
melba
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…