insertion ligne

[TREDI-GEREP]

bonjour ,
voila mon petit soucis
A B
16/10/2008 DECHETTERIE DE GUYANCOURT
16/10/2008 DECHETTERIE MONTIGNY LE BRETONNEUX
22/10/2008 DECHETTERIE DE PLAISIR
24/10/2008 DECHETTERIE DE AUNEUIL
24/10/2008 DECHETTERIE CONFLANS ST HONORINE
27/10/2008 DECHETTERIE DE PALAISEAU
28/10/2008 COMMUNE NOISY LE SEC
28/10/2008 LES LOGES EN JOSAS
28/10/2008 VILLE DE VERSAILLES

date en colonne A et COMMUNE en colonne B

par un userform je rentre une date nommée dat et je voudrais inserer une ligne correctement. c'est a dire si dat=25/10/2008 ben insertion entre le 24/10 et 27/10 et la je bloque (le tout valider par un bouton )

Merci par avance

 

[Boby94]

Re : insertion ligne

Bonjour,

Peut-etre en faisant un tri croissant après avoir ajouter ta ligne.

 

[job75]

Re : insertion ligne

Bonjour à tous,

Si les dates en colonnes A sont bien en ordre croissant, mettre le code suivant dans le code du bouton de validation de l'UserForm (on suppose que date et commune sont entrées dans des TextBox) :

Private Sub CommandButton1_Click()
If IsDate(TextBox1) Then
Dim dat As Long, lig As Long
On Error Resume Next
dat = CDate(TextBox1)
lig = 2
lig = Application.Match(dat, Range("A:A")) + 1
Rows(lig).Insert
Cells(lig, 1) = dat
Cells(lig, 2) = TextBox2 'commune
Unload UserForm1
Else
MsgBox "Date non valide."
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub

Edit : j'ai ajouté On Error Resume Next pour le cas où il n'y a aucune date dans le tableau, ou si l'on entre une date antérieure à la 1ère.

A+

 

[TREDI-GEREP]

Re : insertion ligne

Bonjour à tous,

Si les dates en colonnes A sont bien en ordre croissant, mettre le code suivant dans le code du bouton de validation de l'UserForm (on suppose que date et commune sont entrées dans des TextBox) :

Private Sub CommandButton1_Click()
If IsDate(TextBox1) Then
Dim dat As Long, lig As Long
On Error Resume Next
dat = CDate(TextBox1)
lig = 2
lig = Application.Match(dat, Range("A:A")) + 1
Rows(lig).Insert
Cells(lig, 1) = dat
Cells(lig, 2) = TextBox2 'commune
Unload UserForm1
Else
MsgBox "Date non valide."
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub

Edit : j'ai ajouté On Error Resume Next pour le cas où il n'y a aucune date dans le tableau, ou si l'on entre une date antérieure à la 1ère.

A+

Merci Job exactement ca