Comptabilité budget général

Bonjour,

Est-ce qu'il serait possible de m'ajouter une ligne de commande s'il vous plait pour qu'après l'exécution des deux lignes en bleu pour aller à la page suivante ou à la page précédente que le curseur se positionne dans une autre cellule pour pouvoir recliquer facilement ensuite et continuer ces actions de défilement avant ou après

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("I2")) Is Nothing Then

Call pageprécédente

ElseIf Not Intersect(Target, Range("J2")) Is Nothing Then

Call pagesuivante

ElseIf Not Intersect(Target, Range("C4")) Is Nothing Then

gcBudget = Range("C2")

Lance

End If

End Sub

D'avance, un grand merci, bon dimanche, bien cordialement, Chti59xcel

Bonjour User_925 (!),

Il suffit d’ajouter Activesheet.Range("F15").select, par exemple, si tu veux sélectionner la cellule F15 de la feuille suivante ou précédente.

Bonjour Valky68

Merci pour cette proposition. Je l'ai intégrée à la macro de mon classeur officiel et ça fonctionne. Je ne suis pas tout à fait sûr de moi dans le positionnement de la ligne à l'intérieur de la macro, car je ne suis pas spécialiste, mais ça fonctionne quand même.

Je joins la rédaction complète de la macro au cas où je ne serais pas bon (voir ligne en bleu) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I2")) Is Nothing Then
Call pageprécédente
ActiveSheet.Range("L2").Select
ElseIf Not Intersect(Target, Range("J2")) Is Nothing Then
Call pagesuivante
ActiveSheet.Range("L2").Select
ElseIf Not Intersect(Target, Range("C4")) Is Nothing Then
gcBudget = Range("C2")
Lance
End If
End Sub

Un grand merci, bien cordialement, Chti59xcel

Bonsoir User_925, les nouvelles lignes sont bien placées. Tu peux valider la solutions et ainsi fermer ta publication.

Bonjour Valky68,

Merci pour ton retour et les précisions sur la mise en forme des lignes de la macro.

Bonne journée, bien cordialement, Chti59xcel