Résultat en USF de l'Intersection colonne et ligne

Bonjour à tous,

J'ai un tableau de KM entre les vile de la Réunion.

J'aimerai créer un USF avec des textbox dans 2 desquels je rentrerai les ville et un 3ième me donnerai le kilométrage entre ces 2 villes.

Exemple : SaintPierre serait en colonne"M" et en ligne 16

Saint Denis serait en ligne 5 et colonne "B"

l'intersection de la colonne et de la ligne donnerai "M5" ou "C16" qui ont la même valeur

Pour être mieux explicite je vous joints le fichier

Se serait gentil de pouvoir m'aider s'il vous plaît.

Merci d'avance

Amicalement

Noel

Bonjour

Un essai

Bonjour Noel

dans l'USF mettre ces deux codes :

Private Sub UserForm_Initialize()
For i = 5 To 38
    ComboBox1.AddItem Sheets("KM").Range("a" & i)
    ComboBox2.AddItem Sheets("KM").Range("a" & i)
    Next
ComboBox1 = "SAINT JOSEPH"
End Sub

Private Sub ComboBox2_Change()
'Macro dan pour Noel - 29/07/2011
Dim lig As Integer
Dim col As Byte, nblig As Byte
With Sheets("KM")
nblig = WorksheetFunction.CountA(.Range("A5:A" & Range("A" & Rows.Count).End(xlUp).Row))
lig = WorksheetFunction.Match(ComboBox1, .Range("A5:A" & .Range("A" & Rows.Count).End(xlUp).Row), 0) + 4
col = WorksheetFunction.Match(ComboBox2, .Range(Cells(4, 2), Cells(4, nblig)), 0) + 1
  TextBox1 = .Cells(lig, col)
  TextBox2.Value = TextBox1 * 0.297
End With
End Sub

Amicalement

Bonjour

Dan, Banzai,

Comment vous remercier de plus Banzai me donne le fichier fini.

C'est fort.. fort... Formidable

Un grand merci à vous deux

@+

Amicalement

Noel