renseigner une feuille recap par le haut du tableau

[pascal21]

bonjour à tous

Sheets("feuil1").SelectActiveSheet.Unprotect
Range("b55:q55").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("recap").Activate
    Range("A65536").End(xlUp).Offset(1, 0).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

grace à ce code je renseigne une feuille de recap en la remplissant par la dernière cellule vide donc en la complètant par le bas (derniere donnée rentrée en bas de tableau)
je souhaiterais que la dernière donnée rentrée se fasse par la ligne 4 (début du tableau) donc par le haut
je ne sais pas quelle
lignes 1 à 3 contiennent les en-têtes de colonnes
merci de votre aide
edit

 

[Papou-net]

Re : renseigner une feuille recap par le haut du tableau

Bonjour Pascal21,

Comme ceci, peut-être :

Sheets("feuil1").SelectActiveSheet.Unprotect
Range("b55:q55").Copy
    Sheets("recap").Activate
    Rows("4:4").Insert Shift:=xlDown
     Application.CutCopyMode = False

Bon dimanche.

Cordialement.

 

[DoubleZero]

Re : renseigner une feuille recap par le haut du tableau

Bonjour à toutes et à tous,

Pour le plaisir de faire un gros bisou à Papou-net 😀, peut-être également comme suit :

Option Explicit
Sub Copier_à_partir_du_haut()
Sheets("feuil1").Unprotect
Sheets("recap").Rows("4:4").Insert Shift:=xlDown 
Sheets("Feuil1").Range("b55:q55").Copy Destination:=Sheets("recap").Range("a4")
Sheets("feuil1").Protect
End Sub

A bientôt 🙂

 

[Papou-net]

Re : renseigner une feuille recap par le haut du tableau

RE :

Pour le plaisir de recevoir ton gros bisou, chère petite ânesse🙂, et celui de t'en envoyer un en retour🙄,

et pour structurer davantage mon exemple précédent :

Sub Inserer()
With Sheets("feuil1")
  .Unprotect
  .Range("b55:q55").Copy
  Sheets("recap").Rows("4:4").Insert Shift:=xlDown
  Application.CutCopyMode = False
  .Protect
End With
End Sub

Bon dimanche à tous.

Amicalement.

 

[pascal21]

Re : renseigner une feuille recap par le haut du tableau

bonjour papou-net Double zero
papou-net ton code recopie sur toutes les colonnes de la feuille recap
ça ne va pas
double zero j'essaie ta solution

 

[Papou-net]

Re : renseigner une feuille recap par le haut du tableau

RE :

Alors c'est que tu n'as pas bien défini ton besoin.

Sauf erreur ou mauvaise interprétation de ma part, le copier-coller que je te propose est équivalent à celui de 00. Il doit d'ailleurs être identique au tien, la ligne de destination mise à part.

Cordialement.

 

[DoubleZero]

Re : renseigner une feuille recap par le haut du tableau

Re-bonjour,

...Alors c'est que tu n'as pas bien défini ton besoin...

Je le pense également.

A bientôt 🙂

 

[laetitia90]

Re : renseigner une feuille recap par le haut du tableau

bonjour tous🙂🙂🙂🙂
comme je comprends

Dim i As Long
 With Sheets("feuil1")
 For i = 1 To 17
 With Sheets("recap")
 .Rows("4:4").Insert Shift:=xlDown
 .Cells(4, 1) = Sheets("feuil1").Cells(55, i)
 End With
 Next i
 End With

 

[Efgé]

Re : renseigner une feuille recap par le haut du tableau

Bonjour pascal21, Salut Papou-net 🙂, mes hommages 00 🙂 et laetitia 🙂
Ce qui m'interpelle dans la question est

...je ne sais pas quelle lignes 1 à 3 contiennent les en-têtes de colonnes...

Peut-être est il temps de fournir un petit fichier ? Peut être....
Cordialement

 

[pascal21]

Re : renseigner une feuille recap par le haut du tableau

re à tous
pffff!!! j'ai voulu rectifier mon premier post et voilà

...je ne sais pas quelle lignes 1 à 3 contiennent les en-têtes de colonnes...

voilà ce qu'il fallait lire

...les lignes 1 à 3 contiennent les en-têtes de colonnes...

d'après les premiers essais fait avec le code de double zero
et même celui de papou-net
il y a un problème majeur c'est le format des cellules recopiées
une date par exemple devient 41356 etc....
c'est surement dû au fait que la ligne 4 est nouvelle et n'a donc pas le format des autres lignes
je continue avec le code de lietitia pour voir

 

[Papou-net]

Re : renseigner une feuille recap par le haut du tableau

RE :

En ajoutant un paramètre à la commande, ça devrait recopier les formats :

Sheets("recap").Range("A4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Sinon, comme dit Efgé que je salue, il serait peut-être temps de fournir un petit fichier ?

Cordialement.

Oups, j'ai oublié de saluer Laetitia, alors je lui fais une grosse bise.

 

[pascal21]

Re : renseigner une feuille recap par le haut du tableau

merci pour vos réponses je teste ça dans la semaine si j'ai un peu de temps