Discussion :

[Kestion100]

Ma colonne est une colonne de vérification, j'ai posé les formules à la main et celle que j'ai posée pour arriver à ton résultat est bien 4-3.
Je peux toujours m'être planté.

Si j'ai bien compris le déroulé, ton code à l'aire de faire:

2-1
3-2
4-3
5-4

[RyuAutodidacte]

Re,

Avant de copier un code, il faut vérifier si l'adaptation est ok ou si il faut que tu le révises pour l'adapter à tes données.

PS : les codes ne sont pas forcément donné tout cuit il faut aussi les adapter

Ex :

X	Y	RESULTAT	RESULTAT CODE
637258,8	6856289,6	806,8713714	806,8713714
636454,2	6856350,1	=((A3-A2)^2+(B3-B2)^2)^(0,5)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub tesBis()
Dim Cpt As Long, i As Long, X As Double, Y As Double
    Cpt = 2
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        'X = Cells(i, 1).Value & " - " & Cells(Cpt, 1).Value:        Y = Cells(i, 2).Value & " - " & Cells(Cpt, 2).Value
        X = Cells(i, 1).Value - Cells(Cpt, 1).Value:   Y = Cells(i, 2).Value - Cells(Cpt, 2).Value
        Cells(Cells(Rows.Count, 4).End(xlUp)(2).Row, 4).Value = ((X ^ 2) + (Y ^ 2)) ^ (1 / 2)
        'Cells(Cells(Rows.Count, 3).End(xlUp)(2).Row, 3).Value = X & " | " & Y
        If i = Cells(Rows.Count, 1).End(xlUp).Row Then Cpt = Cpt + 1: i = Cpt
    Next
End Sub

---

• En schématisant (je montre juste les soustractions sans faire le calcul final avec les X puis les Y séparer par "|") :

X	Y	RESULTAT SCHEMATIQUE DU CODE
X1	Y1	X2 - X1 | Y2 - Y1
X2	Y2	X3 - X1 | Y3 - Y1
X3	Y3	X4 - X1 | Y4 - Y1
X4	Y4	X5 - X1 | Y5 - Y1
X5	Y5	X6 - X1 | Y6 - Y1
X6	Y6	X7 - X1 | Y7 - Y1
X7	Y7	X3 - X2 | Y3 - Y2
		X4 - X2 | Y4 - Y2
		X5 - X2 | Y5 - Y2
		X6 - X2 | Y6 - Y2
		X7 - X2 | Y7 - Y2
		X4 - X3 | Y4 - Y3
		X5 - X3 | Y5 - Y3
		X6 - X3 | Y6 - Y3
		X7 - X3 | Y7 - Y3
		X5 - X4 | Y5 - Y4
		X6 - X4 | Y6 - Y4
		X7 - X4 | Y7 - Y4
		X6 - X5 | Y6 - Y5
		X7 - X5 | Y7 - Y5
		X7 - X6 | Y7 - Y6

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub tesBis()
Dim Cpt As Long, i As Long, X As String, Y As String
    Cpt = 2
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        X = Cells(i, 1).Value & " - " & Cells(Cpt, 1).Value:        Y = Cells(i, 2).Value & " - " & Cells(Cpt, 2).Value
        'X = Cells(i, 1).Value - Cells(Cpt, 1).Value:   Y = Cells(i, 2).Value - Cells(Cpt, 2).Value
        'Cells(Cells(Rows.Count, 4).End(xlUp)(2).Row, 4).Value = ((X ^ 2) + (Y ^ 2)) ^ (1 / 2)
        Cells(Cells(Rows.Count, 3).End(xlUp)(2).Row, 3).Value = X & " | " & Y
        If i = Cells(Rows.Count, 1).End(xlUp).Row Then Cpt = Cpt + 1: i = Cpt
    Next
End Sub

• Si c'est ce que tu voulais et que le principe est ok, à toi de l'adapter et le finaliser (tu pourras le soumettre une fois fini afin de vérifier si il n'y a pas de petites choses à rectifier)

[Kestion100]

Que veut dire le

Code :

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

(2)

de

Code :

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

End(xlUp)(2)

dans

Code :

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

Cells(Cells(Rows.Count, 5).End(xlUp)(2).Row, 5).Value = ((X ^ 2) + (Y ^ 2)) ^ (1 / 2)

?

[Kestion100]

Ok c'est un offset, je ne connaissais pas

[Kestion100]

Avec ça, le résultat est celui attendu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub tesBis()
Dim Cpt As Long, i As Long, X As Long, Y As Long
    Cpt = 1
    For i = 2 To 492 'Cells(Rows.Count, 2).End(xlUp).Row
        'X = Cells(i, 1).Value & " - " & Cells(Cpt, 1).Value:        Y = Cells(i, 2).Value & " - " & Cells(Cpt, 2).Value
        X = Cells(i, 3).Value - Cells(Cpt, 3).Value:   Y = Cells(i, 4).Value - Cells(Cpt, 4).Value
        Cells(Cells(Rows.Count, 5).End(xlUp)(2).Row, 5).Value = ((X ^ 2) + (Y ^ 2)) ^ (1 / 2)
        'Cells(Cells(Rows.Count, 3).End(xlUp)(2).Row, 3).Value = X & " | " & Y
        If i = Cells(Rows.Count, 2).End(xlUp).Row Then Cpt = Cpt + 1: i = Cpt
    Next
End Sub

Merci beaucoup pour l'investissement.

[RyuAutodidacte]

Bonjour,
Pour ta question :
https://www.developpez.net/forums/bl...ge-offset-x-y/
C’est le principe...

Ce n’est ni plus ni moins ce que je t’ai proposé sur le précédent post que j’ai ajusté.
Il te reste plus qu’à faire le code correctement au propre.
Avec l’ensemble des codes et en prenant celui de plus abouti pour exemple ça devrait le faire.