Discussion :

[NoobProg]

Bonjour ! J'ai un petit souçi sur un de mes codes. Je cherche à comparer des informations, des noms et des adresses, qui sont situé sur 2 feuilles. Pour éviter les souçis je désir passer les information en majuscule lors du test. Voilà mon petit 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 Confirmation_d_affretement()
 
Dim Dos, LastLig As Integer
Application.ScreenUpdating = False
 
Dos = Sheets("Crée stat").Cells(7, 2)
LastLig = Sheets("Adresses").Cells(Rows.Count, "B").End(xlUp).Row
 
'Vérification des données expediteur
For i = 2 To LastLig
    If UCase(Sheets("Transfret - Recap Lot 2011").Cells(Dos, 6)) = UCase(Sheets("Adresses").Cells(i, 1)) Then 'Verification du nom de client
        If UCase(Sheets("Transfret - Recap Lot 2011").Cells(Dos, 8)) = UCase(Sheets("Adresses").Cells(i, 5)) Then 'Vérification de l'adresse
            Sheets("Crée stat").Range(B, 9) = "Expediteur OK" 'Message de confirmation
            i = LastLig
        Else: Sheets("Crée stat").Range(B, 9) = "Veuillez renseigner l'expediteur dans la BDD, ou verifier son orthographe" 'Message d'erreur
        End If
    End If
Next

Or ma ligne 11 buggue, j'ai l'impression que cela viens de l'utilisation des majuscules. Car j'ai une erreur 1004. Si quelqu'un pouvait m'éclairer de sa lanterne. Grand merci à vous

[Nicopilami]

Hello

Quelques pistes à premiere vue :

1*) entier différent de null ou inférieur à 0 ?

Code :

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

Dos = Sheets("Crée stat").Cells(7, 2)

es-tu certain que Dos est un chiffre >0 ?En effet, si tu l'utilises dans ton IF pour rechercher ta cellule, donc si ce n'est pas le cas, le code suivant ne peut pas fonctionner.

Code :

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

Cells(Dos, 6)

2*)Range(B, 9) -> B est égal à quoi ? je verrais plus Cells(B,9) ou Range(B & "9")


bye
Nico