Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA débutant complètement largué

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Mathias21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Mathias21

Guest
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.
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Re : VBA débutant complètement largué

Bonjour Mathias21

Peut-être ainsi (ty copies les lignes mais il manquait le collage )
Code: 
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 🙂
 
Vote positif 0 Vote négatif
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 :

Code: 
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
 
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
760
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
676
Quentin2106
Q
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
804
Oneida
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
V
  • Résolu(e)
Microsoft 365 Macro pour sélectionner une plage de cellules selon une couleur de remplissage donnée
Réponses
2
Affichages
1 K
vash966
V
R
  • Question Question
XL 2021 Optimisation Code VBA
Réponses
10
Affichages
1 K
Dranreb
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
R
  • Question Question
XL 2010 VBA : consolidation
Réponses
2
Affichages
988
Rousseau Benoit
R
M
  • Question Question
Microsoft 365 Evolution macro - VBA - Copier/coller en fonction d'une ligne
Réponses
6
Affichages
2 K
melinavy
M
O
  • Résolu(e)
XL 2013 VBA qui copie et colle dans un autre fichier des données selon différentes conditions
Réponses
3
Affichages
1 K
onyirimba
O
G
  • Question Question
Microsoft 365 VBA : Copier-Coller
Réponses
1
Affichages
919
Rossoneri83
R
M
  • Résolu(e)
XL 2016 Pb avec code VBA
Réponses
10
Affichages
1 K
MickaeL_D
M
  • Résolu(e)
XL 2019 alléger code VBA (supprimer activate / select / copy / activate / select / paste)
Réponses
4
Affichages
2 K
Eric 888
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…