Discussion :

[DJ FA]

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
Sub selectionner_des_lettres_dans_colonne_C()
Dim i As Long, j As Long, n As Long
Dim oList
Dim lig As Integer
oList = Array("D") ' Liste des lettres à sélectionner.
j = Sheets("l3_2").Range("A65536").End(xlUp).Row + 1
   For n = 0 To LBound(oList)
      For i = 1 To Sheets("passage").Range("A65536").End(xlUp).Row
        If Sheets("passage").Cells(i, 6).Value = oList(n) Then
        Sheets("13_2").Range(Sheets("l3_2").Cells(j, 1), Sheets("13_2").Cells(j, 10)).Value = _
               Sheets("passage").Range(Sheets("passage").Cells(i, 1), Sheets("passage").Cells(i, 10)).Value
        j = j + 1
        End If
      Next i
   Next n
End Sub

Avec cette fonction j'ai une erreur qui dit, "Indice en dehors de la plage (erreur 9)
". Il me parle de Dim Redim ???? Quelle est la solution ? merci

[mercatog]

Vérifie les nom de tes feuilles

[DJ FA]

Rien que ça ! ah ok merci.

[mercatog]

Encore!

Code :

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

For n = 0 To LBound(oList)

tu veux dire UBound, oui?

[ucfoutu]

Bonjour (et un salut à mercatog),

Et :

Code :

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

oList = Array("D")

fait que oListe ne contient qu'un seul élément, d'indice 0
et on se demande pourquoi n est typé en long pour ... si (vraiment si) peu ...
et

Code :

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

If Sheets("passage").Cells(i, 6).Value = oList(n) Then

est donc :

Code :

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

 If Sheets("passage").Cells(i, 6).Value = "D" Then

[DJ FA]

Merci les amis, je vais essayer.