trouve

[Bruce68]

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

 

[fred65200]

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

  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

@+