Discussion :

[kacedda]

Bonjour,

Dans mon classeur j'ai une page: MaPage, qui contient une liste de nom de la cellule B2=>B8.
Je souhaite dans mon VB script parcourir la liste pour faire des tests, je cherche à faire quelque chose comme:

Code :

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

1
2
3
4
5
For strName = LBound(Sheets("MaPage!B2:B8")) To UBound(Sheets("MaPage!B2:B8"))
 
        ' Traitement
 
Next

Évidemment, cela ne fonctionne pas, ce serait trop facile
Connaissez vous une méthode propre? (sans que je galere à faire des Cell(i++,c).select...)
Quelque chose dans l'idée du foreach serait bien sympa...

Merci

[chrisbdx]

Bonjour,

voici un code qui devrait fonctionner normalement :

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
 
 
Sub test()
Dim LigneActive As Long
 
Sheets("MaPage").Select
Range("B2:B8").Select
 
   While ActiveCell.Value <> Empty
                LigneActive = ActiveCell.Row
 
                "Condition"
                ActiveCell.Offset(1, 0).Activate
 
    Wend
 
End Sub

Je débute, mais c'est un code éprouvé.
J'espère que cela répondra au problème
Christelle

[laetitia]

bonjour kacedda chrisbdx quelques exemple simple
1 exemple boucle sur la colonne b de b2 a b8 si =2 vide la cellule

Code :

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

1
2
3
4
5
6
Sub es()
 Dim i As Byte
  For i = 2 To 8
    If Cells(i, 2) = 2 Then Cells(i, 2) = ""
  Next i
End Sub

meme exemple mais tu lances ta macro d'une autre feuille teste sur feuille2

Code :

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

1
2
3
4
5
6
7
Sub essai()
 Dim i As Byte
  For i = 2 To 8
    With Sheets("feuil2")
    If .Cells(i, 2) = 2 Then .Cells(i, 2) = ""
  End With:  Next i
End Sub

autre exemple de b2 jusqu'a la derniere cellule non vide de la colonne la variable a change

Code :

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

1
2
3
4
5
6
Sub essai2()
Dim i As Long
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2) = 2 Then Cells(i, 2) = ""
Next i
End Sub

idem sur une autre feuille

Code :

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

1
2
3
4
5
6
7
Sub essai3()
Dim i As Long
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
 With Sheets("feuil2")
If .Cells(i, 2) = 2 Then .Cells(i, 2) = ""
End With: Next i
End Sub

on peut aller plus loin en passer par des "tablos" mais bien plus complique a comprendre