Adaptation d'une maco trouvé sur e cite faite par Mike-31
Résolu
mijean94
Messages postés
415
Date d'inscription
Statut
Membre
Dernière intervention
-
M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention -
M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J’ai trouver sur le Forum d'assistance informatique>Bureautique>Excel , le code si dessous
Modifié par Mike-31 le 19/05/2016 à 18:33
Il correspond à mon besoin, mais, j’aimerais pouvoir définir la première et dernière ligne à prendre en compte, avant de lancer la macro.
Pouvez vous me dire ce qu’il faut faire.
Merci pour vos réponses.
Cordialement
J’ai trouver sur le Forum d'assistance informatique>Bureautique>Excel , le code si dessous
Modifié par Mike-31 le 19/05/2016 à 18:33
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cel In ActiveSheet.UsedRange
If cel <> "" Then
Set M = cel.MergeArea
M.UnMerge
M.WrapText = True 'renvoie à la ligne
M.HorizontalAlignment = xlCenterAcrossSelection
M.Rows.AutoFit
M.Merge
M.HorizontalAlignment = xlGeneral 'facultatif bien sûr
End If
Next
End Sub
Il correspond à mon besoin, mais, j’aimerais pouvoir définir la première et dernière ligne à prendre en compte, avant de lancer la macro.
Pouvez vous me dire ce qu’il faut faire.
Merci pour vos réponses.
Cordialement
A voir également:
- Adaptation d'une maco trouvé sur e cite faite par Mike-31
- *31 - Guide
- É majuscule - Guide
- Où se trouve le presse-papier sur un téléphone portable - Guide
- Pourquoi ma tv ne trouve pas toutes les chaînes - Guide
- Comment trouver le mot de passe wifi sur son téléphone - Guide
