Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
8C8FB9F8-6741-40EB-B226-80B595CF50CF@microsoft.com...
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effort
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
8C8FB9F8-6741-40EB-B226-80B595CF50CF@microsoft.com...
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effort
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
8C8FB9F8-6741-40EB-B226-80B595CF50CF@microsoft.com...
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effort
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
07137A1C-4055-4B5A-9A2B-E7B34B8D3E62@microsoft.com...
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
8C8FB9F8-6741-40EB-B226-80B595CF50CF@microsoft.com...
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effort
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
07137A1C-4055-4B5A-9A2B-E7B34B8D3E62@microsoft.com...
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
8C8FB9F8-6741-40EB-B226-80B595CF50CF@microsoft.com...
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effort
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Avec ta nouvelle plage de cellules :
On Error Resume Next
Range("B" & Range("B65536").End(xlUp).Row).Resize(2, 12).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Ouais, Ta première commande fonctionne mais celle-ci
Range("A" &
Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
efface en grande parti le fichier et foute le bordel.
En fait, ce ne sont que les colonnes "B:M" (de B à M) que je dois remplir.
Le reste ne sont que des formules.
Merci pour tout.
@+
RichBonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Avec ta nouvelle plage de cellules :
On Error Resume Next
Range("B" & Range("B65536").End(xlUp).Row).Resize(2, 12).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
1C7D1E6F-F0CC-4981-B7A4-FAC11D940386@microsoft.com...
Ouais, Ta première commande fonctionne mais celle-ci
Range("A" &
Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
efface en grande parti le fichier et foute le bordel.
En fait, ce ne sont que les colonnes "B:M" (de B à M) que je dois remplir.
Le reste ne sont que des formules.
Merci pour tout.
@+
Rich
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
07137A1C-4055-4B5A-9A2B-E7B34B8D3E62@microsoft.com...
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
8C8FB9F8-6741-40EB-B226-80B595CF50CF@microsoft.com...
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effort
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Avec ta nouvelle plage de cellules :
On Error Resume Next
Range("B" & Range("B65536").End(xlUp).Row).Resize(2, 12).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Ouais, Ta première commande fonctionne mais celle-ci
Range("A" &
Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
efface en grande parti le fichier et foute le bordel.
En fait, ce ne sont que les colonnes "B:M" (de B à M) que je dois remplir.
Le reste ne sont que des formules.
Merci pour tout.
@+
RichBonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences. C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Avec ta nouvelle plage de cellules :
On Error Resume Next
Range("B" & Range("B65536").End(xlUp).Row).Resize(2, 12).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Ouais, Ta première commande fonctionne mais celle-ci
Range("A" &
Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
efface en grande parti le fichier et foute le bordel.
En fait, ce ne sont que les colonnes "B:M" (de B à M) que je dois remplir.
Le reste ne sont que des formules.
Merci pour tout.
@+
RichBonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules
si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences.
C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Avec ta nouvelle plage de cellules :
On Error Resume Next
Range("B" & Range("B65536").End(xlUp).Row).Resize(2, 12).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
1C7D1E6F-F0CC-4981-B7A4-FAC11D940386@microsoft.com...
Ouais, Ta première commande fonctionne mais celle-ci
Range("A" &
Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
efface en grande parti le fichier et foute le bordel.
En fait, ce ne sont que les colonnes "B:M" (de B à M) que je dois remplir.
Le reste ne sont que des formules.
Merci pour tout.
@+
Rich
Bonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules
si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences.
C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
07137A1C-4055-4B5A-9A2B-E7B34B8D3E62@microsoft.com...
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?
Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
8C8FB9F8-6741-40EB-B226-80B595CF50CF@microsoft.com...
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effort
Bonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" <RichardFortin@discussions.microsoft.com> a écrit dans le message de news:
595CD71A-A02E-4808-A37E-313DCBD8E6F1@microsoft.com...
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin
Bonjour Richard,
Avec ta nouvelle plage de cellules :
On Error Resume Next
Range("B" & Range("B65536").End(xlUp).Row).Resize(2, 12).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Ouais, Ta première commande fonctionne mais celle-ci
Range("A" &
Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
efface en grande parti le fichier et foute le bordel.
En fait, ce ne sont que les colonnes "B:M" (de B à M) que je dois remplir.
Le reste ne sont que des formules.
Merci pour tout.
@+
RichBonjour Richard,
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
Cette ligne de code devrait retrouver la dernière occupée dans ta feuille de calcul et la recopiée (constantes et formules) dans
la
ligne juste en dessous. L'autre ligne de code au besoin se charge d'effacer les "constantes" et conserve seulement les formules
si
besoin il y a. Si tu désires que la recopie se fasse sur une plus grande étendue, il faudra que tu spécifies tes exigences.
C'est
ce
dont j'ai compris de ta question.
J'ai choisi la colonne A:A pour déterminer la dernìère ligne occupée de ta feuille. Si cette colonne n'est pas nécessairement
toujours remplie, il faut en choisir une autre ou modifier la façon d'évaleur la dernière ligne occupée.
Je ne comprends pas pourquoi elle a effacé toute ta feuille.
Salutations!
"Richard Fortin" a écrit dans le message de news:
Pourquoi préfère-tu partir du bas vers le haut "Range("A" &
Range("A65536").End(xlUp)." ?Bonjour Richard,
Si tu utilises ces lignes de code dans une structure qui n'est pas comme ceci :
With worksheets("Feuil1")
end with
enlève les points que tu retrouves devant les objets "Range".
Range("A" & Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
Range("A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
Salutations!
"Richard Fortin" a écrit dans le message de news:
Malheureusement cette formule ne fonctionne pas.
J.ai comme erreur "Référence incorrcte ou non qualifié" en .Range("A65536")
Merci de l'effortBonjour Richard,
'------------------------
With worksheets("Feuil1")
.Range("A" & .Range("A65536").End(xlUp).Row).Resize(2, 226).FillDown
'Ceci est pour effacer les données de la ligne recopiée qui ne sont pas des
'formules ... au besoin
On Error Resume Next
.Range("A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants).Clear
end with
'------------------------
Salutations!
"Richard Fortin" a écrit dans le message de news:
Bounjour à tous,
J'aimerais par une macro aller à la dernière ligne d'une feuille
(Range("B12").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
Range("D13").End(xlDown).Select)
A cette dernière ligne (vide), j'aimerais copier les formules comprise de
"A:HR" comprisent dans de la ligne supérieur.
Toute aide sera grandement apprécié
R.Fortin