Macro VBA
Fermé
sisi
-
15 févr. 2011 à 15:59
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 - 15 févr. 2011 à 22:45
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 - 15 févr. 2011 à 22:45
A voir également:
- Macro VBA
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
2 réponses
voici la macro que j'ai ecrit :
Dim Rw As Range
Dim Ligne As Long
Dim Cellule As Range
Sheets("Feuil1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(1, 8).Interior.ColorIndex = 6 Then
Rw.Copy Destination:=Worksheets("Feuil2").Cells(Ligne, 3).EntireRow
End If
Next Rw
End Sub
cette macro ne fonctionne pas très bien car elle ne prend pas en compte les autres cellules jaunes a partir de K4.
Dim Rw As Range
Dim Ligne As Long
Dim Cellule As Range
Sheets("Feuil1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(1, 8).Interior.ColorIndex = 6 Then
Rw.Copy Destination:=Worksheets("Feuil2").Cells(Ligne, 3).EntireRow
End If
Next Rw
End Sub
cette macro ne fonctionne pas très bien car elle ne prend pas en compte les autres cellules jaunes a partir de K4.
Le Pingou
Messages postés
12225
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 décembre 2024
1 452
15 févr. 2011 à 22:45
15 févr. 2011 à 22:45
Bonjour,
Contrôler qu'elle est la plage sélectionnée par l'instruction :
Range(Selection, Cells(1)).Select
Car seul les cellules contenues dans cette plage peuvent-être copier et coller sur la feuille 2.
Contrôler qu'elle est la plage sélectionnée par l'instruction :
Range(Selection, Cells(1)).Select
Car seul les cellules contenues dans cette plage peuvent-être copier et coller sur la feuille 2.
