Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Régis,
Tu peux essayer ceci :
'-------------------------- Sub TrouverAdresseCelluleEnItalique()
Dim c As Range,A as integer With Worksheets("Feuil1") 'à déterminer For Each c In .Range("A1:A5") For a = 1 To Len(c) If c.Characters(a, 1).Font.Italic = True Then Message = Message & c.Address & " , " Exit For End If Next Next End With MsgBox "Voici les adresses de cellules trouvées : " & vbCrLf & _ Message
End Sub '--------------------------
Salutations!
"Régis" a écrit dans le message de news: Bonsoir,
Existe t-il un moyen d'identifier d'une façon quelconque une cellule dont tout ou partie du texte qu'elle contient est en italique ?
Merci d'avance pour votre réponse
Bonjour Régis,
Tu peux essayer ceci :
'--------------------------
Sub TrouverAdresseCelluleEnItalique()
Dim c As Range,A as integer
With Worksheets("Feuil1") 'à déterminer
For Each c In .Range("A1:A5")
For a = 1 To Len(c)
If c.Characters(a, 1).Font.Italic = True Then
Message = Message & c.Address & " , "
Exit For
End If
Next
Next
End With
MsgBox "Voici les adresses de cellules trouvées : " & vbCrLf & _
Message
End Sub
'--------------------------
Salutations!
"Régis" <Rgis@discussions.microsoft.com> a écrit dans le message de news: 6D7FF034-1ACC-4A2C-AAD2-25ADD12B8B67@microsoft.com...
Bonsoir,
Existe t-il un moyen d'identifier d'une façon quelconque une cellule dont
tout ou partie du texte qu'elle contient est en italique ?
'-------------------------- Sub TrouverAdresseCelluleEnItalique()
Dim c As Range,A as integer With Worksheets("Feuil1") 'à déterminer For Each c In .Range("A1:A5") For a = 1 To Len(c) If c.Characters(a, 1).Font.Italic = True Then Message = Message & c.Address & " , " Exit For End If Next Next End With MsgBox "Voici les adresses de cellules trouvées : " & vbCrLf & _ Message
End Sub '--------------------------
Salutations!
"Régis" a écrit dans le message de news: Bonsoir,
Existe t-il un moyen d'identifier d'une façon quelconque une cellule dont tout ou partie du texte qu'elle contient est en italique ?
Merci d'avance pour votre réponse
Régis
Hello Michel,
Super, ça marche aux p'tits oignons. Un tout grand merci
Amicalement,
Bonjour Régis,
Tu peux essayer ceci :
'-------------------------- Sub TrouverAdresseCelluleEnItalique()
Dim c As Range,A as integer With Worksheets("Feuil1") 'à déterminer For Each c In .Range("A1:A5") For a = 1 To Len(c) If c.Characters(a, 1).Font.Italic = True Then Message = Message & c.Address & " , " Exit For End If Next Next End With MsgBox "Voici les adresses de cellules trouvées : " & vbCrLf & _ Message
End Sub '--------------------------
Salutations!
"Régis" a écrit dans le message de news: Bonsoir,
Existe t-il un moyen d'identifier d'une façon quelconque une cellule dont tout ou partie du texte qu'elle contient est en italique ?
Merci d'avance pour votre réponse
Hello Michel,
Super, ça marche aux p'tits oignons. Un tout grand merci
Amicalement,
Bonjour Régis,
Tu peux essayer ceci :
'--------------------------
Sub TrouverAdresseCelluleEnItalique()
Dim c As Range,A as integer
With Worksheets("Feuil1") 'à déterminer
For Each c In .Range("A1:A5")
For a = 1 To Len(c)
If c.Characters(a, 1).Font.Italic = True Then
Message = Message & c.Address & " , "
Exit For
End If
Next
Next
End With
MsgBox "Voici les adresses de cellules trouvées : " & vbCrLf & _
Message
End Sub
'--------------------------
Salutations!
"Régis" <Rgis@discussions.microsoft.com> a écrit dans le message de news: 6D7FF034-1ACC-4A2C-AAD2-25ADD12B8B67@microsoft.com...
Bonsoir,
Existe t-il un moyen d'identifier d'une façon quelconque une cellule dont
tout ou partie du texte qu'elle contient est en italique ?
Super, ça marche aux p'tits oignons. Un tout grand merci
Amicalement,
Bonjour Régis,
Tu peux essayer ceci :
'-------------------------- Sub TrouverAdresseCelluleEnItalique()
Dim c As Range,A as integer With Worksheets("Feuil1") 'à déterminer For Each c In .Range("A1:A5") For a = 1 To Len(c) If c.Characters(a, 1).Font.Italic = True Then Message = Message & c.Address & " , " Exit For End If Next Next End With MsgBox "Voici les adresses de cellules trouvées : " & vbCrLf & _ Message
End Sub '--------------------------
Salutations!
"Régis" a écrit dans le message de news: Bonsoir,
Existe t-il un moyen d'identifier d'une façon quelconque une cellule dont tout ou partie du texte qu'elle contient est en italique ?
