En VBA, Comment retourner la lettre de la colonne via recherche Fermé

Question

Bonjour,  


J'ai une methode pour cacher/afficher des colonnes et rangée d'une feuille: 



Da = Worksheets(1).Range("A2").Value
col = "E:" & Da 
Columns(col).EntireColumn.Hidden = _ 
    Not Columns(col).EntireColumn.Hidden 
Rows("2:2").EntireRow.Hidden = _ 
    Not Rows("2:2").EntireRow.Hidden 



Mon besoin est de remplacer la valeur de "Da" par la LETTRE de la colonne qui précède la collonne ou se trouve la date "2013-02-04" dans la rangée 3. 

Merci d'avance pour votre aide. 

Yann

ccm81 · Answer

bonjour

essaies ceci

dim a as string, co as string
a = Range(ta_cellule).Address
co = Split(a, "$")(3)
bonne suite

Yanndc · Answer

Merci pour ton aide.

Si je comprends ton bien ton code, il manquerait de modifier "ta_cellule" pour etre capable de chercher dans quel cellule se retrouve ma date.  Je sais pas faire ca non plus.  

Si je comprends bien, ta formule extrait la lettre de la colonne pour une cellule donné.

ccm81 · Answer

exact ou presque, j'ai fait une erreur dans l'utilisation de la fonction split  

a = Range(ta_cellule).Address  
récupère l'adresse sous la forme $B$13  
co = Split(a, "$")(1)
renvoie "B"

dans quelle cellule se trouve ta date?

Yanndc · Answer

On ne sait pas. Il faut chercher a travers la rangée 3 pour la date "2013-02-04".  La colonne que je cherche est celle qui précède cette dernière.

gbinforme · Answer

Bonjour,

Pour trouver la colonne qui précède la valeur  "2013-02-04" en ligne 3, tu peux utiliser :
Dim da As String, dch As Double
    dch = DateValue("4/2/2013")
    da = Chr(Application.WorksheetFunction.Match(dch, Rows(3), 0) + 63)

si ta date est en colonne J "da" contiendra I

eriiic · Answer

Bonsoir à tous,  

Si ta colonne peut être > "Z" utilise plutôt :  
Dim col As String, date1 As Date, c As Range  
date1 = DateValue("4/2/2013")  
Set c = Rows(3).Find(date1, LookIn:=xlValues)  
If c Is Nothing Then col = "non trouvé" Else col = Split(c.Offset(, -1).Address, "$")(1)

Mais tu n'es pas obligé de passer par les lettres. Ex : 
date1 = DateValue("4/2/2013")  
Set c = Rows(3).Find(date1, LookIn:=xlValues)  
If Not c Is Nothing Then Columns(5).Resize(, c.Column - 5).Select 

eric  
   
   
Jamais tu ne répondras à un mp non sollicité...  
Bon, ça c'est fait.

En VBA, Comment retourner la lettre de la colonne via recherche

6 réponses

Discussions similaires