OVH Cloud OVH Cloud

exécution d'une macro suivant la valeur d'une cellule

3 réponses
Avatar
Philippe
Bonsoir à tous
Je souhaiterai savoir si il est possible exécuter une macro automatiquement
suivant la valeur d'une cellule.
J'aimerai pouvoir faire défiler vers le bas ma feuille de calcul afin de
voir apparaître systématiquement la dernière cellule saisie.

Merci à tous

Phil

3 réponses

Avatar
LSteph
Bonsoir Philipe,
la dernière: en bas à droite

oui ex ici si b2 = 8

Private Sub Worksheet_Change(ByVal Target As Range)
If [b2] <> 8 Then Exit Sub
ActiveCell.SpecialCells(xlLastCell).Select
End Sub

'lsteph


"Philippe" a écrit dans le message de news:
ut%
Bonsoir à tous
Je souhaiterai savoir si il est possible exécuter une macro
automatiquement
suivant la valeur d'une cellule.
J'aimerai pouvoir faire défiler vers le bas ma feuille de calcul afin de
voir apparaître systématiquement la dernière cellule saisie.

Merci à tous

Phil




Avatar
Philippe
Salut Steph
Impossible de lancer quoi que ce soit en copiant texto ce que tu proposes.
Cette macro se lance t'elle dès que la cellule b2 contient 8 ?
(automatiquement)

Merci de ton aide

Phil


"LSteph" a écrit dans le message de
news:
Bonsoir Philipe,
la dernière: en bas à droite

oui ex ici si b2 = 8

Private Sub Worksheet_Change(ByVal Target As Range)
If [b2] <> 8 Then Exit Sub
ActiveCell.SpecialCells(xlLastCell).Select
End Sub

'lsteph


"Philippe" a écrit dans le message de news:
ut%
Bonsoir à tous
Je souhaiterai savoir si il est possible exécuter une macro
automatiquement
suivant la valeur d'une cellule.
J'aimerai pouvoir faire défiler vers le bas ma feuille de calcul afin de
voir apparaître systématiquement la dernière cellule saisie.

Merci à tous

Phil








Avatar
LSteph
Clic droir sur l'onglet de ta feuille
code
Coller (le texte de la macro)
fermer l'editeur VBA
taper 8 en b2.

"Philippe" a écrit dans le message de news:

Salut Steph
Impossible de lancer quoi que ce soit en copiant texto ce que tu proposes.
Cette macro se lance t'elle dès que la cellule b2 contient 8 ?
(automatiquement)

Merci de ton aide

Phil


"LSteph" a écrit dans le message de
news:
Bonsoir Philipe,
la dernière: en bas à droite

oui ex ici si b2 = 8

Private Sub Worksheet_Change(ByVal Target As Range)
If [b2] <> 8 Then Exit Sub
ActiveCell.SpecialCells(xlLastCell).Select
End Sub

'lsteph


"Philippe" a écrit dans le message de news:
ut%
Bonsoir à tous
Je souhaiterai savoir si il est possible exécuter une macro
automatiquement
suivant la valeur d'une cellule.
J'aimerai pouvoir faire défiler vers le bas ma feuille de calcul afin
de
voir apparaître systématiquement la dernière cellule saisie.

Merci à tous

Phil