Copie automatique excel
Fermé
Demahom08
Messages postés
7
Date d'inscription
dimanche 31 mars 2013
Statut
Membre
Dernière intervention
7 avril 2013
-
Modifié par Demahom08 le 2/04/2013 à 17:25
Demahom08 Messages postés 7 Date d'inscription dimanche 31 mars 2013 Statut Membre Dernière intervention 7 avril 2013 - 7 avril 2013 à 13:58
Demahom08 Messages postés 7 Date d'inscription dimanche 31 mars 2013 Statut Membre Dernière intervention 7 avril 2013 - 7 avril 2013 à 13:58
A voir également:
- Copie automatique excel
- Liste déroulante excel - Guide
- Copie cachée - Guide
- Formule excel - Guide
- Message automatique thunderbird - Guide
- Si et excel - Guide
1 réponse
Demahom08
Messages postés
7
Date d'inscription
dimanche 31 mars 2013
Statut
Membre
Dernière intervention
7 avril 2013
7 avril 2013 à 13:58
7 avril 2013 à 13:58
bonjour
j'ai trouver une macro comme suit:
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("feuil2").Activate ' feuille de destination
Col = "i" ' colonne données non vides à tester'
NumLig = 2 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("feuil1") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 3 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("feuil2").Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With
sauf que je veux la modifer pour que la condition soit une periode d'un mois
ou les données de la date se trouve sur la colonne "B"(feuille 1)
et les données que je veux copier se trouvent sue la colonne "D" (feuille 1)
et je veux les copier sur la feuille 4 colonnes "D8:Dx" et "E8:Ex"
svp aider moi
j'ai trouver une macro comme suit:
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("feuil2").Activate ' feuille de destination
Col = "i" ' colonne données non vides à tester'
NumLig = 2 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("feuil1") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 3 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("feuil2").Cells(NumLig, 1).Insert Shift:=xlDown
'ici pour insérer ou .Paste pour coller'
End If
Next
End With
sauf que je veux la modifer pour que la condition soit une periode d'un mois
ou les données de la date se trouve sur la colonne "B"(feuille 1)
et les données que je veux copier se trouvent sue la colonne "D" (feuille 1)
et je veux les copier sur la feuille 4 colonnes "D8:Dx" et "E8:Ex"
svp aider moi