Sélectionner une cellule en VBA
Paascal
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
Paascal Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Paascal Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Sélectionner une cellule en VBA
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
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
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