[XL-2007] Lancer une boucle à partir d'une cellule [Résolu]

[vgrenet]

Bonjour tout le monde,

J'ai le code suivant qui supprime les colonnes qui n'ont pas la valeur 1 dans au moins une cellule.
le problème est que mes entêtes de colonnes ou ligne peuvent comporter des chiffres dont le 1. Je voudrais que le code ne démarre qu'a partir d'une cellule déterminée (dans mon cas B5) pour préserver les entêtes.

voici le code :

Code :

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
Sub suppression()
 
j = 1
Cells(1, j).Select
Do While Cells(1, j) <> "" ' tant que dans ta colonne A tu as une valeur
a = ""
i = 1
 
Do While Cells(i, j) <> "" 'tant que tu as une valeur dans la ligne i et la colonne j
Cells(i, j).Select
If Cells(i, j) = 1 Then 'si la celule contient 1 alors la variable a = trouve
a = "trouve"
End If
i = i + 1
Loop
 
If a = "" Then
Columns(j).Select
Selection.Delete Shift:=xlToLeft
j = j - 1
 
End If
 
j = j + 1 'on va à la colonne suivante
Loop
End Sub

Quelqu'un as une idée ?

PS : je remercie encore mélanie pour le code...


Merci

[vgrenet]

En effet c'est tout bête, il suffit de mettre i = 5 et j = 2

Désolé pour avoir mis un post pour quasi rien...

Bonne journée