> 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.
> 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.
> 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.
> 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
> 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
> 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
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" a écrit dans le message de groupe de
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
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" <christian@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : F11C5DAB-88EE-4ADB-8F15-996E92693D15@microsoft.com...
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
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" a écrit dans le message de groupe de
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
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" a écrit dans le message de groupe de
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
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" <christian@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : F11C5DAB-88EE-4ADB-8F15-996E92693D15@microsoft.com...
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
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" a écrit dans le message de groupe de
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
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" a écrit dans le message de groupe de
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
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" <christian@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : F11C5DAB-88EE-4ADB-8F15-996E92693D15@microsoft.com...
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
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" a écrit dans le message de groupe de
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
Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un
"christian" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
> 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
>
>
Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un
"christian" <christian@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 78A0673F-DCE6-4CD5-834D-19353A95A03B@microsoft.com...
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" <christian@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : F11C5DAB-88EE-4ADB-8F15-996E92693D15@microsoft.com...
> 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
>
>
Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un
"christian" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
> 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
>
>
Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un
"christian" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
> 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
>
>
Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un
"christian" <christian@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 78A0673F-DCE6-4CD5-834D-19353A95A03B@microsoft.com...
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" <christian@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : F11C5DAB-88EE-4ADB-8F15-996E92693D15@microsoft.com...
> 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
>
>
Observe les deux points (..) consécutifs devant
les objets "Range" dans ..Range("G2:G...........
il ne devrait y en avoir seulement un
"christian" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
> 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
>
>