Rechercher "[" et changer l'orientation dans la cellule
Résolu
Bonsoir,
J'ai un petit souci avec cette macro
C'est la recherche du caractère "[" qui semble poser problème...
Lo.
J'ai un petit souci avec cette macro
Sub Orientation_Entete_Colonne()
Dim Cellule As Object
Dim Entete_Colonne As Range
Set Entete_Colonne = Range(Cells(1, 1), Cells(1, 63))
For Each Cellule In Entete_Colonne
If Cellule.Value = "*[*" Then
Cellule.Orientation = xlVertical
End If
Next Cellule
End Sub
C'est la recherche du caractère "[" qui semble poser problème...
Lo.
1 réponse
-
ContributeurSalut le Forum
A tester :Sub Orientation_Entete_Colonne() Dim Cellule As Object Dim Entete_Colonne As Range Set Entete_Colonne = Range(Cells(1, 1), Cells(1, 63)) For Each Cellule In Entete_Colonne If InStr(Cellule.Value, "[") Then Cellule.Orientation = xlVertical End If Next Cellule End Sub
Mytå
