Convertit un nr de col. et de ligne en cellule excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 725 fois - Téléchargée 54 fois

Contenu du snippet

Cette fonction convertit un numéro de colonne et un numéro de ligne en un string indiquant une cellule Excel.

Exemple: Lig 2, col 2 donnera "B2"

Source / Exemple :


'**************************************************************
' Fonction qui transforme un nr de ligne et un nr de colonne
' en une référence de cellule Excel
'**************************************************************
Public Function NbToCell(retour As String, lig As Integer, col As Integer)
    If col < 27 Then
        retour = Chr(65 + col - 1) & lig
    Else
        retour = "??"
    End If
End Function

Conclusion :


Attention !!!: Ce code fonctionne uniquement avec les colonnes inférieures à 27 (colonne jusque Z)

TO DO pour la version suivante...

A voir également

Ajouter un commentaire

Commentaire

cs_KILIMANJARO
Messages postés
8
Date d'inscription
dimanche 26 octobre 2003
Statut
Membre
Dernière intervention
15 août 2005
-
Je te propose cela qui me semble ok dans tous les cas

Public Function NbToCell(lig As Integer, col As Integer)
NbToCell = Cells(lig, col).Address
End Function

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.