Problème macro rechercheV excel

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai un légé probleme avec mon code:
Code:

1 2 3 4 5 6 7 8 9 10 For i = 4 To Sheets("Test").UsedRange.Rows.Count If IsNumeric(Sheets("Test").Cells(i, "K").Value) Then For J = 1 To Sheets("Base de donnée").UsedRange.Rows.Count If Sheets("Base de donnée").Cells(J, "A").Value = Sheets("Test").Cells(i, "k").Value Then Sheets("Test").Cells(i, "s") = Sheets("Base de donnée").Cells(J, "B").Value Exit For End If Next J End If Next i
Dans la feuille test, colonne K, j'ai des valeurs ex: "08001 test", "08003 Test1", "08004 Test4" etc...

Dans ma feuille Base de données, colonne A, j'ai des valeurs ex: 08001, 08002, 08003 ..........

Donc la différence, c'est que dans la première feuille, il y a du texte rattaché au numéro.

Je veux être capable de faire une recherche sans qu'il ne tienne compte des lettes. Seulement les numéros.

Comment faire s.v.p

Merci pour votre aide.

08/01/2010, 23h24
mercatog

Bonsoir,
essaies ceci (pas testé)

Code:

Val(Sheets("Base de donnée").Range("A" & J).Value) = Val(Sheets("Test").Range("K" & i).Value)

Bonsoir le forum, :D

Pourquoi ne pas tester ta cellule de ta feuille "test" en reprenant les valeurs de la cellule de la feuille "Base de données".

Je le vois ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
For i = 4 To Sheets("Test").UsedRange.Rows.Count
   If IsNumeric(Left(Sheets("Test").Cells(i, "K"),5) Then
       For J = 1 To Sheets("Base de donnée").UsedRange.Rows.Count
           If Sheets("Base de donnée").Cells(J, "A").Value = left(Sheets("Test").Cells(i, "k"),Len(Sheets("Base de donnée").Cells(J, "A")) Then
                Sheets("Test").Cells(i, "s") = Sheets("Base de donnée").Cells(J, "B").Value
               Exit For
           End If
       Next J
   End If
Next i

à tester.

Bonjour,

J'ai changé pour

Code:

1
2
3
4
5
6
7
8
9
10
11
For i = 4 To Sheets("Test").UsedRange.Rows.Count
   If IsNumeric(Sheets("Test").Cells(i, "K").Value) Then
       For J = 1 To Sheets("Base de donnée").UsedRange.Rows.Count
           If Val(Sheets("Base de donnée").Cells(J, "A").Value) = Val(Sheets("Test").Cells(i, "k").Value) Then
                Sheets("Test").Cells(i, "s") = Sheets("Base de donnée").Cells(J, "B").Value
 
               Exit For
           End If
       Next J
   End If
Next i

Mais négatif, ça ne donne pas le résult escompté.

je viens de tester aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
For i = 4 To Sheets("Test").UsedRange.Rows.Count
   If IsNumeric(Left(Sheets("Test").Cells(i, "K"), 5)) Then
       For J = 1 To Sheets("Base de donnée").UsedRange.Rows.Count
           If Sheets("Base de donnée").Cells(J, "A").Value = Left(Sheets("Test").Cells(i, "k"), Len(Sheets("Base de donnée").Cells(J, "A"))) Then
                Sheets("Test").Cells(i, "s") = Sheets("Base de donnée").Cells(J, "B").Value
               Exit For
           End If
       Next J
   End If
Next i
End Sub

Négatif, il ne donne aucun résultat, même si je laisse que le numéro de 5 caractères sans texte.

tu n'entre dans ta 2ème boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Long, j As Long
 
For i = 4 To Sheets("Test").UsedRange.Rows.Count
   If Val(Sheets("Test").Cells(i, "K").Value) > 0 Then
       For j = 1 To Sheets("Base de donnée").UsedRange.Rows.Count
           If Val(Sheets("Base de donnée").Cells(j, "A").Value) = Val(Sheets("Test").Cells(i, "k").Value) Then
                Sheets("Test").Cells(i, "s") = Sheets("Base de donnée").Cells(j, "B").Value
               Exit For
           End If
       Next j
   End If
Next i

Bonjour,
Peut-être comme ça ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim CP As String
    With Sheets("Base de donnée")
    For i = 4 To Sheets("Test").UsedRange.Rows.Count
       CP = Trim(Left(Sheets("Test").Cells(i, k), 6))
       If IsNumeric(CP) Then
           For J = 1 To .UsedRange.Rows.Count
               If Trim(.Cells(J, "A")) = CP Then
                    Sheets("Test").Cells(i, "s") = .Cells(J, "B").Value
                   Exit For
               End If
           Next J
       End If
    Next i
    End With
End Sub

A+

Outch, Désolé, je viens de me rendre compte que parfois, je vois dans la cellule la valeur ex: "08331 08331 test"

Dans ses cas la, ça ne fonctionne pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim i As Long, j As Long For i = 4 To Sheets("Test").UsedRange.Rows.Count If Val(Sheets("Test").Cells(i, "K").Value) > 0 Then For j = 1 To Sheets("Base de donnée").UsedRange.Rows.Count If Val(Sheets("Base de donnée").Cells(j, "A").Value) = Val(Sheets("Test").Cells(i, "k").Value) Then Sheets("Test").Cells(i, "s") = Sheets("Base de donnée").Cells(j, "B").Value Exit For End If Next j End If Next i
Bonsoir LeForestier

Je vien de tester ton code, est j'ai cette erreur: Erreur d'exécution 1004, Erreur définie par l'application ou par l'objet.

Code:

CP = Trim(Left(Sheets("Test").Cells(i, k), 5))

Quest-Ce que ça veut dire?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Kde
 
With Sheets("Test")
    For i = 4 To .UsedRange.Rows.Count
        If Len(.Cells(i, "K").Value) > 0 Then
            Kde = Split(.Cells(i, "K").Value, " ")
            If IsNumeric(Kde(0)) Then
                For J = 1 To Sheets("Base de donnée").UsedRange.Rows.Count
                    If Val(Sheets("Base de donnée").Cells(J, "A").Value) = Val(Kde(0)) Then
                         .Cells(i, "s") = Sheets("Base de donnée").Cells(J, "B").Value
                        Exit For
                    End If
                Next J
            End If
        End If
    Next i
End With

T'a tout dit maintenant... :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
Dim CP As String
    With Sheets("Base de donnée")
    For i = 4 To Sheets("Test").UsedRange.Rows.Count
        CP = Sheets("Test").Cells(i, "k")
        For e = 1 To Len(CP)
            If Asc(Mid(CP, e, 1)) > 57 Then Exit For
        Next e
        CP = Trim(Left(CP, e - 1))
        If IsNumeric(CP) Then
            For J = 1 To .UsedRange.Rows.Count
                If Trim(.Cells(J, "A")) = CP Then
                     Sheets("Test").Cells(i, "s") = .Cells(J, "B").Value
                    Exit For
                End If
            Next J
        End If
    Next i
    End With
End Sub

A+

Edit: pour l'erreur 1004 >> pas de guillemet à la colonne k
Mercatog > Pas bon, y a deux espaces dans certain cas ;)
Edit2:

Citation:

Il y a des cellules vides, Left("",5) donne cette erreur

Tu a tester ?? :mrgreen:

09/01/2010, 14h09
avyrex

Super

Un grand merci à mercatog et LeForestier pour votre aide.

Tous fonctionne à merveille.