Macro a corriger

camarchepas

XLDnaute Barbatruc

• 21 Mai 2010

• #2

Re : Macro a corriger

Bonsoir,

Voilà, juste ajouter une condition dans la 2° boucle pour passer la 3° itération sans rien faire

 

Pièces jointes

• EXA.xls

  42.5 KB · Affichages: 42
• EXA.xls

  42.5 KB · Affichages: 37
• EXA.xls

  42.5 KB · Affichages: 36

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 21 Mai 2010

• #3

Re : Macro a corriger

Bonjour, bonjour camarchepas.

Merci, pour ton aide.
Bonne journée.
A+

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 24 Mai 2010

• #4

Re : Macro a corriger

Bonjour,

J'ai essayé d'adapter une macro et le résultat est nul.
Avez vous une idée ?
Merci, d'avance.
A+

 

Pièces jointes

• EXA(1)2.xls

  38.5 KB · Affichages: 41

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Mai 2010

• #5

Re : Macro a corriger

Bonsoir

Avez vous une idée ?

Cliquez pour agrandir...

Oui .Utiliser l'enregistreur de macros
Ce que je viens de faire
Voici ce que cela donne (code légèrement remanié)

Code:

Sub Macro1()
Range("K2").FormulaR1C1 = "=OR(RC[-7]=""U"",RC[-7]=24,RC[-7]=27)"
Range("D1:J15").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Feuil1.Range( _
        "K1:K2"), CopyToRange:=Feuil2.Range("A1"), Unique:=False
    Feuil2.Range("B:B,D:D,F:F").Delete Shift:=xlToLeft
    Feuil2.Range("A2:D4").Copy
    Feuil2.Range("A5:A8").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
Feuil2.Rows("1:4").Delete Shift:=xlUp
With Feuil2.[A1].CurrentRegion
    .Interior.ColorIndex = xlNone
    .Borders.LineStyle = xlContinuous
End With
End Sub

Voici comment sont les données en Feuil1

 

Pièces jointes

• result.jpg

  24.9 KB · Affichages: 63
• result.jpg

  24.9 KB · Affichages: 62

Dernière édition: 24 Mai 2010

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 24 Mai 2010

• #6

Re : Macro a corriger

Bonjour,

J'avais pas lu tous l'énoncé,

Voici un solution :

 

Pièces jointes

• EXA_2.xls

  42 KB · Affichages: 43

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 24 Mai 2010

• #7

Re : Macro a corriger

Bonsoir,

Grand merci à camarchepas, Staple1600.
Une fois de plus, vous avez trouver la bonne solution.

Bonne soirée.
A+

 

Vote positif 0 Vote négatif