Problème VBA Erreur 400

[Flux]

Bonjour,

Je débute en VBA mais pas en programmation en générale.
Je souhaiterais réaliser une indexation pour une feuille.

Je m'explique

Dans la Feuille1 J'ai

TOTO
TATA
TITI
TOTO
TITI
TATA

Dans la feuille2 j'ai
Col1 Col2
1 TOTO
2 TITI
3 TATA

Je souhaite remplacer TOTO, TATA, TITI dans la feuille 1 par les valeurs de col1 dans la feuille2

J'ai pondu ce bout de code mais marche po

sub recherche()

For I = 1 To Worksheets("Feuil1").Range("A1", [A1].End(xlDown)).Count
For j = 1 To Worksheets("Feuil2").Range("B1", [A1].End(xlDown)).Count
If Worksheets("Feuil1").Range("AI").Value = Worksheets("Feuil2").Range("BJ").Value Then
Worksheets("Feuil1").Range("AI").Value = Worksheets("Feuil2").Range("AJ").Value
End If
Next j
Next I

end sub

Si quelqu'un peux m'aider ?

Merci
Bonne journée

 

[CBernardT]

Re : Problème VBA Erreur 400

Bonjour Flux,

Je te propose une réponse utilisant les tableaux dynamiques :

Option Explicit
Option Base 1
Sub recherche()
Dim i As Integer, j As Integer, n As Integer, l As Integer
Dim Tab1 As Variant, Tab2 As Variant

n = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
l = Worksheets("Feuil2").Range("B65536").End(xlUp).Row

Tab1 = Worksheets("Feuil1").Range("A2:A" & n)
Tab2 = Worksheets("Feuil2").Range("A2:B" & l)

For i = 1 To n - 1
For j = 1 To l - 1
If Tab1(i, 1) = Tab2(j, 2) Then
Tab1(i, 1) = Tab2(j, 1)
End If
Next j
Next i
Worksheets("Feuil1").Range("A2:A" & n) = Tab1
End Sub

Cordialement

Bernard

 

[ChTi160]

Re : Problème VBA Erreur 400

Salut Flux
Bonjour Bernard
Arffff je te fais un bisous lol je ne t'avais pas vu (Hervé) normal tu es derrière
il faudait que tu évites de multiplier les posts

https://www.excel-downloads.com/threads/probleme-vba-erreur.64731/

je pense que la réponse te sera donnée dans ton premier post
bonne journée

 

[Hervé]

Re : Problème VBA Erreur 400

bonjour 🙂


une autre approche par l'utilisation de find :

Dim c As Range
Dim ce As Range

With Sheets("feuil1")
    For Each c In .Range("a1:a" & .Range("a65536").End(xlUp).Row)
        Set ce = Sheets("feuil2").Columns("B").Find(c)
        If Not ce Is Nothing Then
            c = ce.Offset(0, -1)
        End If
    Next c
End With

salut