Bonsoirs les Xldnautes !!
me voilà de retour avec un nouveau problème que je n'arrive pas a resoudre....
dans un fichier je rempli des mouvements de personnel à l'aide d'un userform dans lequel
nous choisissons un noms, on saisie le lieu de départ, d'arivée et la date du mouvement à l'aide du code suivant :
Private Sub CommandButton1_Click()
With Sheets("ESSAI").UsedRange
' on trie par date car les les lignes doivent être en ordre croissant
Dim Lign As Integer
Lign = .Range("B65536").End(xlUp).Row + 1
.Cells(Lign, 1) = Me.noms
.Cells(Lign, 2) = Me.Prov
.Cells(Lign, 3) = Me.Dest
.Cells(Lign, 4) = CDate(Date_mouv)
End With
Call Tri
End Sub
Private Sub Tri()
With Sheets("ESSAI").UsedRange
.Sort key1:=.Cells(1, 4), order1:=xlAscending, Header:=xlYes ' on trie par date car les les lignes doivent être en ordre croissant
End With
End Sub
je souhaiterais maintenant trouver un code qui me permette d'alimentaire les textbox (pr_date et der_date)
dans pr_date : la date du mouvement precedent le mouvement creer dans l'userform et correspondant au nom de l'individu
dans der_date : la date du mouvement suivant le mouvement creer dans l'userfor et correspondant au nom de l'individu
du genre :
sheets("ESSAI").select
dim Plage as range
With sheets("ESSAI")
Set Plage=.range("B2:B" & .range("A65536).End(xlUp).row)
end with
if cel.offset(0,0) like Me.noms and cel.offset(0,3)<Date_mouv then
selectionne la ligne precedents le mouvement et inscrit le dans pr_date
if cel.offset(0,0) like Me.noms and cel.offset(0,3)>Date_mouv then
selection la ligne ayant la date directement apres mon mouvement et inscrit le dans der_date
ci joint le fichier
si quelqu'un a une idée je suis preneur car je suis bloqué avec ca depuis un bon moment
d'avance merci pour votre aide......
me voilà de retour avec un nouveau problème que je n'arrive pas a resoudre....
dans un fichier je rempli des mouvements de personnel à l'aide d'un userform dans lequel
nous choisissons un noms, on saisie le lieu de départ, d'arivée et la date du mouvement à l'aide du code suivant :
Private Sub CommandButton1_Click()
With Sheets("ESSAI").UsedRange
' on trie par date car les les lignes doivent être en ordre croissant
Dim Lign As Integer
Lign = .Range("B65536").End(xlUp).Row + 1
.Cells(Lign, 1) = Me.noms
.Cells(Lign, 2) = Me.Prov
.Cells(Lign, 3) = Me.Dest
.Cells(Lign, 4) = CDate(Date_mouv)
End With
Call Tri
End Sub
Private Sub Tri()
With Sheets("ESSAI").UsedRange
.Sort key1:=.Cells(1, 4), order1:=xlAscending, Header:=xlYes ' on trie par date car les les lignes doivent être en ordre croissant
End With
End Sub
je souhaiterais maintenant trouver un code qui me permette d'alimentaire les textbox (pr_date et der_date)
dans pr_date : la date du mouvement precedent le mouvement creer dans l'userform et correspondant au nom de l'individu
dans der_date : la date du mouvement suivant le mouvement creer dans l'userfor et correspondant au nom de l'individu
du genre :
sheets("ESSAI").select
dim Plage as range
With sheets("ESSAI")
Set Plage=.range("B2:B" & .range("A65536).End(xlUp).row)
end with
if cel.offset(0,0) like Me.noms and cel.offset(0,3)<Date_mouv then
selectionne la ligne precedents le mouvement et inscrit le dans pr_date
if cel.offset(0,0) like Me.noms and cel.offset(0,3)>Date_mouv then
selection la ligne ayant la date directement apres mon mouvement et inscrit le dans der_date
ci joint le fichier
si quelqu'un a une idée je suis preneur car je suis bloqué avec ca depuis un bon moment
d'avance merci pour votre aide......
Pièces jointes
Dernière édition: