Problème VBA Erreur 400

Flux · 20 Juillet 2006

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 · 20 Juillet 2006

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 · 20 Juillet 2006

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é · 20 Juillet 2006

Re : Problème VBA Erreur 400

bonjour 🙂

une autre approche par l'utilisation de find :

Code:

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

Problème VBA Erreur 400

Flux

Guest

CBernardT

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires

Problème VBA Erreur 400

Flux

Guest

CBernardT

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency