XL 2010 Celule suivante si...

[Bens7]

Bonjour à tous !
Voila j'ai un bouton suivant dans un user qui doit descendre à la cellule suivante (colonne R (num de facture)) genre :
Activecell.ofset(1,0).select

Mais je voudrais rajouter une condition par apport à la colonne T.

En fait : Descend a la prochaine facture (col R) qui contiens la date d'aujourdhui dans la colonne T.
Merci à vous PS( j'ai tester tt seul déjà mais étant novice ...que des bug...)

 

[Modeste]

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"

 

[Hieu]

Salut,

Voici un code à adapter :

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 ^^

 

[AntoineM]

Bonjour,

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

    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 :/

 

[Bens7]

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

 

[Bens7]

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

 

[Hieu]

Salut,

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

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 ^^

 

[Bens7]

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 =""

 

[Bens7]

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

 

[Hieu]

Voilà,

Normalement, ça marche !
++

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

++

 

[Bens7]

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

 

[Bens7]

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

 

[Hieu]

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

Vraiment parce que j'suis sympa :

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

++

 

[Bens7]

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 ?

 

[Hieu]

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

++