décryptage langage VBA

[polyteis]

Bonsoir,
j'ai trouver sur internet un DV ALPHABET, que je veux transposer dans un fichier.
je n'arrive pas a déchiffrer le vocabulaire vba qui suit .


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A100], Target) Is Nothing Then SendKeys "%{DOWN}"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A100], Target) Is Nothing Then
If Len(Target) = 1 Then SendKeys "%{DOWN}"
End If
End Sub


y a t il une bonne âme pour m'aiguiller
merci par avance

 

[Grand Chaman Excel]

Re : décryptage langage VBA

Bonjour polyteis,

Voici la traduction :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect([A2:A100], Target) Is Nothing Then SendKeys "%{DOWN}"
 End Sub

Lorsqu'il y a un changement de cellule dans la feuille, si la cellule active (target) est à l'intérieur de la plage A2:A100 alors effectuer la combinaison de touches "ALT + flèche par en bas"
Not Intersect([A2:A100], Target) Is Nothing veut dire que l'intersection entre A2:A100 et la cellule Target n'est pas "vide". Exemple : si Target = B10, alors l'intersection est "vide" et la condition n'est pas remplie.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([A2:A100], Target) Is Nothing Then
 If Len(Target) = 1 Then SendKeys "%{DOWN}"
 End If
 End Sub

Lorsqu'il y a un changement dans le contenu d'une cellule dans la feuille, si la cellule active (target) est à l'intérieur de la plage A2:A100 et que le nombre de caractères = 1 alors effectuer la combinaison de touches "ALT + flèche par en bas"

Il me semble qu'il risque d'y avoir un conflit entre ces 2 fonctions...

En espérant que cela t'éclaire un peu...

A+

 

[polyteis]

Re : décryptage langage VBA

bonjour,
Merci pour ton décryptage
très bonne journée