MACRO renvoit cellule vide

D

DJARNAUD

XLDnaute Occasionnel

• 9 Février 2017

• #31

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

a bientot !

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 9 Février 2017

• #32

Re-bonjour,

A force de tourner en r🙄nd, une troisième version jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - DJARNAUD - Cellule vide atteindre v3.xlsm.xlsm

  43 KB · Affichages: 27

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 10 Février 2017

• #33

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 😉😉!

 

Pièces jointes

• Va et Vient.xlsm

  20.1 KB · Affichages: 37

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 10 Février 2017

• #34

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 😉

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 10 Février 2017

• #35

Re

DJARNAUD à dit:

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

Cliquez pour agrandir...

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

VB:

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 😀.

 

Pièces jointes

• Va sans retour.xlsm

  19.8 KB · Affichages: 25

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Février 2017

• #36

Bonjour à toutes et à tous, bonjour, Si 🙂🙂🙂,

​

A bientôt 😀 😀

 

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 13 Février 2017

• #37

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 😉

 

Pièces jointes

• Copie de Va sans retour.xlsm

  18.3 KB · Affichages: 25

Dernière édition: 13 Février 2017

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 20 Février 2017

• #38

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2017

• #39

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.

 

Pièces jointes

• DJARNAUD-Va et vient- v1.xlsm

  20.9 KB · Affichages: 29

Dernière édition: 20 Février 2017

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 23 Février 2017

• #40

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!

 

Vote positif 0 Vote négatif