Macro pour aller automatiquement de Cellule A à cellule B

Bonjour

Je recherche une petite macro qui me permette de passer de cellules en cellules lorsqu'elles sont renseignées.

Ci joint mon fichier test.

Merci d'avance pour l'aide apportée.

Belle aprem

Ta

Bonjour,

Un essai à coller dans le module de code de la feuille (Feuil1 dans l'exemple fourni):

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Union(Range("D6"), Range("F6"), Range("H6")), Target) Is Nothing Then
    Select Case Target.Address(0, 0)
        Case "D6"
            Range("F6").Select
        Case "F6"
            Range("H6").Select
        Case "H6"
            Range("F10").Select
    End Select
 End If
End Sub

A+

Bonjour …

avec retour à l’envoyeur dans ton exemple joint

Private Sub Worksheet_Change(ByVal R As Range)
  If Intersect(R, Range("D6:H6")) Is Nothing Or R.CountLarge > 1 Then Exit Sub
  If R.Column = 4 Or R.Column = 6 Then R(1, 3).Select
  If R.Column = 8 Then R(1, -3).Select
End Sub

Bonjour

Merci pour votre retour....

Cependant, j'ai intégré la macro dans un module et ça n'a pas l'air de fonctionner....

Je joins le fichier essai avec le module....

Bsr

Avec la macro d'Ordonné , c'est la même chose

Je l'ai intégré dans un module et rien ne se passe....

La macro ne doit pas être dans un module standard, mais dans la feuille de code de la feuille Feuil1.

En effet, comme ça marche. Merci pour l'aide apporter, génial !

Une dernière question. Je voudrais que le texte de la dernière cellule F10 apparaisse uniquement lors de sa sélection.

J'ai pensé mettre la police en blanc et lorsque la cellule est sélectionné la police serait noire.

Il faudrait donc rajouter "et met la police en noire après "Range("F10").Select"
Est ce possible ?

Encore merci et bon début de soirée.

Ta

Il faudrait donc rajouter "et met la police en noire après "Range("F10").Select"

Est ce possible ?

Le mieux est d'essayer...

Range("F10").Font.Color = 0 'pour caractères noirs et 16777215 pour blancs

Bonne suite

Bonjour

Merci pour ce nouveau retour

C'est parfait j'ai réussit à l'adapter comme je voulais.

Merci encore

Cdlt