Sélectionner une cellule en VBA

Fermé

Paascal Messages postés 26 Date d'inscription jeudi 23 mars 2017 Statut Membre Dernière intervention 6 décembre 2017 - 6 nov. 2017 à 18:17
Paascal Messages postés 26 Date d'inscription jeudi 23 mars 2017 Statut Membre Dernière intervention 6 décembre 2017 - 6 nov. 2017 à 18:24

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

A voir également:

Sélectionner une cellule en VBA
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Vba l'indice n'appartient pas à la sélection - Forum VB / VBA

1 réponse

Réponse 1 / 1

Paascal Messages postés 26 Date d'inscription jeudi 23 mars 2017 Statut Membre Dernière intervention 6 décembre 2017
6 nov. 2017 à 18:24

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

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

VBA Excel : sélection d'une plage variable

VBA Selection jusqu'a derniere cellule pleine

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters