MACRO renvoit cellule vide

[DJARNAUD]

Bonjour à tous,

Voilà, je cherche à faire une macro qui me placerait directement sur les celulles vides d'une ligne donnée.
Un bouton "suivant" permettrait d'accéder à l'éventuelle cellule vide suivante sur cette meme ligne.
Concernant l'indication de la ligne concernée, celle-ci serait déterminée par la celulle selectionné.

Ex: je me place en A2, alors la macro me renverrait sur C2
puis en cliquant sur suivant D2

D'avance merci pour votre aide!

 

[DJARNAUD]

D'accord, merci de ton retour 00.
On va attendre alors

a bientot !

 

[DoubleZero]

Re-bonjour,

A force de tourner en rnd, une troisième version jointe.

A bientôt

 

[Si...]

salut

pour éviter de tourner en ... ÒÓ, si tu vas à droite, veux-tu pouvoir revenir à gauche … et réciproquement, comme dans le programme joint ?

Droite, Gauche, Pouvoir, Programme … pas de Politique ici en dehors de la mienne !

 

[DJARNAUD]

Salut si...Salut 00
Pour le moment je n'ai pas nécessairement besoin du "vient" mais le "va" me convient parfaitement! car il s'arrête bien sur les cellule vide meme s'il y a une formue. merci beaucoup de ta contribution!
Je te remercie également 00 pour ta tentative! je t'avoue que je n'avais pas trop compris le contenu de ton fichier :s mais maintenant on a la solution

 

[Si...]

Re

Salut si...Salut 00
Pour le moment je n'ai pas nécessairement besoin du "vient"

Mon programme ne te convient pas ? Je prends alors des mesures d’allègement radicales :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
    If R.Row > 55 Or R.Column = 1 Then
        ActiveSheet.Shapes("OO").Visible = 0             ‘  -cache la flèche (très bonne idée OO)
    Else
        With ActiveSheet.Shapes("OO")
            .Visible = R.Column < 56 And R.Row > 1   ‘  -l’affiche, la place
            .Top = R(1, 2).Top: .Left = R.Left + R.Width
        End With
    End If
End Sub
Sub Va()
    Dim C As Range
    If ActiveCell.Column > 55 Then Exit Sub    ‘la déplace avec la sélection sous condition  
    Do
      Set C = ActiveCell(1, 2): C.Select
    Loop Until C = "" Or C.HasFormula
End Sub

My Dear Friende ÕÒ, dans mon programme, j’ai encore ceci* :

*inspiré d’une production de MDF que je n’ai, hélas, pas eu l’occasion de croiser sur ce site et que JCGL nous a présentée il y a peu .

 

[DoubleZero]

Bonjour à toutes et à tous, bonjour, Si ,

A bientôt

 

[DJARNAUD]

Bonjour tout le monde!
Merci encore pour votre contribution, mais il y a encore un hic, la macro ne devrait pas s'arrêter sur la cellule O2....
merci d'avance

 

[DJARNAUD]

Bonjour à tous!
Avez vous pu vous pencher sur mon probléme?
merci d'avance!

 

[mapomme]

Bonsoir à tous,

Je ne sais si j'ai bien compris - je n'ai pas lu à fond tout le fil -. Un essai de va & vient dans le fichier joint.
Pour la plage d'application, Il suffit d'adapter la variable plage.

 

[DJARNAUD]

Bonjour mapomme,

Cela semble fonctionner à merveille.
Si jamais je me rends compte qu'il y a une faille, je reviendrai vers toi, mais a priori c'est TOP!

Merci beaucoup!