XL 2010 Celule suivante si...

Modeste

XLDnaute Barbatruc

• 19 Juillet 2016

• #2

Bonjour bens7,

Peut-être qu'un bout de fichier avec quelques exemples de factures ("bidons"), ton UserForm (avec le code que tu as déjà écrit) et un exemple de ce qu'il faudrait faire dans les différents cas de figure, seraient les bienvenus?

[Edit:] slt Hieu tkt pas grv ... dit autrement: "N'allez pas, cher Hieu (que je salue bien cordialement) vous mettre martel en tête: votre proposition est la bienvenue, elle aussi et je ne suis nullement heurté que votre intervention vienne juste après la mienne. Belle journée ensoleillée à l'ensemble du forum" 😛

 

Dernière édition: 19 Juillet 2016

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 19 Juillet 2016

• #3

Salut,

Voici un code à adapter :

VB:

Sub mlk()
Dim auj As Variant
auj = Date

For Each c In Range("f:f")
    If auj = c Then
        c.Select
        Exit For
    End If
Next c
End Sub

++

ps : slt modeste, dsl, vu ton msg apres ^^

 

Vote positif 0 Vote négatif

A

AntoineM

XLDnaute Junior

• 19 Juillet 2016

• #4

Bonjour,

Sans avoir essayé (tu devrais mettre un fichier en pièce jointe pour qu'on puisse tester) :

VB:

    Dim x As Integer
    Dim i As Integer
    Dim dl As Integer
  
dl = Range("A65536").End(xlUp).Row
x = ActiveCell.Row
 
For i = x + 1 To dl
  If Range("T" & i) = Date Then
  Range("R" & i).Select
  Exit Sub
  End If
Next i

Bonne journée,

Antoine

Edit : Désolé je n'avais pas vu vos messages non-plus :/

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Juillet 2016

• #5

oula hyper complexe jvais avoir du mal a l'adapter je comprend rien voici mon fichier (version alleger car apres la texte box1 en trouvant la societe remplie une vingtaine de case....) moi je pensait un petit : For Each...

 

Pièces jointes

• suivant aujourdhui.xlsm

  24.2 KB · Affichages: 31

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Juillet 2016

• #6

bon voila un debut d'adaptation avec le sub lm plus haut (plus simple pour moi...) apres je m'arrangerai pour mon userform pour textbox1=activecell... mais j'arrive pas a passer au suivant il reste sur le premier trouver...

 

Pièces jointes

• suivant aujourdhui.xlsm

  26.3 KB · Affichages: 27

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 20 Juillet 2016

• #7

Salut,

Une idée de ma sub modifiée pour que ça tourne :

VB:

Sub mlk()
Dim auj As Variant
auj = Date
lig = ActiveCell.Row
derlig = Range("l65536").End(xlUp).Row
1:
For i = lig + 1 To derlig
If Range("l" & i) = auj Then
    Range("d" & i).Select
    Exit Sub
End If
Next i
lig = 1
GoTo 1
End Sub

++

note : avec un fichier excel, c'est tellement plus simple, de répondre ^^

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 20 Juillet 2016

• #8

merci tout d'abord bon ca marche nikel mais le probleme c'est que parfois (au bout de 10-15 clik) ca selectionne rien donc activecell =""

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 21 Juillet 2016

• #9

bon jai fait des petite modif top ! voici ci joint le fichier dans le userform....
mais (pensant m'en sortir seul) je ne vous est pas mis le bouton precedent si vous pouvez me donner un dernier coup de main....

 

Pièces jointes

• suivant aujourdhui.xlsm

  23 KB · Affichages: 27

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 21 Juillet 2016

• #10

Voilà,

Normalement, ça marche !
++

VB:

Sub precedent()
Dim auj As Variant
 auj = Date
 lig = ActiveCell.Row
 prelig = 2 ' premiere ligne
 derlig = Range("l65536").End(xlUp).Row
prec:
For i = lig - 1 To prelig Step -1
If Range("l" & i) = auj Then
     Range("d" & i).Select
     TextBox1 = ActiveCell
     Exit Sub
End If
Next i
lig = derlig
GoTo prec
End Sub

++

 

Pièces jointes

• suivant aujourdhui_v2.xlsm

  26.8 KB · Affichages: 28

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 21 Juillet 2016

• #11

Oui ca marche nikel .... mais desole un autre petit bug si apres avoir cahnger les dates ya pas de resultat ca plante ... faudrait un msgbox ("PLUS DE CLIENT AUJOURDHUI"):EXIT SUB

 

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 21 Juillet 2016

• #12

1. voici le bug :
   si rien ne corespond ca plante

 

Pièces jointes

• suivant aujourdhui.xlsm

  23 KB · Affichages: 29

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 21 Juillet 2016

• #13

Hummmmm, j'suis en train d'tout faire, là ^^

Vraiment parce que j'suis sympa :

VB:

Private Sub CommandButton1_Click()
[d2].Select

Dim auj As Variant
auj = Date
prelig = 2 ' premiere ligne
derlig = Range("l65536").End(xlUp).Row

For i = prelig To derlig
    If Range("l" & i) = auj Then GoTo 1
Next i
MsgBox ("PLUS DE CLIENT AUJOURDHUI")
Exit Sub

1:
UserForm1.Show
End Sub

++

 

Pièces jointes

• suivant aujourdhui_v3.xlsm

  22.6 KB · Affichages: 29

Vote positif 0 Vote négatif

B

Bens7

XLDnaute Impliqué

• 21 Juillet 2016

• #14

Je this vraiment desole... je vous embête ! Mais le précédent marche et le suivant ne passe pas au suivant il affiche direct la msgbox...
PS: c'est quoi la différence si on met call:xxxxxxx et direct xxxxx dans un bouton ?

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 21 Juillet 2016

• #15

Re !!
Alors, la réponse précédente est la bonne, mais j't'ai pas envoyé le bon fichier ^^ en meme temps, à 2h du mat', j'fais n'imp ^^
La diff entre call toto et toto ? Il n'y en a pas, que je sache ; j'ai débuté ma programmation en fortran, et on écrivait comme ça. Je mets call toto, parce qu'en lecture, il en découle automatiquement que toto est une subroutine, alors, que toto tout seul, ça peut etre une variable perdue, une étiquette, ...

++

 

Pièces jointes

• suivant aujourdhui_v4.xlsm

  27 KB · Affichages: 30

Vote positif 0 Vote négatif