Tri colonne G suivant date

Le
christian
Bonjour à tous et toutes.
Une nouvelle fois, je sollicite votre aide, je désespère à force de patauger.
Avec la macro ci-dessous (Merci à JB), je copie les différents onglets en
une feuille nommée Samenvatting.
Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
aux dates renseignées, soit aux lignes avec dates non encore inscrites.
Sub Samenvatting()
'Macro réalisée par JB
Sheets("Samenvatting").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 3 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A2].Resize(nlig, ncol).Value
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Samenvatting").Select
Sheets("Samenvatting").Columns.EntireColumn.AutoFit
End Sub

En vous remerciant d'avance pour votre aide
--
Cordialement
Christian
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19415001
Bonjour Christian,

'Sélectionnes les lignes entières des cellules
renseignées en G:G
On Error resume next
With Worksheets("Samenvatting")
.Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
End With

Sélectionner les lignes entières des cellules totalement
vides en G:G
On Error resume next
With Worksheets("Samenvatting")
.Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).EntireRow.Select
End With




"christian" discussion :
Bonjour à tous et toutes.
Une nouvelle fois, je sollicite votre aide, je désespère à force de patauger.
Avec la macro ci-dessous (Merci à JB), je copie les différents onglets en
une feuille nommée Samenvatting.
Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
aux dates renseignées, soit aux lignes avec dates non encore inscrites.
Sub Samenvatting()
'Macro réalisée par JB
Sheets("Samenvatting").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 3 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A2].Resize(nlig, ncol).Value
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Samenvatting").Select
Sheets("Samenvatting").Columns.EntireColumn.AutoFit
End Sub

En vous remerciant d'avance pour votre aide
--
Cordialement
Christian
Daniel.C
Le #19414991
> Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
aux dates renseignées, soit aux lignes avec dates non encore inscrites.



Bonjour.

???
Est-ce que tu veux dire que tu veux sélectionner les lignes qui ont
"Date OK" en colonne G ?

Cordialement.
Daniel
christian
Le #19415191
Bonjour Daniel
Effectivement, je souhaite via un bouton, sélectionner soit les lignes dont
en colonne G une date est renseignée soit les lignes dont aucunes dates ne
sont mentionnées.

--
Cordialement
Christian


"Daniel.C" a écrit :

> Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
> de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
> aux dates renseignées, soit aux lignes avec dates non encore inscrites.

Bonjour.

???
Est-ce que tu veux dire que tu veux sélectionner les lignes qui ont
"Date OK" en colonne G ?

Cordialement.
Daniel





christian
Le #19415181
Bonjour MichDenis
Merci de m'avoir lu et répondu.
Je teste de ce pas les deux soluces.
--
Cordialement
Christian


"MichDenis" a écrit :

Bonjour Christian,

'Sélectionnes les lignes entières des cellules
renseignées en G:G
On Error resume next
With Worksheets("Samenvatting")
..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
End With

Sélectionner les lignes entières des cellules totalement
vides en G:G
On Error resume next
With Worksheets("Samenvatting")
..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).EntireRow.Select
End With




"christian" discussion :
Bonjour à tous et toutes.
Une nouvelle fois, je sollicite votre aide, je désespère à force de patauger.
Avec la macro ci-dessous (Merci à JB), je copie les différents onglets en
une feuille nommée Samenvatting.
Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
aux dates renseignées, soit aux lignes avec dates non encore inscrites.
Sub Samenvatting()
'Macro réalisée par JB
Sheets("Samenvatting").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 3 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A2].Resize(nlig, ncol).Value
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Samenvatting").Select
Sheets("Samenvatting").Columns.EntireColumn.AutoFit
End Sub

En vous remerciant d'avance pour votre aide
--
Cordialement
Christian




christian
Le #19415321
Rebonjour MichDenis
A l'exécution des deux macros, je reçois le message d'erreur suivant:
Erreur de Compilation
Fonction ou variable attendue

Que dois-je faire???
--
Merci
Christian


"MichDenis" a écrit :

Bonjour Christian,

'Sélectionnes les lignes entières des cellules
renseignées en G:G
On Error resume next
With Worksheets("Samenvatting")
..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
End With

Sélectionner les lignes entières des cellules totalement
vides en G:G
On Error resume next
With Worksheets("Samenvatting")
..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).EntireRow.Select
End With




"christian" discussion :
Bonjour à tous et toutes.
Une nouvelle fois, je sollicite votre aide, je désespère à force de patauger.
Avec la macro ci-dessous (Merci à JB), je copie les différents onglets en
une feuille nommée Samenvatting.
Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
aux dates renseignées, soit aux lignes avec dates non encore inscrites.
Sub Samenvatting()
'Macro réalisée par JB
Sheets("Samenvatting").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 3 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A2].Resize(nlig, ncol).Value
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Samenvatting").Select
Sheets("Samenvatting").Columns.EntireColumn.AutoFit
End Sub

En vous remerciant d'avance pour votre aide
--
Cordialement
Christian




MichDenis
Le #19415301
Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un



"christian" discussion :
Rebonjour MichDenis
A l'exécution des deux macros, je reçois le message d'erreur suivant:
Erreur de Compilation
Fonction ou variable attendue

Que dois-je faire???
--
Merci
Christian


"MichDenis" a écrit :

Bonjour Christian,

'Sélectionnes les lignes entières des cellules
renseignées en G:G
On Error resume next
With Worksheets("Samenvatting")
..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
End With

