Rechercher "[" et changer l'orientation dans la cellule

Résolu

dhaze Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
dhaze Messages postés 109 Date d'inscription Statut Membre Dernière intervention - 9 avril 2015 à 07:59

Bonsoir,

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.

Afficher la suite

A voir également:

Rechercher "[" et changer l'orientation dans la cellule
Changer dns - Guide
Changer orientation ecran pc - Guide
Changer l'orientation d'une seule page word - Guide
Rechercher ou entrer l'adresse - Guide
Aller à la ligne dans une cellule excel - Guide

1 réponse

Réponse 1 / 1

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 953

Salut 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å

dhaze Messages postés 109 Date d'inscription Statut Membre Dernière intervention

C'était presque ça ;-)
Merci pour cette correction.

Bonne journée.
Lo.

Votre réponse