Discussion :

[Litobig]

Bonjour, je me tourne vers vous car je ne trouve pas la solution à mon problème.
Je débute sous VBA et j'ai quelques trucs emboités.
La ligne

Code :

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

If Cells(i, 7) >= Cells(1, x) And Cells(i, 7) < Cells(1, x + 1) Then

semble responsable d'une erreur "1004 définie par l'application ou l'objet".

Bizarrement, malgré l'erreur, une première colonne se remplit mais la boucle avec "c" ne fait qu'un seul tour.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Sub fNIRS()
 
Dim col As Range
Dim cel As Range
Dim i As Long
Dim x As Long
Dim c As Integer
 
For c = 2 To 6
 
    For i = 9 To 1000
 
    x = 12
 
        If Cells(i, 7) <> "" Then
 
         Do
 
            If Cells(i, 7) >= Cells(1, x) And Cells(i, 7) < Cells(1, x + 1) Then
            Cells(i, c).value = Cells(c, x).value
            Else
            x = x + 1
            End If
 
         Loop Until Cells(i, c) <> ""
 
        End If
 
    Next i
 
Next c
 
End Sub

Avez-vous une idée ?

Merci

[Litobig]

En remplacant "" par " ", l'erreur disparait mais ma boucle ne fonctionne plus. Je continue à chercher

[Litobig]

Bien, j'ai résolu mon propre problème.
Dans ma situation, le problème venait de ce que certaines conditions ne pouvaient être testées.
J'ai donc écris une formule incluant toutes les valeurs possibles des cellules de ma colonne.

Je donne pour la petite histoire

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub fNIRSBloc()
 
Dim i As Long
Dim x As Long
Dim c As Integer
 
 
'démarrage de la macro de transposition
Cells(1, 1) = "*"
 
For c = 2 To 6
 
 
    For i = 9 To 1000
 
        If Not IsEmpty(Cells(i, 7)) Then
 
            x = 12
 
         While IsEmpty(Cells(i, c))
 
            If IsEmpty(Cells(1, x + 1)) Then
            Cells(i, c).value = Cells(1, 1).value
            ElseIf Not IsEmpty(Cells(1, x + 1)) Then
 
                If Cells(i, 7) >= Cells(1, x) And Cells(i, 7) < Cells(1, x + 1) Then
                Cells(i, c).value = Cells(c, x).value
                Else
                x = x + 1
                End If
 
            End If
 
        Wend
 
 
        End If
 
    Next i
 
 
Next c
 
End Sub

Bonne journée !