Discussion :

[jérémyp8]

Bonjour,

J'ai une macro qui m'extrait une quantité (une partie) de données de chaque document Word

Pour chaque document word la macro m extraire
sur la colonne A Le Nom du projet,
Sur la colonne B tous les Systemes d'exploitation OS
Sur la colonne C toutes les versions OS
........
........
et
Sur la colonne I la derniere date de modification de chaque document Word

Remarque :
Je laisse a chaque fois une ligne vide entre chaque partie de donnée extraite d'un seul document Word sur mon fichier Excel

Le test à faire : c'est de faire un parcours en gardant la date de modification la plus récente une fois ceci fait reparcourir en virant les données inutiles.
Et ce tant que la titre d'après est différent de celui d'avant (en descendant dans ta colonne)

Ci joint mon fichier Excel des données déjà extraites ou je veux integerer le test

Merciii

[EngueEngue]

La structuration rend le code hyper compliqué.
Tu devrais éviter de sauter des lignes et remplir les cases vides de la colonne A et I..

[jérémyp8]

Bonjour EngueEngue,

Merci pour ta réponse

Et dans le cas ou je ne laisserai pas de lignes, ( supposant que j'ai pas de lignes vides choses dont je peux m'empasser ) es ce que tu as une idée (un code) comment réaliser ce test ?

Merci

[EngueEngue]

S'il n'y avait qu'une seule ligne par document:

Sachant qu'il peut y en avoir plusieurs une technique serait de faire l'opération et de remplir les lignes que tu as supprimé.

Code :

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

1
2
3
4
5
6
7
8
9
10
sub toto
dim i as long
With feuil1
For i = 3 to .range("A1048576").end(xlup).row
if .cells(i,1) = .cells(i+1,1) and .cells(i,9)<.cells(i+1,9)
.Row(i).Delete
end if
next i
end with
end sub

Je me creuserais les méninges une fois que tu auras restructuré correctement

[jérémyp8]

Bonjour EngueEngue

J'ai testé ton code mais il rien ne se passe pas de supprission des lignes
voila la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim i As Long
With ThisWorkbook.Sheets("Feuil1")
For i = 3 To .Range("A1048576").End(xlUp).Row
If .Cells(i, 1) = .Cells(i + 1, 1) And .Cells(i, 9) < .Cells(i + 1, 9) Then
.Row(i).Delete
End If
Next i
End With
End Sub

Puis j'ai pas compris ta phrase : Sachant qu'il peut y en avoir plusieurs une technique serait de faire l'opération et de remplir les lignes que tu as supprimé ?

Merci

[Daniel.C]

Bonjour,

Que faire quand deux projets ont la même date ?