DISTANCIER

[flo65000]

Messieurs bonsoir,


Je souhaite faire un distancier, je souhaite compléter la partie du bas du tableau d'une manière rapide avec les chiffres du haut.

Avez vous une idée ? svp

J'ai une formule qui récupère les données dans la tableau selon département départ et arrivée
=INDEX(données;EQUIV(.......
Vu la partie du bas n'est pas complété ça ne fonctionne en moité ^^

Merci de m'aider sur le tableau et sur ma formule

En vous remerciant par avance

 

[CISCO]

Bonsoir

Cf. en pièce jointe.

@ plus

 

[flo65000]

merci mais trop long pour copier dans le tableau

Quelle formule utiliser pour trouver le km, il me faudrait une seule formuler qui marche dans les deux sens SVP

 

[CISCO]

Bonsoir

Pourquoi est-ce que tu écris que la formule est trop longue. Il suffit de l'écrire dans une cellule vide, en l'adaptant à ta situation réelle, à la position réelle de ton tableau, qui ne commence pas forcément en A1, puis de la tirer vers le bas, puis un peu vers la droite, puis à nouveau vers le bas, et ainsi de suite. Même si tu dois le faire 100 fois, c'est une question de 2 ou 3 minutes !!!

Le plus simple serait de mettre ton fichier en pièce jointe, comme recommandé dans la charte.

@ plus

 

[phlaurent55]

Bonjour à tous,

Une solution qui fonctionne même si le tableau est à moitié rempli
+ une MFC pour le confort visuel

à+
Philippe

 

[CISCO]

Bonjour à tous, bonjour PhLaurent55

Dans la proposition de phlaurent55, on peut faire plus simplement dans Y 3 avec

=INDEX(B2:U21;EQUIV(MIN(W3;W5);B1:U1;0);EQUIV(MAX(W3;W5);A$2:A21;0))

@ plus

 

[phlaurent55]

Re,

mais également avec une seule formule pour la MFC:
=ET($A2=MIN($W$3:$W$5);B$1=MAX($W$3:$W$5))

à+
Philippe

 

[Chris401]

Bonsoir

Un essai avec code

Sub Miroir()
Dim InfoLigne As Range
Dim InfoColonne As Range
Application.EnableEvents = False

Set InfoColonne = Range("A2:A100") ' A adapter
Set InfoLigne = Range("B1:CV1") ' A adapter

For Each x In Range("B2:CV100") ' A adapter
If x.Value > 0 Then
lig = x.Row: col = x.Column
LaLigne = Range("A" & lig): LaColonne = Cells(1, col)

With InfoColonne
    Set c = .Find(LaColonne)
        If Not c Is Nothing Then
            adres2 = c.Address
            numeligne = c.Row
        End If
End With

With InfoLigne
    Set c = .Find(LaLigne)
        If Not c Is Nothing Then
            adres1 = c.Address
            numecol = c.Column
        End If
End With

Cells(numeligne, numecol) = x.Value
End If
Next x

Application.EnableEvents = True
End Sub