Cree une carte en 2d avec des coordonéées XY

[zorro232]

bonjour,

j'ai bien benificié du support que ce forum apport sur l'utilisation du microsoft Excel. là c'est ma premiere participation sur ce forum, au faites mon probleme c'est de créé une carte en 2d appartir d'un tableau de coordoné, je m'explique:
j'ai un le tableau suivant:
---x---|---Y----|--Status--|
----------------------------|
---1---|---1----|----ok----|
---1---|---2----|----ok----|
---2---|---3----|----ko----|
---3---|---2----|----ok----|
---3---|---3----|----ko----|

je veux créé un macro de tell façon il converti les coordonées X et Y en coordoné de cellule excel (x=ligne , y= colones) dans une nouvelle feuille et il met la valeur du statut dans cette cellule.

Merci pour votre aide..

 

[ROGER2327]

Re : Cree une carte en 2d avec des coordonéées XY

Bonjour zorro232

Voyez si ce code vous convient :

[COLOR="DarkSlateGray"]Sub toto()
Dim oCel As Range, oDat As Range
   With Worksheets(1).Cells(1, 1).CurrentRegion
      Set oDat = .Offset(1, 0).Resize(.Rows.Count - 1, 1)
   End With
   With Worksheets(2)
      For Each oCel In oDat.Cells
         .Cells(CLng(oCel.Value), CLng(oCel.Offset(0, 1).Value)).Value = oCel.Offset(0, 2).Value
      Next oCel
      .Activate
   End With
End Sub[/COLOR]

ROGER2327

 

[zorro232]

Re : Cree une carte en 2d avec des coordonéées XY

l'idée est bone, mais le fichier il a l'air de ne pas marcher, meme ci je change les valeurs il affiche les ancienes valeurs. j'utilise Office 2007.

 

[ROGER2327]

Re : Cree une carte en 2d avec des coordonéées XY

Re...

Bizarre, bizarre... Chez moi, si je change les données, la "carte" change.
Bien entendu, si je ne veux pas de mélange des données, je n'oublie pas d'effacer la deuxième feuille avant de faire une nouvelle carte.​

ROGER2327

 

[zorro232]

Re : Cree une carte en 2d avec des coordonéées XY

ça marche....!!!
Merci infiniment..........