VBA débutant complètement largué

[Mathias21]

Bonjour à tous,

Je vous écris de désespoir après avoir passé la journée au boulot à essayer de mettre en place une macro vba qui ne fonctionne qu'à moitié à l'heure où je vous écris.

Voici mon problème:
Sur la première feuille de mon classeur, j'ai un tableau croisé dynamique dont certaines lignes sont en rouge.
Ce que j'aimerais, c'est copier ces lignes rouges (et uniquement celles-ci) et les coller à la suite dans une deuxième feuille.

La macro VBA que j'ai réalisée ne me permet pour l'instant que de copier ces lignes et de les coller sur une seule et même ligne (elles se superposent pour au final n'afficher que la dernière ligne rouge.

Ci-joint le fichier en question avec la macro:

Sub MacroTab()
'
' MacroTab Macro
Dim a As Range
For Each a In ActiveSheet.Range("a1:a30000")
If (a.Interior.Color = RGB(250, 0, 0)) Then
a.EntireRow.Copy

End If

Next

Sheets("Sheet1").Select
Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
ActiveSheet.Paste

End Sub


Merci d'avance pour vos réponses.

 

[kjin]

Re : VBA débutant complètement largué

Bonjour,
Tu boucle sur les lignes de ton TCD, tu copies la plage, et...tu oublies de coller les cellules, donc forcément...
A noter que je n'ai pas pu ouvrir ton fichier avec le convertisseur
A+
kjin

 

[mth]

Re : VBA débutant complètement largué

Bonjour Mathias21

Peut-être ainsi (ty copies les lignes mais il manquait le collage )

Sub MacroTab()
'
' MacroTab Macro
Dim a As Range
For Each a In ActiveSheet.Range("a1:a30000")
If (a.Interior.Color = RGB(250, 0, 0)) Then
  a.EntireRow.Copy Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next
 
End Sub

Bonne journée,

mth

Edit: Oups ....
Bonjour Kjin 🙂

 

[Cousinhub]

Re : VBA débutant complètement largué

Bonsoir,

Hi, les jeunes (Kjin et Mireille.....)

Est-il bien nécessaire de tester jusqu'à la ligne 30 000?????? 😀😀

En reprenant le code de Mireille :

Sub MacroTab()
Dim a As Range
With Sheets("Pivot table Why non-conform")
    For Each a In .Range("a1:a" & .[A65000].End(xlUp).Row)
        If a.Interior.ColorIndex = 3 Then
            a.EntireRow.Copy Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)(2)
        End If
    Next a
End With
End Sub

Bonne soirée

 

[mth]

Re : VBA débutant complètement largué

re 🙂

Un petit post complètement hors sujet ... mais pour le plaisir de faire une grosse bise à Hubert 🙂 🙂

@ +

m

 

[Cousinhub]

Re : VBA débutant complètement largué

Hi (bis)

Aussi complètement hors sujet, juste pour :

@ Mireille, te retourner les bises

@ Kjin, bizarre que tu n'aies pu ouvrir son fichier, je l'ai ouvert avec 2003 & convertisseur (car même si mon pedigree indique 2007, j'ai les 2 versions...)
Mathias, pourrais-tu nous confirmer ta version Excel utilisée (2007 ou 2010)?
Comme je possède 2 versions (2003 et 2007), peut-être que le convertisseur utilise une dll de 2007 que ne possèderait pas les versions antérieures????
A suivre...

 

[Mathias21]

Re : VBA débutant complètement largué

Bonjour à tous et désolé pour le temps mis à vous répondre, Internet est quelque peu capricieux depuis le Vietnam.

Je vous dois un grand merci pour votre aide, ça marche du tonerre.

La version d'Excel que j'utilise est bien celle de 2007.

En tout cas, continuez comme ça, nous sommes beaucoup à ne pas encore maîtriser tous les rouages d'Excel et votre aide s'avère très précieuse.

Bonne journée