Discussion :

[mjanbar]

Bonjour,

Je désire :

1- copier une plage de données située dans une feuille ("sheet1") et dont les valeurs sont actualisées quotidiennement (par formule)

2- coller certaines de ces données selon un critère de selection (seulement les lignes contenant des informations datées d'aujourd'hui par ex) et ce, dans une deuxième feuille ("sheet2").

Rq, j'aimerais que le collage commence à partir de la première ligne vide de la fueille "sheet2" puisque cette fueille contient une archive historique actualisée quotidiennement et contenant les données du jour en question.


Merci d'avance
marcel

[scully2501]

Désoler si tu n'as pas de réponse mais par rapport à ton texte on a l'impression que tu nous donne un boulot à faire et non une aide. Peux tu mieux expliquer ton probleme et si tu ne connait pas VBA il y a plein de tutoriel dans se site

http://vb.developpez.com/faqvba/

[mjanbar]

merci de ta réponse.

en fait je dispose d'un code qui copie ma plage de donnée de 4 colonnes et n ligne, puis la colle dans une deuxième feuille.

mon critère de selection = Masculin "M" qui se trouve à la quatrième colonne, le code est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub CreationOnglets()
 
Dim Rw As Range
Dim Ligne As Long
 
Sheets("Sheet1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
 
For Each Rw In Selection.Rows
 
Ligne = Rw.Row
 
If Rw.Cells(1, 4).Value = "M" Then
Rw.Copy Destination:=Worksheets("Sheet2").Cells(Ligne, 1).EntireRow
End If
 
Next Rw
 
'supprimer les lignes destination vides
Sheets("Sheet2").Activate
 
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

mon souci est que ce code commence à coller à partie de la première ligne de la feuille "sheet2", tandis que j'aimerais décaler le collage de quelques lignes en bas et coller à partir de la première ligne non vide de cette feuille (comme j'archive les données précédentes à fur et à mesure).

Merci de votre aide

[scully2501]

Je te dirais bien de mettre cela mais ton code est pas logique par rapport à ce que tu demandes car tu colles les lignes où tu veux mais ensuite tu supprimes les lignes vides donc ça revient forcement au début: essai cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub CreationOnglets()
 
Dim Rw As Range
Dim Ligne As Long
 
Sheets("Sheet1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
 
For Each Rw In Selection.Rows
 
Ligne = Rw.Row + 5
 
If Rw.Cells(1, 4).Value = "M" Then
Rw.Copy Destination:=Worksheets("Sheet2").Cells(Ligne, 1).EntireRow
End If
 
Next Rw
 
'supprimer les lignes destination vides
Sheets("Sheet2").Activate
 
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
'For r = derLi To 1 Step -1
'If Application.CountA(Rows(r)) = 0 Then
' Rows(r).Delete
' End If
 
'Next r
 
End Sub

Et dis nous si ça te convient

[mjanbar]

merci,

mais je sais toujours pas comment commencer le collage à partir de la première ligne non vide de ma base de donnée. (données classées en ordre chronologique croissant puisque actulisées quotidiennement)

[scully2501]

code qui permet de trouvé la dernière ligne utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
lastRow = Sheets("Sheet2").UsedRange.Rows.Count ' derniere ligne utilisé