décryptage langage VBA

polyteis · 21 Septembre 2012

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 · 21 Septembre 2012

Re : décryptage langage VBA

Bonjour polyteis,

Voici la traduction :

Code:

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.

Code:

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 · 22 Septembre 2012

Re : décryptage langage VBA

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

décryptage langage VBA

polyteis

XLDnaute Occasionnel

Grand Chaman Excel

XLDnaute Impliqué

polyteis

XLDnaute Occasionnel

Discussions similaires

décryptage langage VBA

polyteis

XLDnaute Occasionnel

Grand Chaman Excel

XLDnaute Impliqué

polyteis

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency