Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

renseigner une feuille recap par le haut du tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pascal21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
bonjour à tous
Code: 
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
 
Dernière édition:
Trier par date Trier par votes
Re : renseigner une feuille recap par le haut du tableau

Bonjour Pascal21,

Comme ceci, peut-être :

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

Cordialement.
 
Vote positif 0 Vote négatif
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 :

Code: 
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 🙂
 
Vote positif 0 Vote négatif
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 :

Code: 
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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : renseigner une feuille recap par le haut du tableau

bonjour tous🙂🙂🙂🙂
comme je comprends

Code: 
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
 
Vote positif 0 Vote négatif
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
pascal21 à dit:
...je ne sais pas quelle lignes 1 à 3 contiennent les en-têtes de colonnes...
Cliquez pour agrandir...
Peut-être est il temps de fournir un petit fichier ? Peut être....
Cordialement

 
Vote positif 0 Vote négatif
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...
Cliquez pour agrandir...
voilà ce qu'il fallait lire
...les lignes 1 à 3 contiennent les en-têtes de colonnes...
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
Re : renseigner une feuille recap par le haut du tableau

RE :

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

Code: 
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.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
217
Magic_Doctor
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
197
sylvanu
C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
185
Constantin
C
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
343
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
695
micie1509
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
745
Valter
V
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
802
robpellan52
R
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
976
olivier388
O
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
887
whiteshark
W
X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
865
Xender
X
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
751
fanou06
F
V
  • Question Question
XL 2016 Donner le nom du fichier à mon tableau mis en forme
Réponses
2
Affichages
566
vivi21
V
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
792
Averell1976
A
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…