Exporter des données d'un fichier excel
Fermé
nath86
-
26 janv. 2009 à 15:41
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 26 janv. 2009 à 16:35
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 26 janv. 2009 à 16:35
A voir également:
- Exporter des données d'un fichier excel
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Formule excel - Guide
- Fichier host - Guide
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
1 réponse
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
26 janv. 2009 à 16:35
26 janv. 2009 à 16:35
Salut,
Cette macro copie les données de la Feuil1 à partir de la colonne A à la suite dans la Feuil2
Sub Macro1()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
Sheets("Feuil2").Activate
Col = "A"
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
ActiveSheet.Paste
End If
Next
End With
ActiveCell.Select
Sheets("Feuil1").Activate
Application.CutCopyMode = False
MsgBox ("ARCHIVAGE EFFECTUE")
End Sub
Il est possible éventuellement supprimer les données de la feuille1, d'enregistrer automatiquement après le transfert etc ...
A+
Cette macro copie les données de la Feuil1 à partir de la colonne A à la suite dans la Feuil2
Sub Macro1()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
Sheets("Feuil2").Activate
Col = "A"
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
ActiveSheet.Paste
End If
Next
End With
ActiveCell.Select
Sheets("Feuil1").Activate
Application.CutCopyMode = False
MsgBox ("ARCHIVAGE EFFECTUE")
End Sub
Il est possible éventuellement supprimer les données de la feuille1, d'enregistrer automatiquement après le transfert etc ...
A+