Bonjour Richard,
Pour effacer seulement les données :
With Worksheets("InscrisLeNomDeLaFeuille")
.Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
End With
Pour effacer les données et le format des cellules :
With Worksheets("InscrisLeNomDeLaFeuille")
.Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
End With
"Richard" a écrit dans le message de groupe de
discussion :
Bonjour à tous.
Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
0).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
J'AI ÉGALEMENT TENTÉ CELLE-CI
Range("BV" & Range("BV12").End(xlDown).Row).Select
ActiveCell.ClearContents
Quelqu'un peut-il me dire où est mon erreur!
Merci de pouvoir m'aider
--
Richard
Bonjour Richard,
Pour effacer seulement les données :
With Worksheets("InscrisLeNomDeLaFeuille")
.Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
End With
Pour effacer les données et le format des cellules :
With Worksheets("InscrisLeNomDeLaFeuille")
.Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
End With
"Richard" <Richard@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 2E5F59B8-D89F-4337-9DFE-EC85EED34346@microsoft.com...
Bonjour à tous.
Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
0).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
J'AI ÉGALEMENT TENTÉ CELLE-CI
Range("BV" & Range("BV12").End(xlDown).Row).Select
ActiveCell.ClearContents
Quelqu'un peut-il me dire où est mon erreur!
Merci de pouvoir m'aider
--
Richard
Bonjour Richard,
Pour effacer seulement les données :
With Worksheets("InscrisLeNomDeLaFeuille")
.Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
End With
Pour effacer les données et le format des cellules :
With Worksheets("InscrisLeNomDeLaFeuille")
.Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
End With
"Richard" a écrit dans le message de groupe de
discussion :
Bonjour à tous.
Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
0).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
J'AI ÉGALEMENT TENTÉ CELLE-CI
Range("BV" & Range("BV12").End(xlDown).Row).Select
ActiveCell.ClearContents
Quelqu'un peut-il me dire où est mon erreur!
Merci de pouvoir m'aider
--
Richard
Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" a écrit dans le message de groupe de
> discussion :
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" <Richard@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : 2E5F59B8-D89F-4337-9DFE-EC85EED34346@microsoft.com...
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" a écrit dans le message de groupe de
> discussion :
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Bonsoir Mich
Je suis désolé d'être aussi rude,
J'étais empressé de te répondre et j'ai manqué de politesse.
Je te remercie de m'avoir répondu mais je t'ai répondu au préalable, cette
macro effacait toute la ligne. Avec la macro toute entière, peut-être
pourrais-tu me dire où est erreur
Merci
--
Richard
"Richard" a écrit :Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens
d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" a écrit dans le message
> de groupe de
> discussion :
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Bonsoir Mich
Je suis désolé d'être aussi rude,
J'étais empressé de te répondre et j'ai manqué de politesse.
Je te remercie de m'avoir répondu mais je t'ai répondu au préalable, cette
macro effacait toute la ligne. Avec la macro toute entière, peut-être
pourrais-tu me dire où est erreur
Merci
--
Richard
"Richard" a écrit :
Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens
d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" <Richard@discussions.microsoft.com> a écrit dans le message
> de groupe de
> discussion : 2E5F59B8-D89F-4337-9DFE-EC85EED34346@microsoft.com...
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Bonsoir Mich
Je suis désolé d'être aussi rude,
J'étais empressé de te répondre et j'ai manqué de politesse.
Je te remercie de m'avoir répondu mais je t'ai répondu au préalable, cette
macro effacait toute la ligne. Avec la macro toute entière, peut-être
pourrais-tu me dire où est erreur
Merci
--
Richard
"Richard" a écrit :Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens
d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" a écrit dans le message
> de groupe de
> discussion :
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Bonjour,
Et de cette façon ?
Sub Test()
On Error Resume Next
With Worksheet("Registre employé")
.[A65536].End(xlUp).Resize(2, 230).FillDown
' Efface les infos colonnes "O" à "BE"
.[C65536].End(xlUp).Resize(2, 41). _
SpecialCells(xlCellTypeConstants).ClearContents
' ' Efface la cellule "Terminaison d'emploie"
.[CH65536].End(xlUp).ClearContents
' ' Efface la cellule "Période d'attente"
.[BV65536].End(xlUp).ClearContents
' ' Efface les cellules "Budget"
.[AR65536].End(xlUp).Resize(2, 14). _
SpecialCells(xlCellTypeConstants).ClearContents
' ' Efface la cellule "Congé"
.[CF65536].End(xlUp).ClearContents
End With
' Ajoute une ligne dans la feuille "Conciliation"
With Worksheet("Conciliation")
.[I65536].End(xlUp).Resize(2, 123).FillDown
.[R65536].End(xlUp).Resize(2, 108). _
SpecialCells(xlCellTypeConstants).ClearContents
End With
' Ajoute une ligne dans la feuille "Coût indirect"
With Worksheet("Coût indirect")
.[A65536].End(xlUp).Resize(2, 40).FillDown
End With
' Ouvre les lignes 13 À 24 du fichier Employé
With Worksheet("Fiche employé")
.Rows("13:24").EntireRow.Hidden = False
.Range("E16:G16").Select
End With
End Sub
Hervé.
"Richard" a écrit dans le message de
news:Bonsoir Mich
Je suis désolé d'être aussi rude,
J'étais empressé de te répondre et j'ai manqué de politesse.
Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
cette
macro effacait toute la ligne. Avec la macro toute entière, peut-être
pourrais-tu me dire où est erreur
Merci
--
Richard
"Richard" a écrit :Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens
d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" a écrit dans le message
> de groupe de
> discussion :
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
> cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Bonjour,
Et de cette façon ?
Sub Test()
On Error Resume Next
With Worksheet("Registre employé")
.[A65536].End(xlUp).Resize(2, 230).FillDown
' Efface les infos colonnes "O" à "BE"
.[C65536].End(xlUp).Resize(2, 41). _
SpecialCells(xlCellTypeConstants).ClearContents
' ' Efface la cellule "Terminaison d'emploie"
.[CH65536].End(xlUp).ClearContents
' ' Efface la cellule "Période d'attente"
.[BV65536].End(xlUp).ClearContents
' ' Efface les cellules "Budget"
.[AR65536].End(xlUp).Resize(2, 14). _
SpecialCells(xlCellTypeConstants).ClearContents
' ' Efface la cellule "Congé"
.[CF65536].End(xlUp).ClearContents
End With
' Ajoute une ligne dans la feuille "Conciliation"
With Worksheet("Conciliation")
.[I65536].End(xlUp).Resize(2, 123).FillDown
.[R65536].End(xlUp).Resize(2, 108). _
SpecialCells(xlCellTypeConstants).ClearContents
End With
' Ajoute une ligne dans la feuille "Coût indirect"
With Worksheet("Coût indirect")
.[A65536].End(xlUp).Resize(2, 40).FillDown
End With
' Ouvre les lignes 13 À 24 du fichier Employé
With Worksheet("Fiche employé")
.Rows("13:24").EntireRow.Hidden = False
.Range("E16:G16").Select
End With
End Sub
Hervé.
"Richard" <Richard@discussions.microsoft.com> a écrit dans le message de
news:90133263-E470-4DCD-A1DC-087370E57D66@microsoft.com...
Bonsoir Mich
Je suis désolé d'être aussi rude,
J'étais empressé de te répondre et j'ai manqué de politesse.
Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
cette
macro effacait toute la ligne. Avec la macro toute entière, peut-être
pourrais-tu me dire où est erreur
Merci
--
Richard
"Richard" a écrit :
Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens
d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" <Richard@discussions.microsoft.com> a écrit dans le message
> de groupe de
> discussion : 2E5F59B8-D89F-4337-9DFE-EC85EED34346@microsoft.com...
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
> cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Bonjour,
Et de cette façon ?
Sub Test()
On Error Resume Next
With Worksheet("Registre employé")
.[A65536].End(xlUp).Resize(2, 230).FillDown
' Efface les infos colonnes "O" à "BE"
.[C65536].End(xlUp).Resize(2, 41). _
SpecialCells(xlCellTypeConstants).ClearContents
' ' Efface la cellule "Terminaison d'emploie"
.[CH65536].End(xlUp).ClearContents
' ' Efface la cellule "Période d'attente"
.[BV65536].End(xlUp).ClearContents
' ' Efface les cellules "Budget"
.[AR65536].End(xlUp).Resize(2, 14). _
SpecialCells(xlCellTypeConstants).ClearContents
' ' Efface la cellule "Congé"
.[CF65536].End(xlUp).ClearContents
End With
' Ajoute une ligne dans la feuille "Conciliation"
With Worksheet("Conciliation")
.[I65536].End(xlUp).Resize(2, 123).FillDown
.[R65536].End(xlUp).Resize(2, 108). _
SpecialCells(xlCellTypeConstants).ClearContents
End With
' Ajoute une ligne dans la feuille "Coût indirect"
With Worksheet("Coût indirect")
.[A65536].End(xlUp).Resize(2, 40).FillDown
End With
' Ouvre les lignes 13 À 24 du fichier Employé
With Worksheet("Fiche employé")
.Rows("13:24").EntireRow.Hidden = False
.Range("E16:G16").Select
End With
End Sub
Hervé.
"Richard" a écrit dans le message de
news:Bonsoir Mich
Je suis désolé d'être aussi rude,
J'étais empressé de te répondre et j'ai manqué de politesse.
Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
cette
macro effacait toute la ligne. Avec la macro toute entière, peut-être
pourrais-tu me dire où est erreur
Merci
--
Richard
"Richard" a écrit :Le résultat n'est pas tout a fait ce qu je tente de faire.
Je désire copier une ligne où il y a déjà des données et des formules.
Cependant
les cellules dont il y a des données (sur la ligne que je viens
d'ajouter)
je désire les effacer.
LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
Voici la macro au complet.
Sheets("Registre employé").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
On Error Resume Next
' Efface les infos colonnes "O" à "BE"
Range("C" & Range("C12").End(xlDown).Row).Resize(2,
41).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Terminaison d'emploie"
Range("CH" & Range("CH65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface la cellule "Période d'attente"
Range("BV" & Range("BV65000").End(xlUp).Row).Select
Selection.ClearContents
On Error Resume Next
' Efface les cellules "Budget"
Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
14).SpecialCells(xlCellTypeConstants).ClearContents
' Efface la cellule "Congé"
Range("CF" & Range("CF12").End(xlDown).Row).Select
ActiveCell.ClearContents
' Ajoute une ligne dans la feuille "Conciliation"
Sheets("Conciliation").Select
Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
On Error Resume Next
Range("R" & Range("R12").End(xlDown).Row).Resize(2,
108).SpecialCells(xlCellTypeConstants).ClearContents
On Error Resume Next
' Ajoute une ligne dans la feuille "Coût indirect"
Sheets("Coût indirect").Select
Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
On Error Resume Next
' Ouvre les lignes 13 À 24 du fichier Employé
Sheets("Fiche employé").Select
Rows("13:24").Select
Selection.EntireRow.Hidden = False
Range("E16:G16").Select
End Sub
--
Richard
"MichDenis" a écrit :
>
>
> Bonjour Richard,
>
> Pour effacer seulement les données :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
> End With
>
> Pour effacer les données et le format des cellules :
>
> With Worksheets("InscrisLeNomDeLaFeuille")
> .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
> End With
>
>
>
> "Richard" a écrit dans le message
> de groupe de
> discussion :
> Bonjour à tous.
>
> Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
> cas
> ' Efface la cellule "Période d'attente"
> Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
> 0).SpecialCells(xlCellTypeConstants).ClearContents
> On Error Resume Next
> J'AI ÉGALEMENT TENTÉ CELLE-CI
> Range("BV" & Range("BV12").End(xlDown).Row).Select
> ActiveCell.ClearContents
>
> Quelqu'un peut-il me dire où est mon erreur!
>
> Merci de pouvoir m'aider
> --
> Richard
>
>
Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" a écrit dans le message de
news:
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" a écrit dans le message de
> news:
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" a écrit dans le message
>>> > de groupe de
>>> > discussion :
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" <mhsilve@orange.fr> a écrit dans le message de
news:B2AEC521-F1FE-4780-B18F-436364B68B67@microsoft.com...
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" <Richard@discussions.microsoft.com> a écrit dans le message de
> news:90133263-E470-4DCD-A1DC-087370E57D66@microsoft.com...
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" <Richard@discussions.microsoft.com> a écrit dans le message
>>> > de groupe de
>>> > discussion : 2E5F59B8-D89F-4337-9DFE-EC85EED34346@microsoft.com...
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" a écrit dans le message de
news:
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" a écrit dans le message de
> news:
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" a écrit dans le message
>>> > de groupe de
>>> > discussion :
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" a écrit dans le message de
news:
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" a écrit dans le message de
> news:
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" a écrit dans le message
>>> > de groupe de
>>> > discussion :
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" <mhsilve@orange.fr> a écrit dans le message de
news:B2AEC521-F1FE-4780-B18F-436364B68B67@microsoft.com...
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" <Richard@discussions.microsoft.com> a écrit dans le message de
> news:90133263-E470-4DCD-A1DC-087370E57D66@microsoft.com...
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" <Richard@discussions.microsoft.com> a écrit dans le message
>>> > de groupe de
>>> > discussion : 2E5F59B8-D89F-4337-9DFE-EC85EED34346@microsoft.com...
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" a écrit dans le message de
news:
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" a écrit dans le message de
> news:
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" a écrit dans le message
>>> > de groupe de
>>> > discussion :
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
Que tu affiches ton code dans ton message, c'est très bien.
Mais si le répondeur doit se baser sur du code qui ne fonctionne
pas pour découvrir ce que le demandeur désire, il ne faut pas
te surprendre si des propositions de solutions ne pleuvent pas.
À mes yeux, la formulation n'est pas claire !
Les répondeurs, tous bénévoles, n'ont pas nécessairement envie
de passer un temps fou juste pour essayer de comprendre la
question !
Que tu affiches ton code dans ton message, c'est très bien.
Mais si le répondeur doit se baser sur du code qui ne fonctionne
pas pour découvrir ce que le demandeur désire, il ne faut pas
te surprendre si des propositions de solutions ne pleuvent pas.
À mes yeux, la formulation n'est pas claire !
Les répondeurs, tous bénévoles, n'ont pas nécessairement envie
de passer un temps fou juste pour essayer de comprendre la
question !
Que tu affiches ton code dans ton message, c'est très bien.
Mais si le répondeur doit se baser sur du code qui ne fonctionne
pas pour découvrir ce que le demandeur désire, il ne faut pas
te surprendre si des propositions de solutions ne pleuvent pas.
À mes yeux, la formulation n'est pas claire !
Les répondeurs, tous bénévoles, n'ont pas nécessairement envie
de passer un temps fou juste pour essayer de comprendre la
question !
À propos, un offset ferait-il l'affaire?
--
Richard
"Hervé" a écrit :Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" a écrit dans le message de
news:
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" a écrit dans le message
> de
> news:
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des
>>> formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" &
>>> > .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" a écrit dans le
>>> > message
>>> > de groupe de
>>> > discussion :
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
À propos, un offset ferait-il l'affaire?
--
Richard
"Hervé" a écrit :
Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" <mhsilve@orange.fr> a écrit dans le message de
news:B2AEC521-F1FE-4780-B18F-436364B68B67@microsoft.com...
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" <Richard@discussions.microsoft.com> a écrit dans le message
> de
> news:90133263-E470-4DCD-A1DC-087370E57D66@microsoft.com...
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des
>>> formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" &
>>> > .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" <Richard@discussions.microsoft.com> a écrit dans le
>>> > message
>>> > de groupe de
>>> > discussion : 2E5F59B8-D89F-4337-9DFE-EC85EED34346@microsoft.com...
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>
À propos, un offset ferait-il l'affaire?
--
Richard
"Hervé" a écrit :Oups !
remplacer Worksheet par Worksheets (avec le s)
Désolé
Hervé.
"Hervé" a écrit dans le message de
news:
> Bonjour,
> Et de cette façon ?
>
> Sub Test()
>
> On Error Resume Next
>
> With Worksheet("Registre employé")
> .[A65536].End(xlUp).Resize(2, 230).FillDown
> ' Efface les infos colonnes "O" à "BE"
> .[C65536].End(xlUp).Resize(2, 41). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Terminaison d'emploie"
> .[CH65536].End(xlUp).ClearContents
> ' ' Efface la cellule "Période d'attente"
> .[BV65536].End(xlUp).ClearContents
> ' ' Efface les cellules "Budget"
> .[AR65536].End(xlUp).Resize(2, 14). _
> SpecialCells(xlCellTypeConstants).ClearContents
> ' ' Efface la cellule "Congé"
> .[CF65536].End(xlUp).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Conciliation"
> With Worksheet("Conciliation")
> .[I65536].End(xlUp).Resize(2, 123).FillDown
> .[R65536].End(xlUp).Resize(2, 108). _
> SpecialCells(xlCellTypeConstants).ClearContents
> End With
>
> ' Ajoute une ligne dans la feuille "Coût indirect"
> With Worksheet("Coût indirect")
> .[A65536].End(xlUp).Resize(2, 40).FillDown
> End With
>
> ' Ouvre les lignes 13 À 24 du fichier Employé
> With Worksheet("Fiche employé")
> .Rows("13:24").EntireRow.Hidden = False
> .Range("E16:G16").Select
> End With
>
> End Sub
>
>
> Hervé.
>
>
> "Richard" a écrit dans le message
> de
> news:
>> Bonsoir Mich
>>
>> Je suis désolé d'être aussi rude,
>>
>> J'étais empressé de te répondre et j'ai manqué de politesse.
>>
>> Je te remercie de m'avoir répondu mais je t'ai répondu au préalable,
>> cette
>> macro effacait toute la ligne. Avec la macro toute entière, peut-être
>> pourrais-tu me dire où est erreur
>>
>> Merci
>>
>> --
>> Richard
>>
>>
>> "Richard" a écrit :
>>
>>> Le résultat n'est pas tout a fait ce qu je tente de faire.
>>> Je désire copier une ligne où il y a déjà des données et des
>>> formules.
>>> Cependant
>>> les cellules dont il y a des données (sur la ligne que je viens
>>> d'ajouter)
>>> je désire les effacer.
>>>
>>> LA MACRO QUE TU M'AS DONNÉ EFFACE TOUTE LA LIGNE
>>>
>>> Voici la macro au complet.
>>> Sheets("Registre employé").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 230).FillDown
>>> On Error Resume Next
>>> ' Efface les infos colonnes "O" à "BE"
>>> Range("C" & Range("C12").End(xlDown).Row).Resize(2,
>>> 41).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Terminaison d'emploie"
>>> Range("CH" & Range("CH65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface la cellule "Période d'attente"
>>> Range("BV" & Range("BV65000").End(xlUp).Row).Select
>>> Selection.ClearContents
>>> On Error Resume Next
>>> ' Efface les cellules "Budget"
>>> Range("AR" & Range("AR12").End(xlDown).Row).Resize(2,
>>> 14).SpecialCells(xlCellTypeConstants).ClearContents
>>> ' Efface la cellule "Congé"
>>> Range("CF" & Range("CF12").End(xlDown).Row).Select
>>> ActiveCell.ClearContents
>>>
>>> ' Ajoute une ligne dans la feuille "Conciliation"
>>> Sheets("Conciliation").Select
>>> Range("I" & Range("I12").End(xlDown).Row).Resize(2, 123).FillDown
>>> On Error Resume Next
>>> Range("R" & Range("R12").End(xlDown).Row).Resize(2,
>>> 108).SpecialCells(xlCellTypeConstants).ClearContents
>>> On Error Resume Next
>>>
>>> ' Ajoute une ligne dans la feuille "Coût indirect"
>>> Sheets("Coût indirect").Select
>>> Range("A" & Range("A12").End(xlDown).Row).Resize(2, 40).FillDown
>>> On Error Resume Next
>>>
>>> ' Ouvre les lignes 13 À 24 du fichier Employé
>>> Sheets("Fiche employé").Select
>>> Rows("13:24").Select
>>> Selection.EntireRow.Hidden = False
>>> Range("E16:G16").Select
>>>
>>>
>>>
>>> End Sub
>>>
>>>
>>> --
>>> Richard
>>> "MichDenis" a écrit :
>>>
>>> >
>>> >
>>> > Bonjour Richard,
>>> >
>>> > Pour effacer seulement les données :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" &
>>> > .Range("BV65536").End(xlUp).Row).ClearContents
>>> > End With
>>> >
>>> > Pour effacer les données et le format des cellules :
>>> >
>>> > With Worksheets("InscrisLeNomDeLaFeuille")
>>> > .Range("BV12:BV" & .Range("BV65536").End(xlUp).Row).Clear
>>> > End With
>>> >
>>> >
>>> >
>>> > "Richard" a écrit dans le
>>> > message
>>> > de groupe de
>>> > discussion :
>>> > Bonjour à tous.
>>> >
>>> > Je croyais que la macro suivante fonctionnait, mais ce n'est pas le
>>> > cas
>>> > ' Efface la cellule "Période d'attente"
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Resize(2,
>>> > 0).SpecialCells(xlCellTypeConstants).ClearContents
>>> > On Error Resume Next
>>> > J'AI ÉGALEMENT TENTÉ CELLE-CI
>>> > Range("BV" & Range("BV12").End(xlDown).Row).Select
>>> > ActiveCell.ClearContents
>>> >
>>> > Quelqu'un peut-il me dire où est mon erreur!
>>> >
>>> > Merci de pouvoir m'aider
>>> > --
>>> > Richard
>>> >
>>> >
>