Discussion :

[tony76]

bonjour à tous,

voilà je construis un petit code qui mes à jour un tableau de donnée

Fichier (base_TDMI.xls)
Colonne:

• A : une désignation
• B: une immatriculation (unique)
• C: des kilomètres (colonne a mettre à jours)

puis un fichier externe pour mettre à jour cette colonne de Km
dans ce fichier il y à les même donnée mais pas dans le même ordre

Fichier (base_externe.xls)
Colonne:

• A : une désignation
• B: une immatriculation (unique pas dans le même ordre)
• C: des kilomètres

voilà mon code j'ai toujours la même erreur " l'indice n’appartiens pas à la sélection"
si vous pouvez juste me dire la ou sa coince je voudrais trouver par moi même

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
Dim Nlignes As Integer
 
'Nlignes = Application.WorksheetFunction.CountA(Columns(2))
 
 
    With Workbooks("base_TDMI.xls").Sheets("base_de_donnee_TDMI")
            .Range("B2:B").Value = WorksheetFunction.VLookup(.Range("B:B").Value, _
            Workbooks(chemin).Sheets(Feuil1).Range("B2:D100"), 2, False)
    End With
 
 MsgBox ("Fichier mis à jour")
End Sub

voici la variable "chemin" merci