Correspondance référence numérique et alphabétique des cellu

Bonjour,

je connais le numéro de ligne ROW et le numéro de colonne COLUMN, comment faire pour passer du réfrencemenrt d'une cellule par Cells(row, column) au référencement Range(A1) ?

merci d'avance

Bonjour,

Range(Cells(row,column),Cells(row,column))

ou

range(cells(row,column).address)

Surement la deuxième.

Cordialement

re bonjour

je précise mon besoin.

En fait je voudrai sélectionner une colonne dans sa totalité vs Columns("D:D"), j'ai son numéro, mais je n'ai pas sa référence en lettre.

Comment détermine-t-on cette réfernce en lettre ?

Merci

Merci ddetp88

ta réponse m'a permis de progresser

j'ai fait ça :

 Columns(Left(Cells(1, a).Address(columnabsolute:=False), InStr(Cells(1, a).Address(columnabsolute:=False), "$") - 1)).Select

ou a = un numéro de colonne

mais il ya surement plus simple!

c'est la solution. Un peu longue soit!

cordialement

Bonjour,

ou en plus court :

Columns(3).Select

A noter qu'un .select est inutile dans 99% des cas. Il ne sert qu'à ralentir.

eric

Bonjour Eric,

En fait sa question porte sur les références type A1.

J'ai proposé range(cells(row,column).address) qui devrait normalement répondre à la question.

Qu'en penses-tu?

Ca y répond oui, mais je ne voyais pas trop l'intérêt et le but de sa question.

Son dernier post a éclairé le besoin.

eric

Bonjour,

J'ai un peux le même soucis que notre amis.

Je souhaite récupérer la dernière colonne non vide d'une ligne

Plus précisément, je voudrais renseigner la dernière cellule non vide correspondent à la dernière colonne non vide de la ligne 3 par la valeur du TextBox4.

Voici mon code :

Private Sub CommandButton1_Click()

Dim DV As Integer
    DV = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

Dim LC As Integer
    LC = Columns(Left(Cells(1, DV).Address(columnabsolute:=False), InStr(Cells(1, DV).Address(columnabsolute:=False), "$") - 1)).Select

If MsgBox("Confirmez-vous l'ajouter ses données? ", vbYesNo, "Confirmation de l'ajout") = vbYes Then

Range(LC & "3").Value = TextBox4

End If
End Sub