Sélectionner une cellule en VBA
Paascal
Messages postés
27
Statut
Membre
-
Paascal Messages postés 27 Statut Membre -
Paascal Messages postés 27 Statut Membre -
Bonjour,
je veux faire une macro qui sert à sélectionner une cellule
(et qui fasse une certaine action selon la valeur de cette cellule)
voici les macros que j'utilise
Sub haut()
'
' haut Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
Range("A14").Value = Range("A14").Value + 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
Sub bas()
'
' bas Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Range("A14").Value = Range("A14").Value - 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
Sub gauche()
'
' gauche Macro
'
' Touche de raccourci du clavier: Ctrl+j
'
Range("A15").Value = Range("A15").Value - 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
Sub droite()
'
' droite Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Range("A15").Value = Range("A15").Value + 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
je veux faire une macro qui sert à sélectionner une cellule
(et qui fasse une certaine action selon la valeur de cette cellule)
voici les macros que j'utilise
Sub haut()
'
' haut Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
Range("A14").Value = Range("A14").Value + 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
Sub bas()
'
' bas Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Range("A14").Value = Range("A14").Value - 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
Sub gauche()
'
' gauche Macro
'
' Touche de raccourci du clavier: Ctrl+j
'
Range("A15").Value = Range("A15").Value - 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
Sub droite()
'
' droite Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Range("A15").Value = Range("A15").Value + 1
x = Range("a15").Value
y = Range("a14").Value
End Sub
1 réponse
-
Je viens de trouver
le code partiel de ma macros est
Sub haut()
'
' haut Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
Range("A14").Value = Range("A14").Value - 1
x = Range("a15").Value
y = Range("a14").Value
Cells(y, x).Select
End Sub
Sub bas()
'
' bas Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Range("A14").Value = Range("A14").Value + 1
x = Range("a15").Value
y = Range("a14").Value
Cells(y, x).Select
End Sub
Sub gauche()
'
' gauche Macro
'
' Touche de raccourci du clavier: Ctrl+j
'
Range("A15").Value = Range("A15").Value - 1
x = Range("a15").Value
y = Range("a14").Value
Cells(y, x).Select
End Sub
Sub droite()
'
' droite Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Range("A15").Value = Range("A15").Value + 1
x = Range("a15").Value
y = Range("a14").Value
Cells(y, x).Select
End Sub
