Discussion :

[Marianne Hbt]

Bonjour !

Surement une question bête mais je ne trouve pas la réponse...

Je voudrais boucler sur des cellules qui ne se suivent pas.

Exemple, au lieu d'écrire

Code :

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

For i = 1 To 10

Je voudrais écrire quelque chose comme

Code :

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

For Each i In [1,4,5,8,10]

C'est à dire que je voudrais ne pas boucler sur les lignes 2, 3, 6, 7, 9 ; je précise que c'est vraiment aléatoire, un step ne peut pas m'aider.

[MarcelG]

Bonjour,

Autrement dit tu souhaites boucler sur un tableau à une dimension.

Code :

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

For Each i in Array(....

Tu trouveras sur ce forum bien des exemples.

[Marianne Hbt]

Bonjour MarcelG et merci pour ton aide !

C'était vraiment une question bête.. En fait j'avais essayé cette solution et ça ne fonctionnait pas, mais tout simplement parce que j'avais écris

Code :

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

Dim i As Integer

juste avant...

[MarcelG]

Salut,

En effet,
Les variables balayant un Array doivent être déclarées en Variant ou Object.

[florent77]

Bonjour,

Une possibilité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub boucle()
Dim ListeCellules As Variant
Dim i As Integer
 
    ListeCellules = Array(1, 4, 5, 8, 10)
 
    For i = 0 To 4
        Worksheets("Feuil1").Cells(ListeCellules(i), 1) = "ligne " & ListeCellules(i)
    Next i
 
End Sub

[MarcelG]

Bonjour,

2 remarques:
- Personnellement, je bouclerais sur les valeurs de i comprises entre la valeur minimum (LBound) et celle maximum (UBound) de l'Array
- Pourquoi faire simple?

[florent77]

Exact Marcel, ben tu viens de me faire piger un nouveau truc, merci au passage

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub boucle()
Dim ListeCellules As Variant
Dim i As Integer
 
    ListeCellules = Array(1, 4, 5, 8, 10, 11, 15)
    For i = LBound(ListeCellules, 1) To UBound(ListeCellules, 1)
        Worksheets("Feuil1").Cells(ListeCellules(i), 1) = "ligne " & ListeCellules(i)
    Next i
 
End Sub

[MarcelG]

Salut Florent,

Je ne suis pas sûr que l'argument 1 soit utile.

L'Array est à 1 dimension.

[florent77]

Tout à fait, ben un deuxième truc dans la poche !
Je pensais qu'il fallait préciser l'argument
Merci Marcel

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub boucle()
Dim ListeCellules As Variant
Dim i As Integer
 
    ListeCellules = Array(1, 4, 5, 8, 10, 11, 15)
    For i = LBound(ListeCellules) To UBound(ListeCellules)
        Worksheets("Feuil1").Cells(ListeCellules(i), 1) = "ligne " & ListeCellules(i)
    Next i
 
End Sub

[Marianne Hbt]

Bonjour florent77 & rebonjour MarcelG

Vous m'intriguez je n'ai pas compris cette manipulation avec Array / LBound / UBound (j'apprends VBA en autodidacte et je bloque parfois sur des choses très très simples, désolée... )

J'ai écris ceci avec les indications de Marcel :

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
Sub test()
 
For Each i In Array(12, 13, 14, 17, 20, 21, 22, 23, 26)
 
If ThisWorkbook.Worksheets(1).Range("D" & 1) = ThisWorkbook.Worksheets(1).Range("A" & 1) Then
ThisWorkbook.Worksheets(1).Range("E" & i).Value = ThisWorkbook.Worksheets(1).Range("A" & ThisWorkbook.Worksheets(1).Range("F" & i).Value).Value
End If
 
If ThisWorkbook.Worksheets(1).Range("D" & 1) = ThisWorkbook.Worksheets(1).Range("B" & 1) Then
ThisWorkbook.Worksheets(1).Range("E" & i).Value = ThisWorkbook.Worksheets(1).Range("B" & ThisWorkbook.Worksheets(1).Range("F" & i).Value).Value
End If
 
Next i
 
End Sub

Ce serait plus pertinent que j'utilise les éléments dont vous parlez ?

[MarcelG]

Bonsoir,

S'il te plaît, allège ton code.
Cela le rendra plus lisible

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
Option Explicit
 
Sub test()
 
Dim i As Variant
 
With ThisWorkbook.Worksheets(1)
 
        For Each i In Array(12, 13, 14, 17, 20, 21, 22, 23, 26)
 
                If .Range("D" & 1) = .Range("A" & 1) Then _
                        .Range("E" & i).Value = .Range("A" & .Range("F" & i).Value).Value
 
                If .Range("D" & 1) = .Range("B" & 1) Then _
                        .Range("E" & i).Value = .Range("B" & .Range("F" & i).Value).Value
 
        Next i
 
End With
 
End Sub

Oui, tu peux déclarer ton Array et utiliser les fonctions LBound et UBound

Voir

variables tableaux

Par contre, je ne comprends pas

Code :

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

1
2
 
.Range("B" & .Range("F" & i).Value).Value

A demain