Traitement de données par macros...

[jozerebel]

Bonjour à tous,

Après plusieurs essais, j'ai décidé de reprendre à partir de 0, car mon fichier a pa s mal buggé...

Voilà rapidement ce que je souhaite faire:
Faire une copie de cellules conditionnée
Supprimer des lignes sous conditions
Convertir des cellules au format date "jj/mm/aaaa"
Faire une extraction sans doublon sur une autre feuille.

le tout sur excel 2003 (je dis ça pour l'extraction, enfin je crois...🙂)

Je poste un fichier qui sera plus parlant.

Merci à tous pour votre aide précieuse.

 

[Papou-net]

Re : Traitement de données par macros...

Bonsoir jozerebel,

Voici ton fichier avec les macros demandées.

Les 3 premières sont opérationnelles, la quatrième est à affiner.

Je continuerai plus tard.

Je te laisse le soin de tester.

Cordialement.

 

[jozerebel]

Re : Traitement de données par macros...

Bonjour Papou-net!

Merci pour ton travail.

En effet, les 3 premières macros sont OK!!!

La dernière est KO, elle ne supprime pas les doublons.

Merci encore pour ton aide!

A plus tard.

 

[Papou-net]

Re : Traitement de données par macros...

RE:

Bonjour jozerebel,

N'ayant pas encore trouvé de démarche plus rapide pour la macro n°4, je me suis contenté d'y ajouter une boucle d'effacement des doublons (lignes bleues, la ligne rouge est à déplacer).

Sub Extract()
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = InputBox("Nom de la feuille : ", "Nouvelle Feuille", "A" & Sheets.Count + 1)
With Sheets("A")
  ld = 2
  For lg = 2 To .Range("A65536").End(xlUp).Row
    Set client = ActiveSheet.Range("A:A").Find(.Cells(lg, 1), LookIn:=xlValues, lookat:=xlWhole)
    Set debut = ActiveSheet.Range("B:B").Find(.Cells(lg, 10), LookIn:=xlValues, lookat:=xlWhole)
    Set fin = ActiveSheet.Range("C:C").Find(.Cells(lg, 11), LookIn:=xlValues, lookat:=xlWhole)
    If Not client Is Nothing And Not debut Is Nothing And Not fin Is Nothing Then GoTo Suite
      ActiveSheet.Cells(ld, 1) = .Cells(lg, 1)
      ActiveSheet.Cells(ld, 2) = .Cells(lg, 10)
      ActiveSheet.Cells(ld, 3) = .Cells(lg, 11)
    ld = ld + 1
Suite:
  Next
End With
[COLOR="Navy"][B]With ActiveSheet
  [COLOR="Red"].Range("B:C").NumberFormat = "dd/mm/yyyy"[/COLOR]
  For lg = .Range("A65536").End(xlUp).Row To 2 Step -1
    If .Cells(lg, 1) = .Cells(lg - 1, 1) And .Cells(lg, 2) = .Cells(lg - 1, 2) And _
    .Cells(lg, 3) = .Cells(lg - 1, 3) Then
      Rows(lg & ":" & lg).Delete
    End If
  Next
End With[/B][/COLOR]
End Sub

Ce n'est pas très élégant au niveau programmation, mais ça fonctionne.

Cordialement.

 

[jozerebel]

Re : Traitement de données par macros...

Merci Papou net !

J'essaierais ça cet après midi.

Encore merci pour ton aide!