Selectionner des lignes sous condition
Résolu
Kuartz
Messages postés
852
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Selectionner des lignes sous condition
- Excel cellule couleur si condition texte - Guide
- Partager des photos en ligne - Guide
- Selectionner texte sur pdf - Guide
- Comment sélectionner un message sur whatsapp pour y répondre - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
7 réponses
Bonjour,
2 questions :
1- la couleur violette est une couleur de cellule ou due à une MFC?
2- pourquoi sélectionner?
2 questions :
1- la couleur violette est une couleur de cellule ou due à une MFC?
2- pourquoi sélectionner?
Bonjour,
Essaye ca plutot :
Cordialement,
Essaye ca plutot :
Sub TEST()
DL = Sheets("NATIONAL").Cells(Application.Rows.Count, 23).End(xlUp).Row
ligne = ActiveCell.Row
For i = ligne To DL
If Range("B" & i).Interior.Color = RGB(128, 0, 128) Then
Rows(ligne & ":" & i).Select
End If
Next i
End Sub
Cordialement,
Bonjour,
J'avais fait cela il y a quelque temps, il faudra mettre un point d'arrêt et adapter:
https://forums.commentcamarche.net/forum/affich-31994139-comment-savoir-si-une-cellule-est-colorer-ou-non-sur-vba#2
J'avais fait cela il y a quelque temps, il faudra mettre un point d'arrêt et adapter:
https://forums.commentcamarche.net/forum/affich-31994139-comment-savoir-si-une-cellule-est-colorer-ou-non-sur-vba#2
Je n'ai pas spécialement besoin de ça, la cellule étant colorée en violet sans MFC, pas besoin de condition (si couleur....). Je voudrais juste avoir accès à la ligne après ma cellule sélectionnée jusqu'à la prochaine ligne violette et je rajoute à ma demande (pardon, pas pris en compte au départ) ou jusqu'à la prochaine ligne vide.
Bonjour,
pour la ligne cellule active:
ensuite si la couleur est d'une MFC, prendre le meme test pour le code VBA
pour la ligne cellule active:
Ligne = ActiveCell.Row
ensuite si la couleur est d'une MFC, prendre le meme test pour le code VBA
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Non, ce n'est pas une MFC, simplement une couleur de cellule.
On n'est pas obligé de sélectionner, je vais simplement copier/coller ces données. Je cherche simplement à y avoir accès. Je vais regarder ton lien cs_Le Pivert, merci.
Non, ce n'est pas une MFC, simplement une couleur de cellule.
On n'est pas obligé de sélectionner, je vais simplement copier/coller ces données. Je cherche simplement à y avoir accès. Je vais regarder ton lien cs_Le Pivert, merci.
J'ai essayé ce code mais il ne marche pas :
Pourtant j'avais bon espoir..
Dim Col As Range, C As Range Ligne = ActiveCell.Row For Each C In Range(Cells(Ligne, 1), Cells(5000, 1)) If C.Interior.Color = RGB(128, 0, 128) Then C.Row = Ligne2 Range(Cells(Ligne, 1), Cells(Ligne2, 23)).Select Exit For End If Next End Sub
Pourtant j'avais bon espoir..
Dans mon code tu as tout pour faire ce que tu veux, numéro de ligne et colonne, il faut bien les placer!
Tu as les commentaires
Tu as les commentaires
Trouvé. Le code modifié :
Il me faut encore prévoir que si il n'y a pas de ligne violette, alors jusqu'à la dernière ligne mais ca devrait le faire.
Merci à tous.
Dim C As Range Ligne = ActiveCell.Row For Each C In Range(Cells(Ligne + 1, 1), Cells(5000, 1)) If C.Interior.Color = RGB(128, 0, 128) Then Ligne2 = C.Row Range(Cells(Ligne + 1, 1), Cells(Ligne2 - 1, 23)).Select Exit For End If Next End Sub
Il me faut encore prévoir que si il n'y a pas de ligne violette, alors jusqu'à la dernière ligne mais ca devrait le faire.
Merci à tous.
