Coordonnées d'une cellule

Cubitus80 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
Cubitus80 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
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 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
ok donc voici le lien, merci:

https://www.cjoint.com/?3Kmlsb2Oqq6
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Ok, je dois m'absenter, je regarde cela cet après-midi
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Gyrus a pris le relais je le laisse poursuivre
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   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 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Salut Gyrus

Oui !
Je recherchais une solution sans VBA mais trop complexe

A+
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

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

A+
0
Morgothal Messages postés 1236 Date d'inscription   Statut Membre Dernière intervention   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 Date d'inscription   Statut Membre Dernière intervention  
 
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 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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 3334 Date d'inscription   Statut Membre Dernière intervention   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 Date d'inscription   Statut Membre Dernière intervention  
 
MERCI à tous les deux !!
0
Cubitus80 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
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 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour Cubitus

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

Cdlmnt
0
Cubitus80 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
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 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
parfait, merci !!
0
Cubitus80 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
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