Discussion :

[cyberboy00]

Bonjour,
J'ai un fichier Excel avec une centaine de feuille. Chaque feuille contient 2 colonnes A et B. J'aimerais créer une nouvelle feuille au tout début du fichier qui contiendrait en ligne les noms de toutes les feuilles et seules les valeurs de la colonnes B qui correspondent à une valeur de la colonne A commançant par un caratère précis "XXXX".

D'avance merci !
Bonne soirée.

[L'Albatros]

Je n'ai pas le temps de faire une réponse très élaborée, mais 3 trucs me sont venus à l'esprit en lisant votre post:

• Boucle For Each worksheet 'pour parcourir l'ensemble des feuilles du classeur
• Création d'une nouvelle feuille: tester avec l'enregistreur de macros
• La condition sur le caractère précis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("A" & Compteur_Colonne) Like "XXXX*" Then

Je reviens tout à l'heure pour terminer

'-----------------------------------------------------------------------
Si j'ai pu vous aider, merci de me le dire avec 1 pouce vert

[cyberboy00]

J'ai commancé avec ce code mais je ne vois pas ou je dois inserer la condition "like A="XXXXX"...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Lancer_Click()
 
Dim Ws As Worksheet
Dim i As Integer
 
Set Ws = Sheets.Add(before:=Sheets(1))
 
 
For i = 2 To Worksheets.Count
  Worksheets(i).Range("B:B").Copy
 
  With Ws
  .Name = "Resultat"
  .Cells(i, 2).PasteSpecial Paste:=xlPasteValues
  End With
     Ws.Cells(i, 1).Value = Worksheets(i).Name
     Next i
 
 
Set Ws = Nothing
 
LOL.Hide
 
End Sub

Merci pour votre aide

[cyberboy00]

J'ai trouvé comment ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Dim Ws As Worksheet
Dim i,j As Integer
Dim NoCol As Integer
Dim NoLig As Long, Var As Variant
 
Set Ws = Sheets.Add(before:=Sheets(1))
 
  With Ws
  .Name = "Resultat"
   End With
j = 1
For i = 3 To Worksheets.Count
Ws.Range("A" & i - 1).Value = Sheets(i).Name
    NoCol = 3 'lecture de la colonne 3
    For NoLig = 1 To Split(Sheets(i).UsedRange.Address, "$")(4)
 
        If Sheets(i).Range("C" & NoLig).Value = "XXXXX" Then
        Ws.Range("B" & i - 1).Value = Sheets(i).Range("C" & NoLig).Value
        Ws.Range("C" & i - 1).Value = Sheets(i).Range("F" & NoLig).Value
 
        End If
    Next
 
Next i
 
Set Ws = Nothing