• Initiateur de la discussion Initiateur de la discussion Bruce68
  • 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 !

Bruce68

XLDnaute Impliqué
Bonsoir à tous
J'ai un tableau de 17 colonnes et dans colonne G j'ai: 1A,1B,1C,1D 2A,2B,2C,2D
3A, 3B,3C,3D, ce que je voudrais cette mettre dans une feuille toutes les lignes commençant par 1; 2 et 3 .En mettant 1 etoile cela ne fonctionne pas .
des 1A,1B,1C,1D 2A,2B,2C,2D 3A, 3B,3C,3D je peux en avoir des trentaine et je ne voudrais en recuperer que les 5 premiers :1*,2* et 3*.
Voici la macro que j'ai commmencée
Une ame charitable peut elle me dire la solution
For j = 3 To Nbr_Ligne + 2c,
If Cells(j, 7) = x Then
Range("A &j : R" & j).Select

x= 1*; 2*;3*

Bonne soirée à tous
 
Re : trouve

Rebonjour
As tu effectuer les changements suivants

1 - Pas obligatoire
derli = Sheets("TOURNOI").Columns(5).Find("*", , , , , xlPrevious).Row
ou la modifier en
derli = Sheets("TOURNOI").Columns(6).Find("*", , , , , xlPrevious).Row


2 - Nécessaire
For Each Cell In Sheets("TOURNOI").Range("F3:F" & DerLi)

3 - Nécessaire

Code:
  Select Case Left(Cell.Value, 1)
    Case "V": If a < monMax Then RemplirTableaux a, 1
    Case "S": If b < monMax Then RemplirTableaux b, 2
    Case "D": If c < monMax Then RemplirTableaux c, 3
    Case "[B]J[/B]": If d < monMax Then RemplirTableaux d, 4
'Ne mets pas [B]JU[/B], tu recherche juste le 1er caractère

'    Case 5: If e < monMax Then RemplirTableaux e, 5
'    Case 6: If f < monMax Then RemplirTableaux f, 6
'    Case 7: If g < monMax Then RemplirTableaux g, 7
  End Select

4 - Pas obligatoire
Tu peux aussi changer la condition de fin de boucle
If a + b + c + d + e + f + g = 7 * monMax Then Exit For
If a + b + c + d = 4 * monMax Then Exit For

5 - Pas obligatoire

Sheets("Serie").Range("A3:R" & 8 + 7 * monMax).ClearContents
Sheets("Serie").Range("A3:R" & 8 + 4 * monMax).ClearContents

Chez moi ça marche
En espérant que ce code devient plus claire

@+
 
- 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

Discussions similaires

Réponses
9
Affichages
532
Réponses
22
Affichages
1 K
  • Question Question
Microsoft 365 comparaison texte
Réponses
5
Affichages
713
Réponses
2
Affichages
861
Réponses
0
Affichages
2 K
Réponses
3
Affichages
857
Retour