établir une liaison entre deux points sujet

Salut tout le monde,
je sais pas si ce sujet a été abordé avant, si ça était le cas prière de me donner un lien et merci
étant données deux images, je prends des points de chaque image ( avec leurs coordonnées x1, y1 et x2, y2) j'affiche en couleur une droite entre ces deux points.
sorte de matching (correspondance ou mapping ) entre chaque deux points .
merci tout le monde

XL 2010 [RESOLU] Format date pour nuage de points sujet

Bonjour à tous

Pour tracer un graphique en fonction du temps, je dois avoir en abscisse des dates.
Au départ la colonne de date est sous la forme MM/JJ/AA, j'ai réussi à la modifier pour obtenir ce format JJ/MM/AAAA grâce à ce code:

Code :

---

Dim tmp As String
    Dim tmpBis As String
    Dim tmpFin As String
    Dim Annee As String

For boucle = 2 To i

        tmp = Left(Cells(boucle, 1), 2)
        tmpBis = Mid(Cells(boucle, 1), 4, 2)
        tmpFin = Right(Cells(boucle, 1), 2)
        Cells(boucle, 1).Value = tmpBis & "/" & tmp & "/" & Annee & tmpFin
   
    Next boucle

---

Puis je fais ça pour définir tout ça en date:

Code :

---

 Range("A2:A" & i).Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A2").Select

---

Mais en traçant le graphique, je n'ai pas de dates en abscisse mais des nombres : 500,1000 etc...


Comment faire pour résoudre cela??

Merci d'avance,

XL 2010 Format date pour nuage de points sujet

Bonjour à tous

Pour tracer un graphique en fonction du temps, je dois avoir en abscisse des dates.
Au départ la colonne de date est sous la forme MM/JJ/AA, j'ai réussi à la modifier pour obtenir ce format JJ/MM/AAAA grâce à ce code:

Code :

---

Dim tmp As String
    Dim tmpBis As String
    Dim tmpFin As String
    Dim Annee As String

For boucle = 2 To i

        tmp = Left(Cells(boucle, 1), 2)
        tmpBis = Mid(Cells(boucle, 1), 4, 2)
        tmpFin = Right(Cells(boucle, 1), 2)
        Cells(boucle, 1).Value = tmpBis & "/" & tmp & "/" & Annee & tmpFin
   
    Next boucle

---

Puis je fais ça pour définir tout ça en date:

Code :

---

 Range("A2:A" & i).Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A2").Select

---

Mais en traçant le graphique, je n'ai pas de dates en abscisse mais des nombres : 500,1000 etc...


Comment faire pour résoudre cela??

Merci d'avance,