Bonjour,

J'utilise un tableau pour sélectionner et recopier des données d'une feuille à une autre dans un fichier excel.

J'ai trouvé sur le net un exemple que j'ai adapté. J'y ai rajouté des formules 'RECHERCHEV' et j'obtiens une erreur 1004 à l'exécution. En retirant le caractère '=' le problème ne se pose plus mais m'oblige à faire un remplacement globalisé sur les formules entrées.

Avez-vous une idée pour éviter ce problème ?

Voici le code:

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
Sub Transfert()
Dim tablo1, i&, tablo2(), n&
tablo1 = Sheets("Feuil3").Range("A1:L" & Sheets("Feuil3").[A65536].End(xlUp).Row)
For i = 1 To UBound(tablo1)
  If tablo1(i, 1) Like "20" Then
    ReDim Preserve tablo2(3, n)
    tablo2(0, n) = tablo1(i, 7)
    tablo2(1, n) = "=RECHERCHEV(D" & n + 1 & ";NN!A$1:C$894;2;)"
    tablo2(2, n) = "=RECHERCHEV(D" & n + 1 & ";NN!A$1:C$894;3;)"
    tablo2(3, n) = tablo1(i, 9)
    n = n + 1
  End If
Next
If n Then
  Sheets("Prescription").[A1:D65536].ClearContents
  Sheets("Prescription").[A1].Resize(n, 4) = Application.Transpose(tablo2)
End If
End Sub
Merci d'avance à quiconque voudrait se pencher sur mon problème...

Hologramo