Coordonnées d'une cellule

Cubitus80 Messages postés 10 Statut Membre -  
Cubitus80 Messages postés 10 Statut Membre -
Bonjour,
j'ai un tableau avec abscisses et ordonnées, j'aimerai avoir les coordonnées de chaque cellule pleine (X = ? et Y= ?), que je mettrai ensuite dans un tableau à deux colonnes.
je peux le faire manuellement sauf que j'ai plus de 100 tableaux avec plus de 30 coordonnées à déterminer donc ça prend un temps fou.
j'avais trouvé quelque chose comme:

+SI(SOMME(B19:AM19)=0;"";A19)

pour me donner sur chaque ligne, la valeur du Y, mais j'aurais besoin d'avoir la valeur du X en même temps.

j'espère que c'est assez clair!
sinon, je peux envoyer un exemple sur un fichier.
merci d'avance

8 réponses

via55 Messages postés 14730 Statut Membre 2 750
 
Bonjour Cubitus

Oui un exemple sera plus parlant, tu le post sur cjoint.com et tu indiques ensuite ici le lien fourni

Cdlmnt
0
Cubitus80 Messages postés 10 Statut Membre
 
ok donc voici le lien, merci:

https://www.cjoint.com/?3Kmlsb2Oqq6
0
via55 Messages postés 14730 Statut Membre 2 750
 
Ok, je dois m'absenter, je regarde cela cet après-midi
0
via55 Messages postés 14730 Statut Membre 2 750
 
Gyrus a pris le relais je le laisse poursuivre
0
Gyrus Messages postés 3360 Statut Membre 526
 
Salut via55,

Surtout, n'hésites pas à reprendre le manche si tu as une amélioration à apporter :D.

A+
0
via55 Messages postés 14730 Statut Membre 2 750
 
Salut Gyrus

Oui !
Je recherchais une solution sans VBA mais trop complexe

A+
0
Gyrus Messages postés 3360 Statut Membre 526
 
Bonjour,

Une solution
https://www.cjoint.com/c/CKmnfXABzem

A+
0
Morgothal Messages postés 1350 Statut Membre 183
 
Hello,
Je rajouterais juste cette ligne avant le "i=1", histoire de réinitialiser le tableau en cas de suppressions dans la matrice :
Range("W7:X" & Range("X65000").End(xlUp).Row).ClearContents
A+
0
Cubitus80 Messages postés 10 Statut Membre
 
bonsoir,
merci pour vos réponses. Mais je n'arrive pas à transposer ni l'une ni l'autre solution à mes données... désolée :s
du coup, je vous envoie un fichier avec un exemple de tableau qui correspond vraiment à ce sur quoi je travaille, si jamais vous avez 5 minutes de plus devant vous ..
le tableau comprend 32 lignes et 38 colonnes.
les zeros ne servent à rien.

merci merci!

https://www.cjoint.com/?3KnadvGUk45
0
via55 Messages postés 14730 Statut Membre 2 750
 
Bon, après modification voilà un tableau qui fonctionne
https://www.cjoint.com/?0KncFYJEKxV

j'ai du passer par un tableau intermédiaire en dessous du premier qui code les coordonnées de chaque valeur car les valeurs identiques sur une m^me ligne du tableau d'origine posaient problème

En espérant que c'est bien ce qu tu recherchais

Cdlmnt
0
Gyrus Messages postés 3360 Statut Membre 526
 
Ton fichier en retour
https://www.cjoint.com/c/CKnbg4ZrFZL

A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Cubitus80 Messages postés 10 Statut Membre
 
MERCI à tous les deux !!
0
Cubitus80 Messages postés 10 Statut Membre
 
Bonjour,
je reviens sur le même sujet.
le fichier de Gyrus m'a bien servi.
J'aurais besoin de faire la même manip mais à l'envers, c'est à dire placer des points dans le tableau à partir des coordonnées.
si quelqu'un à une solution... merci d'avance!
0
via55 Messages postés 14730 Statut Membre 2 750
 
Bonjour Cubitus

Une possibilité :
https://www.cjoint.com/?0FpptVpRZk6

Cdlmnt
0
Cubitus80 Messages postés 10 Statut Membre
 
merci beaucoup!
comment peux-t-on faire si j'ai plusieurs cellules avec les mêmes coordonnées afin d'additionner directement le total?
merci/
0
Cubitus80 Messages postés 10 Statut Membre
 
Est ce que c'est possible d'avoir le fichier sous cette forme?
avec 38 colonnes et 32 lignes

https://www.cjoint.com/?DFql4TerMCF
0
via55 Messages postés 14730 Statut Membre 2 750
 
Bonjour

Tu adaptes la macro comme tu veux en fonction , par exemple :
Private Sub CopierC_Click()
For n = 4 To 100 'boucle sur lignes 4 à 100 du tableau de valeurs à adapter
x = Range("AN" & n).Value
y = Range("AO" & n).Value
a = Range("NP" & n).Value
Cells(x, y) = a
Next
End Sub

Par contre je ne comprends pas "plusieurs cellules avec les mêmes coordonnées", chaque cellule est particulière et a des coordonnées propres !

Cdlmnt
0
Cubitus80 Messages postés 10 Statut Membre
 
Bonjour,
ça fonctionne bien.
Les coordonnées sont renvoyés à des "1" dans le tableau et quand j'ai plusieurs fois les mêmes coordonnées aurais besoin que le résultat dans les cellules soient automatiquement additionné.
ex: j'ai 3 fois x=3; y=6; donc dans le tableau, le point placé doit être un "3".
0
Cubitus80 Messages postés 10 Statut Membre
 
parfait, merci !!
0
Cubitus80 Messages postés 10 Statut Membre
 
Bonjour,
je vous sollicite à nouveau pour une demande un peu similaire.
à partir du fichier (ci-dessous) et de la matrice déjà créée, qui permet de copier les coordonnées dans un tableau, est-il possible d'obtenir des coordonnées répétées lorsqu'une cellule a une la valeur supérieure à 1?

exemple: cellule x=26; y=8, la valeur est 3, donc il faudrait que les coordonnées 26;8 soit notées 3 fois dans le tableau.

merci d'avance!

https://www.cjoint.com/?3BBqj55RkfL
0