Sélectionner les lignes entières des cellules totalement
vides en G:G
On Error resume next
With Worksheets("Samenvatting")
..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).EntireRow.Select
End With




"christian" discussion :
Bonjour à tous et toutes.
Une nouvelle fois, je sollicite votre aide, je désespère à force de patauger.
Avec la macro ci-dessous (Merci à JB), je copie les différents onglets en
une feuille nommée Samenvatting.
Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
aux dates renseignées, soit aux lignes avec dates non encore inscrites.
Sub Samenvatting()
'Macro réalisée par JB
Sheets("Samenvatting").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 3 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A2].Resize(nlig, ncol).Value
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Samenvatting").Select
Sheets("Samenvatting").Columns.EntireColumn.AutoFit
End Sub

En vous remerciant d'avance pour votre aide
--
Cordialement
Christian




christian
Le #19415421
Merci pour m'avoir répondu.
Hélas, je reçois toujours le même message d'erreur.
Sub dates()
'Merci à MichDenis
'Sélectionnes les lignes entières des cellules renseignées en G:G
On Error Resume Next
With Worksheets("Samenvatting")
.Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
End With
End Sub
--
Cordialement
Christian


"MichDenis" a écrit :

Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un



"christian" discussion :
Rebonjour MichDenis
A l'exécution des deux macros, je reçois le message d'erreur suivant:
Erreur de Compilation
Fonction ou variable attendue

Que dois-je faire???
--
Merci
Christian


"MichDenis" a écrit :

> Bonjour Christian,
>
> 'Sélectionnes les lignes entières des cellules
> renseignées en G:G
> On Error resume next
> With Worksheets("Samenvatting")
> ..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
> SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
> End With
>
> Sélectionner les lignes entières des cellules totalement
> vides en G:G
> On Error resume next
> With Worksheets("Samenvatting")
> ..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
> SpecialCells(xlCellTypeBlanks).EntireRow.Select
> End With
>
>
>
>
> "christian" > discussion :
> Bonjour à tous et toutes.
> Une nouvelle fois, je sollicite votre aide, je désespère à force de patauger.
> Avec la macro ci-dessous (Merci à JB), je copie les différents onglets en
> une feuille nommée Samenvatting.
> Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
> de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
> aux dates renseignées, soit aux lignes avec dates non encore inscrites.
> Sub Samenvatting()
> 'Macro réalisée par JB
> Sheets("Samenvatting").[A1].CurrentRegion.Offset(1, 0).Clear
> For s = 3 To Sheets.Count
> nlig = Sheets(s).[A65000].End(xlUp).Row - 1
> ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
> [A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
> [A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
> Sheets(s).[A2].Resize(nlig, ncol).Value
> Next s
> On Error Resume Next
> [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
> Sheets("Samenvatting").Select
> Sheets("Samenvatting").Columns.EntireColumn.AutoFit
> End Sub
>
> En vous remerciant d'avance pour votre aide
> --
> Cordialement
> Christian
>
>



MichDenis
Le #19415691
Exemple : http://cjoint.com/?fApC1vmzj8



"christian" discussion :
Merci pour m'avoir répondu.
Hélas, je reçois toujours le même message d'erreur.
Sub dates()
'Merci à MichDenis
'Sélectionnes les lignes entières des cellules renseignées en G:G
On Error Resume Next
With Worksheets("Samenvatting")
.Range("G2:G" & .Range("G65536").End(xlUp).Row). _
SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
End With
End Sub
--
Cordialement
Christian


"MichDenis" a écrit :

Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un



"christian" discussion :
Rebonjour MichDenis
A l'exécution des deux macros, je reçois le message d'erreur suivant:
Erreur de Compilation
Fonction ou variable attendue

Que dois-je faire???
--
Merci
Christian


"MichDenis" a écrit :

> Bonjour Christian,
>
> 'Sélectionnes les lignes entières des cellules
> renseignées en G:G
> On Error resume next
> With Worksheets("Samenvatting")
> ..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
> SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Select
> End With
>
> Sélectionner les lignes entières des cellules totalement
> vides en G:G
> On Error resume next
> With Worksheets("Samenvatting")
> ..Range("G2:G" & .Range("G65536").End(xlUp).Row). _
> SpecialCells(xlCellTypeBlanks).EntireRow.Select
> End With
>
>
>
>
> "christian" > discussion :
> Bonjour à tous et toutes.
> Une nouvelle fois, je sollicite votre aide, je désespère à force de patauger.
> Avec la macro ci-dessous (Merci à JB), je copie les différents onglets en
> une feuille nommée Samenvatting.
> Je souhaiterais pouvoir sur cette feuille et via macro, avoir la possibilité
> de sélectionner via la colonne G ("Date OK"), soit les lignes correspondantes
> aux dates renseignées, soit aux lignes avec dates non encore inscrites.
> Sub Samenvatting()
> 'Macro réalisée par JB
> Sheets("Samenvatting").[A1].CurrentRegion.Offset(1, 0).Clear
> For s = 3 To Sheets.Count
> nlig = Sheets(s).[A65000].End(xlUp).Row - 1
> ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
> [A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
> [A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
> Sheets(s).[A2].Resize(nlig, ncol).Value
> Next s
> On Error Resume Next
> [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
> Sheets("Samenvatting").Select
> Sheets("Samenvatting").Columns.EntireColumn.AutoFit
> End Sub
>
> En vous remerciant d'avance pour votre aide
> --
> Cordialement
> Christian
>
>



christian
Le #19415931
Merci pour le fichier

Cordialement
Christian
Publicité
Poster une réponse
Anonyme