Discussion :

[tounsy]

Bonjour,

J'ai regardé un peu partout sur le forum et malheureusment je ne trouve pas la solution pour :
- Depuis le Fichier Initial, couper les cellules dont la valeur en A et égale à 7,8,9,25,26,27,52,etc.. ( valeur a inscrire en dure dans le le code)
- Coller ces données dans la 1ere cellule E disponible et supprimer les cellules vides laissées en A, B et C (voir Fichier Final)

Ca va vous paraitre bête mais je ne suis pas très doué en VBA....

Merci pour votre aide !

@+

[fring]

Bonjour,

Ci-dessous une solution éventuelle, je fais deux passages via deux boucles, un passage qui se fait de haut en bas pour recopier la numérotation dans l'ordre, une autre de bas en haut pour supprimer les lignes vides. Il y a sans doute moyen de combiner les deux en un seul passage mais en attendant

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
Sub test()
Dim i As Integer, derl As Integer
 
Range("A1:C1").Copy Range("E1")
derl = Cells(Rows.Count, 5).End(xlUp).Row + 1
 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Select Case Cells(i, 1)
        Case 7 To 9, 25 To 27, 52 To 55, 64, 70
            Range(Cells(i, 1), Cells(i, 3)).Cut Cells(derl, 5)
            derl = derl + 1
    End Select
Next
 
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = "" Then Range(Cells(i, 1), Cells(i, 3)).Delete shift:=xlUp
Next
 
End Sub

[tounsy]

C'est exactement ce qu'il me fallait !!!!

Merci Fring !

@+