Integrer lignes sur plusieurs onglets les unes apres les autres excel 2010
Fermé
caroouline
Messages postés
35
Date d'inscription
mardi 5 mai 2020
Statut
Membre
Dernière intervention
15 février 2024
-
Modifié le 5 mai 2020 à 17:55
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 9 juin 2020 à 10:33
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 9 juin 2020 à 10:33
A voir également:
- Integrer lignes sur plusieurs onglets les unes apres les autres excel 2010
- Comment aller à la ligne sur excel - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
- Liste déroulante excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Restaurer les onglets chrome - Guide
2 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 6 mai 2020 à 10:03
Modifié le 6 mai 2020 à 10:03
Bonjour,
En vba tu ajoutes une feuille en premier(a gauche) pour recevoir les données
Et tu associes ce code à un bouton:
Voilà
-
-
@+ Le Pivert
En vba tu ajoutes une feuille en premier(a gauche) pour recevoir les données
Et tu associes ce code à un bouton:
Option Explicit
Private Sub CommandButton1_Click()
Dim s As Integer
Dim plage As String
Dim derligne As Long
For s = 2 To ThisWorkbook.Worksheets.Count
derligne = Worksheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row + 1 ' feuille receptrice
plage = Worksheets(s).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address 'dernière cellule remplie feuille copie
plage = Replace(plage, "$", "") 'on enleve les $
Worksheets(s).Range("A1:" & plage).Copy _
Destination:=Worksheets(1).Range("A" & derligne) 'on copie
Next
End Sub
Voilà
-
-
@+ Le Pivert
caroouline
Messages postés
35
Date d'inscription
mardi 5 mai 2020
Statut
Membre
Dernière intervention
15 février 2024
20 mai 2020 à 11:12
20 mai 2020 à 11:12
Bonjour,
Merci pour tes réponses je réessayerais peut être le mois prochain.
Car pas réussi car je ne peux pas prendre ton fichier d'origine car le mieux est déjà trop travaillé.
Merci pour tes réponses je réessayerais peut être le mois prochain.
Car pas réussi car je ne peux pas prendre ton fichier d'origine car le mieux est déjà trop travaillé.
6 mai 2020 à 15:36
désolé c'est un peu complexe je n'ai pas compris ou modifier les éléments.
Modifié le 6 mai 2020 à 17:40
https://www.cjoint.com/c/JEgpF2fjFsQ
IMPORTANT
Il faut supprimer toutes les explications en rouge car cela fausse les données!
@+ Le Pivert
Modifié le 9 juin 2020 à 09:31
Pourriez-vous m'aider svp, je n'arrive toujours pas.
Le code c'est :
Option Explicit
Sub Import()
Dim s As Integer
Dim plage As String
Dim derligne As Long
For s = 2 To ThisWorkbook.Worksheets.Count
derligne = Worksheets(Import).Cells.SpecialCells(xlCellTypeLastCell).Row
plage = Worksheets(3 - CAF - CFACT).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address 'dernière cellule remplie feuille copie
plage = Replace(plage, "$", "")
Worksheets(s).Range("A1:" & plage).Copy _
Destination:=Worksheets(Import).Range("A" & derligne)
Next
End Sub
J'ai enlever private car je n'arrivais pas à affecter au bouton.
Mais ça me bloque à la ligne SUB
Modifié le 9 juin 2020 à 10:53
Option Explicit Sub Import() Dim s As Integer Dim plage As String Dim derligne As Long For s = 2 To ThisWorkbook.Worksheets.Count derligne = Worksheets("Import").Cells.SpecialCells(xlCellTypeLastCell).Row + 1 ' feuille receptrice plage = Worksheets(s).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Address 'dernière cellule remplie feuille copie plage = Replace(plage, "$", "") 'on enleve les $ Worksheets(s).Range("A1:" & plage).Copy _ Destination:=Worksheets("Import").Range("A" & derligne) 'on copie Next End Subvoilà
@+ Le Pivert