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