Trouver la lettre d'une colonne + 1 (coordonnées sous forme de lettre)

**zedude** · 01/08/2017, 14h54

Salut la communauté,

Je me trouve face à une problématique avec un fichier dont je reprends la "maintenance" et je suis face à un problème qui fait surchauffer mon cerveau de newbie Excel

J'ai un tableau avec 2 colonnes
La première est une date (cette info n'est pas importante pour la suite), la seconde est la coordonnée d'une colonne de cellule (sous forme de lettre) pour pouvoir trouver des infos dans une autre feuille
Ex :
01/01 A
08/01 C
15/01 E
....
09/08 AH
16/08 AJ
...

Je cherche une formule ou méthode la plus courte pour connaître la coordonnée de la colonne d'à côté
J'avais pensé convertir la lettre en code ascii puis faire +1, sauf qu'évidemment, quand on passe de Z à AA, ça ne marche plus....
Je ne veux pas convertir la coordonnées de la cellule en chiffre mais bien arriver à trouver une méthode pour arriver à "coordonnée+1" qui, après Z me donne AA, après AJ me donne AK, ...

Est-ce faisable ?
Par avance, merci

**joe.levrai** · 01/08/2017, 15h24

Bonjour,

on peut procéder de la sorte :

- on récupère la valeur de la cellule (la "lettre")
- on interroge la cellule Cells(1,"la lettre") décalée d'une colonne
- on coupe l'adresse de cette cellule décalée pour ne conserver que la partie située entre le premier et second "$" ==> ça nous donne la lettre souhaitée

Test sur une sélection de cellules, à adapter

Code :

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

1
2
3
4
5
6
Sub toto()
Dim Cell As Range
    For Each Cell In Selection.Cells
        Debug.Print Split(Cells(1, Cell.Value).Offset(0, 1).Address, "$")(1)
    Next Cell
End Sub

**zedude** · 01/08/2017, 15h50

Je pense ne pas être capable d'adapter ton code à ma problématique

Je vais encore simplifier ma demande
Une variable que je vais appeler ColLetter contient une lettre qui est la coordonnée d'une cellule sous forme de lettre

Je souhaiterais juste une formule pour calculer quelle est la prochaine colonne avec la notation sous forme de lettre

L'énoncé est plus simple comme ça, mais la problématique ne change pas

**joe.levrai** · 01/08/2017, 15h54

Y'avait pas grand chose à changer

à placer dans un module standard

Code :

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

1
2
3
Function ColSuivante(Source As Range) As String
    ColSuivante = Split(Cells(1, Source.Value).Offset(0, 1).Address, "$")(1)
End Function

Nom : dvp_02.png
Affichages : 935
Taille : 4,7 Ko

Attention, si les lettres dépassent IU la fonction retournera une erreur (la dernière colonne possible étant IV)

**zedude** · 01/08/2017, 16h13

Le offset, c'est juste parce que la fonction est appelé sur la colonne un cran à droite et qu'il faut lire la value un cran à gauche ?

Juste pour être sûr
Car encore une fois, je ne veux pas écrire à côté de mon table
j'ai une variable dans ma macro qui s'appelle toto et je veux juste avoir une seconde variable tutu qui contienne la colonne suivante

**joe.levrai** · 01/08/2017, 16h16

Fait voir ta procédure, on va aller au plus adéquat

**zedude** · 01/08/2017, 16h30

Bah oublie ma procédure qui contient beaucoup plus de chose que ce que j'ai exposé (notamment parce qu'il y a une liste déroulante sur une sélection qui permet de trouver cette fameuse valeure de colonne)

Mais je sais pas comment le dire plus simplement que :

Colonne = x (on se fout de comment le x est récupéré, que ce soit par un input manuellement dans une boite de dialogue ou par choix à travers une liste déroule)
(exemple : Colonne contient "Z")

et je cherche juste à avoir ColonneSuiv = FormuleaLaNoix

Voilà pour ma "procédure" lol

**joe.levrai** · 01/08/2017, 16h35

??

Code :

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

1
2
3
4
5
Sub toto()
Dim Colonne As String, ColonneSuiv As String
Colonne = "A"
ColonneSuiv = Split(Cells(1, Colonne).Offset(0, 1).Address, "$")(1)
End Sub

A => B
B => C
...
AA => AB
...
etc...

**zedude** · 01/08/2017, 16h42

Absolument parfait

Désolé hein pour mes aller retour alors qu'il n'y avait pas grand chose à adapter mais suis pas à l'aise avec les macros

Faudra à l'occas que je me pense sur le décorticage de ta commande pour comprendre à quoi chaque option correspond

Mais en tout cas, un très grand merci pour ton aide précieuse qui m'a fait gagner beaucoup de temps

**joe.levrai** · 01/08/2017, 16h46

Code :

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

Split(Cells(1, Colonne).Offset(0, 1).Address, "$")(1)

1) Cells(1,Colonne) va renvoyer la première cellule de la colonne qu'on a indiqué (objet Range)
2) .Offset(0,1) pour se décaler d'une colonne
3) .Address pour obtenir l'adresse de ce Range décalé
4) Split() est une fonction qui découpe une chaine de caractère en fonction d'un séparateur
5) .Address renvoyant une adresse de type "$A$1" ... on split sur le caractère "$"
6) on prend la seconde portion du split ... d'où le (1) à la toute fin de la ligne

Split()(0) = "" (vide)
Split()(1) = LettreColonne
Split()(2) = Numéro de ligne