Discussion :

[avyrex]

Bonjour à tous,

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

Code :

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

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.

[mercatog]

Bonsoir,
essaies ceci (pas testé)

Code :

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

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

[Duddy]

Bonsoir le forum,

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 :

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

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.

[avyrex]

Bonjour,

J'ai changé pour

Code :

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

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 :

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

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.

[mercatog]

tu n'entre dans ta 2ème boucle

Code :

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

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

[LeForestier]

Bonjour,
Peut-être comme ça ??

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
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+

[avyrex]

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 :

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

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 :

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

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

Quest-Ce que ça veut dire?

[mercatog]

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
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

[LeForestier]

T'a tout dit maintenant...

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 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:

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

Tu a tester ??

[avyrex]

Super

Un grand merci à mercatog et LeForestier pour votre aide.

Tous fonctionne à merveille.