Discussion :

[hologram]

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

[Kimy_Ire]

Bonjour hologram,

Je te propose de t'orienter vers la méthode FormulaLocal.
Tu vas voir, ça va tout de suite mieux fonctionner !

Cordialement,
Kimy

[hologram]

Merci Kimy_Ire pour ta réponse,

Je viens de regarder ce que tu propose et si je ne me trompe pas tu veux permettre à VBA de traduire ma formule. Si c'est cela, j'avais déjà essayé avec la formule VLOOKUP sans plus de succès....

A toutes fins utiles je travaille avec excel 2013.

Hologram

[Kimy_Ire]

Bonjour hologram,

Non...
Voici un exemple très simple :

Code :

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

1
2
3
Sub form()
Range("A1").FormulaLocal = "=SOMME(A1:B1)"
End Sub

Cordialement,
Kimy

[hologram]

Bonjour à tous le monde et particulièrement à Kimy,

J'ai intégré les informations dans mon code en isolant celles-ci du tableau transmis comme ceci et ça marche à merveille !

Merci

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
 
Sub Transfert()
Dim tablo1, i&, tablo2(), n&, FinColonne
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(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
FinColonne = Sheets("Prescription").[A65536].End(xlUp).Row
Range("B1:B" & FinColonne).FormulaLocal = "=RECHERCHEV(D1;NN!A$1:C$894;2;)"
Range("C1:C" & FinColonne).FormulaLocal = "=RECHERCHEV(D1;NN!A$1:C$894;3;)"
End Sub