Exporter des données d'un fichier excel
Fermé
nath86
-
26 janv. 2009 à 15:41
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 26 janv. 2009 à 16:35
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 26 janv. 2009 à 16:35
A voir également:
- Exporter des données d'un fichier excel
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
Mike-31
Messages postés
18314
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 073
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+
