Bonjour,
En vue d'un test, j'écris dans une cellule d'une feuille ad hoc les valeurs successives d'une variable string mais elles s'écrivent par défaut à la verticale dans la cellule. Sur la base d'un tutoriel de Silky Road ("Les événements dans la feuille de calcul Excel", merci), j'ai écrit une procédure événementielle qui, quand la cellule est sélectionnée, est censée changer son format pour annuler le retour à la ligne, mais ça ne marche pas. J'ai fait diverses modifcations, sans succès. Voici mon code:
Et voici les lignes qui devraient déclencher la macro, dans la procédure principale:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Sub Worksheet_SelectionChange(ByVal Target As Range, Z) Dim d As Integer d = Z 'If Target = ThisWorkbook.Sheets("registre").Range("A" & d) Then With Range("A" & d) .HorizontalAlignment = xlGeneral .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With 'End if End Sub
Z est une variable de la proc principale qui joue un autre rôle sur cette même feuille "registre" et je veux éviter que les données s'écrasent les unes les autres.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 ThisWorkbook.Sheets("registre").Activate Cells(Z, 1).Select Selection.Value = GED_N1 Z = Z + 1
Je n'ai jamais bien maîtrisé les proc événementielles et je remercie d'avance celui ou celle qui me dépatouiilera de celle-ci.
Cordialement
touche_a_tout
Partager