Bonjour à tous,
voici mon problème : je possède un glossaire terminologique à 4 colonnes :
EN | Acronyme EN | FR | Acronyme FR
EN : terme/expression anglaise (ex: Federal Bureau of Investigation)
Acronyme EN : acronyme anglais (ex: FBI)
FR : traduction française (ex: Bureau fédéral d'investigation)
Acronyme FR : traduction française de l'acronyme (ex: BFI, ou rien car pas d'équivalent en français)
J'aimerais appliquer à toutes les colonnes une formule matricielle (ou faire tourner une macro) me permettant de repérer les cellules contenant au moins un mot en majuscules.
Par exemple, si une des cellules contient le texte : "armoire MF", j'aimerais qu'elle ressorte clairement (texte ou cellule formatté d'une couleur particulière). Si la cellule ne contient qu'un mot en majuscules (ex: FBI), il faudrait qu'elle ressorte également.
J'ai trouvé ces macros, mais elles ne fonctionnent que lorsque la cellule NE CONTIENT QUE DES MAJUSCULES :
Sub OnlyUpper()
Dim cell As Range
For Each cell In Selection
If cell.Value = UCase(cell.Value) Then
With cell
.Font.ColorIndex = 4 'make font color = green
.Offset(0, 1).Value = 1
End With
End If
Next
End Sub
Sub OnlyUpper2()
Dim cell As Range
For Each cell In Selection
If cell.Value = UCase(cell.Value) Then
cell.Offset(, 1) = 1
cell.Font.ColorIndex = 3 'make font color = red
End If
Next
End Sub
Quelqu'un saurait-il la modifier pour qu'elle marche lorsque la cellule contient également des minuscules ?
Merci d'avance,
Mathieu.
P.S. : si vous savez également comment effacer dans le même temps toutes les lignes pour lesquelles aucune cellule n'a été mise en couleur, je suis preneur !
voici mon problème : je possède un glossaire terminologique à 4 colonnes :
EN | Acronyme EN | FR | Acronyme FR
EN : terme/expression anglaise (ex: Federal Bureau of Investigation)
Acronyme EN : acronyme anglais (ex: FBI)
FR : traduction française (ex: Bureau fédéral d'investigation)
Acronyme FR : traduction française de l'acronyme (ex: BFI, ou rien car pas d'équivalent en français)
J'aimerais appliquer à toutes les colonnes une formule matricielle (ou faire tourner une macro) me permettant de repérer les cellules contenant au moins un mot en majuscules.
Par exemple, si une des cellules contient le texte : "armoire MF", j'aimerais qu'elle ressorte clairement (texte ou cellule formatté d'une couleur particulière). Si la cellule ne contient qu'un mot en majuscules (ex: FBI), il faudrait qu'elle ressorte également.
J'ai trouvé ces macros, mais elles ne fonctionnent que lorsque la cellule NE CONTIENT QUE DES MAJUSCULES :
Sub OnlyUpper()
Dim cell As Range
For Each cell In Selection
If cell.Value = UCase(cell.Value) Then
With cell
.Font.ColorIndex = 4 'make font color = green
.Offset(0, 1).Value = 1
End With
End If
Next
End Sub
Sub OnlyUpper2()
Dim cell As Range
For Each cell In Selection
If cell.Value = UCase(cell.Value) Then
cell.Offset(, 1) = 1
cell.Font.ColorIndex = 3 'make font color = red
End If
Next
End Sub
Quelqu'un saurait-il la modifier pour qu'elle marche lorsque la cellule contient également des minuscules ?
Merci d'avance,
Mathieu.
P.S. : si vous savez également comment effacer dans le même temps toutes les lignes pour lesquelles aucune cellule n'a été mise en couleur, je suis preneur !