Macro remplacement
Anewday
Messages postés
1
Date d'inscription
vendredi 6 octobre 2006
Statut
Membre
Dernière intervention
6 octobre 2006
-
6 oct. 2006 à 14:47
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 6 oct. 2006 à 15:52
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 6 oct. 2006 à 15:52
A voir également:
- Macro remplacement
- Macro word remplacer texte ✓ - Forum Visual Basic 6
- Activer macro outlook - Forum VBA Office (Excel, Word ...)
- Macro excel ✓ - Forum Visual Basic 6
- Supprimer bouton macro excel ✓ - Forum VB.NET
- Excel-vba comment désactiver boutons Réduire, Agrandir et Fermer - Forum VBA Office (Excel, Word ...)
1 réponse
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
6 oct. 2006 à 15:52
6 oct. 2006 à 15:52
Salut
Tiens ceci est un debut, peu etre que cela peu t'aider.
Dim UnCell As Range
'Valeur de la cellule
Dim CellValue As String
'Doit on Mettre en gras
Dim HBold As Boolean
'Y a til TI dans la cellule
Dim TI As Boolean
ActiveSheet.Columns("A:A").Select
'Pour Chaque Cellule de la colonne A
For Each UnCell In Selection
'On recupere la valeur
CellValue = UnCell.Text
'Si les deux premier caracteres sont TI
If UCase (Mid(CellValue, 1, 2)) = "TI" Then
'Devra mettre en Gras
HBold = True
'On A trouve TI
TI = True
Else
'Sinon Pas de gras
TI = False
End If
'Si les deux premiers caracters sont SO => Pas de gras
If UCase (Mid(CellValue, 1, 2)) = "SO" Then HBold = False
'Si Gras
If HBold Then
'Si on a trouve TI alors pas Gras pour TI
If TI Then
'=> On commence alors au 3 ème caractere
UnCell.Characters(3).Font.Bold = True
Else
'Sinon toute la cellule est en gras
UnCell.Font.Bold = True
End If
End If
Next
<small> Coloration syntaxique automatique [AFCK]</small>
@+, Ju£i?n
Tiens ceci est un debut, peu etre que cela peu t'aider.
Dim UnCell As Range
'Valeur de la cellule
Dim CellValue As String
'Doit on Mettre en gras
Dim HBold As Boolean
'Y a til TI dans la cellule
Dim TI As Boolean
ActiveSheet.Columns("A:A").Select
'Pour Chaque Cellule de la colonne A
For Each UnCell In Selection
'On recupere la valeur
CellValue = UnCell.Text
'Si les deux premier caracteres sont TI
If UCase (Mid(CellValue, 1, 2)) = "TI" Then
'Devra mettre en Gras
HBold = True
'On A trouve TI
TI = True
Else
'Sinon Pas de gras
TI = False
End If
'Si les deux premiers caracters sont SO => Pas de gras
If UCase (Mid(CellValue, 1, 2)) = "SO" Then HBold = False
'Si Gras
If HBold Then
'Si on a trouve TI alors pas Gras pour TI
If TI Then
'=> On commence alors au 3 ème caractere
UnCell.Characters(3).Font.Bold = True
Else
'Sinon toute la cellule est en gras
UnCell.Font.Bold = True
End If
End If
Next
<small> Coloration syntaxique automatique [AFCK]</small>
@+, Ju£i?n