Discussion :

[Mugette]

Comment fait-on pour tester si une valeur existe dans une ligne ?
J'ai fais ça mais ça marche pas ...comme d'hab.

Code :

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

1
2
3
4
5
6
7
8
 
i = 1
If Workbooks("local_masse.xls").Worksheets("lm2").Cells(1, i).Value = "w" Then
 
    MsgBox ("fin")
    i = i + 1
 
End If

[Catbull]

Le code est correct. Ce code est à l'intérieur d'une boucle? Il y a-t-il des cellules sur la première ligne qui contiennent la valeur w?

[Mugette]

oui il y en a une je voudrais remplir un tableau de valeur de ma premiere ligne allant de la cellule E1 à celle qui contient le w.

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
 
 
Dim tab_report()
Dim i
Dim k
 
Public Sub traitement_report()
 
    Workbooks("local_masse.xls").Worksheets("lm2").Activate
 
    i = 0
    k = 1
    While Workbooks("local_masse.xls").Worksheets("lm2").Cells(1, i + 1).Value = "w"
        ReDim Preserve tab_report(2, k)
        tab_report(0, i) = Workbooks("local_masse.xls").Worksheets("lm2").Cells(1, i).Value
        tab_report(1, i) = "P"
        i = i + 1
        MsgBox ("ok")
    Wend
 
End Sub

Le code ci dessus est censé faire ca mais ca marche pas.
Mes cellules excel contiennent :
A01 A02 A05 A06 ...
Je voudrais mettre ces valeurs dans une colonne d'un tableaux à deux dimensions et mettre des "P" dans ma deuxième colonne.
Peut-tu m'aider?