Discussion :

[touche_a_tout]

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:

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

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
ThisWorkbook.Sheets("registre").Activate
Cells(Z, 1).Select
Selection.Value = GED_N1
Z = Z + 1

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.
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

[Jean-Philippe André]

Salut,

la procédure qui est reconnue et déaclenchée par Excel est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

Ta variable Z en question, est-elle stockable dans une cellule ou un objet ?

[Transitoire]

Bonjour, au risque de me tromper, vu le manque de code je ferais quelque chose ressemblant à cela:

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
ThisWorkbook.Sheets("registre").Activate
Cells(Z, 1).Select
With activeCell
     .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
 End With
Selection.Value = GED_N1
Z = Z + 1  ' en sachant qu'il doit peut être y avoir une boucle

Toutefois, je ne peut rien vérifier???
Cordialement

[touche_a_tout]

Merci Jean-Philippe André et Transitoire,
Si je pige bien, c'est mon Z dans la parenthèse qui fait cafouiller. Le plus simple est de créer une feuille exprès pour ce test, feuille sur laquelle Z n'aura rien à faire.
Dans le post de Transitoire, je ne comprends pas quel code manque. Mais ça ne m'empêche pas de continuer sans Z !
(mais non sans aide, votre aide, merci !).
Cordialement,
touche_a_tout

[touche_a_tout]

Re,
Je n'ai pas dû bien comprendre, car ça ne fonctionne toujours pas. Tu me dis:

la procédure qui est reconnue et déclenchée par Excel est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 End Sub

J'ai compris que je devais mettre mes 10 et quelques lignes de code entre "Private Sub..." et "End Sub" (sauf que j'ai oublié d'incrémenter d dans mon code du post No 1) mais ça ne suffit pas.
Comme la sub principale sélectionne une cellule dans la feuille concernée, on a l'événement "SelectionChange" qui devrait lancer la procédure événementielle, mais elle ne le fait pas, j'ai toujours mon texte en colonne.
Est-ce que je dois préciser comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Thisworkbook.Sheets("test_cell").Range("A" & d)

Pardon d'être aussi balbutiant, hélas.
Cordialement
touche_a_tout

[Transitoire]

bonsoir, la deuxième procédure, ci dessous est en fait un bout de code avec des choses qui se passent avant et d'autres qui se passent après. Et on ignore ce qui se passe???

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

Par contre je ne comprend pas, lorsque vous dites que votre texte reste en colonne? Comment souhaiteriez vous qu'il fasse? Il y a des choses qui m'échappent.
Parceque lors de l'entrée des données, le déplacement de la sélection peut -être modifié par les préférences d'excel par : préférences/Edition ou aussi par procédure.

Cordialement