A voir également:
- Mise en forme
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau croisé dynamique - Guide
- Mise à jour pilote - Guide
- Mise a jour windows 10 - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
3 réponses
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
Modifié le 3 juil. 2020 à 12:07
Modifié le 3 juil. 2020 à 12:07
Bonjour,
pour moi, c'est impossible d'appliquer une MFC seulement pour une partie de texte dans la même cellule. C'est soit tout, soit rien !
Il y a peut-être une solution (VBA ?) qu'un autre membre pourra t'apporter...
pour moi, c'est impossible d'appliquer une MFC seulement pour une partie de texte dans la même cellule. C'est soit tout, soit rien !
Il y a peut-être une solution (VBA ?) qu'un autre membre pourra t'apporter...
Utilisateur anonyme
3 juil. 2020 à 12:22
3 juil. 2020 à 12:22
Bonjour
Avec une macro VBA (pas de moi !!, merci myDearFriend!)
Ouvrir le module Macro (Alt + F11)
Double click sur la Feuille, puis coller dans la partie droite et Enregistrer.
Option Explicit
Sub Traitement()
'myDearFriend! - www.mdf-xlpages.com
Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String
'A adapter en fonction du mot voulu ----------
'Et de la Plage voulue -----------------------
Set Plage = Sheets("Feuil1").Range("A1:Z2000")
LeMot = "Dupont"
' --------------------------------------------
With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub
Private Sub Modif(ByRef Cel As Range, LeMot)
Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
'Respecte la casse Majuscule/Minuscule -------
Pos = InStr(Pos + 1, T, LeMot)
' Ne tient pas compte des Majuscule/Minuscule-
' Pos = InStr(Pos + 1, T, LeMot[B], vbTextCompare[/B])
' --------------------------------------------
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 3 'rouge
End With
End If
Loop Until Pos = 0
End Sub
Bien enregistrer en Classeur avec macro (xlsm)
A+
Avec une macro VBA (pas de moi !!, merci myDearFriend!)
Ouvrir le module Macro (Alt + F11)
Double click sur la Feuille, puis coller dans la partie droite et Enregistrer.
Option Explicit
Sub Traitement()
'myDearFriend! - www.mdf-xlpages.com
Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String
'A adapter en fonction du mot voulu ----------
'Et de la Plage voulue -----------------------
Set Plage = Sheets("Feuil1").Range("A1:Z2000")
LeMot = "Dupont"
' --------------------------------------------
With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub
Private Sub Modif(ByRef Cel As Range, LeMot)
Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
'Respecte la casse Majuscule/Minuscule -------
Pos = InStr(Pos + 1, T, LeMot)
' Ne tient pas compte des Majuscule/Minuscule-
' Pos = InStr(Pos + 1, T, LeMot[B], vbTextCompare[/B])
' --------------------------------------------
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 3 'rouge
End With
End If
Loop Until Pos = 0
End Sub
Bien enregistrer en Classeur avec macro (xlsm)
A+
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
3 juil. 2020 à 14:58
3 juil. 2020 à 14:58
Il n'y a que VBA étant capable d'apporter une solution autonome.
Maintenant, plusieurs possibilités :
Soit tu intègres cette macro en suivant la procédure de macintosh
Soit tu le fais manuellement
Soit tu "déconcatenes"
à toi de voir ;)
Maintenant, plusieurs possibilités :
Soit tu intègres cette macro en suivant la procédure de macintosh
Soit tu le fais manuellement
Soit tu "déconcatenes"
à toi de voir ;)
