J'aimerai récuperer le nom de ma colonne (lettre) de ma cellule active, mais
avec cette formule il me donne un chiffre au lieu de la lettre !
colonne 22 au lieu de V :
Sub trouvemoicela() 'exemple d'appede la fonction 'IlEstOu() Dim ladresse, lacolonne, message1, message2 ladresse = IlEstOu(15, 225, "a") lacolonne = IlEstOu(15, 225, "c") message1 = "L'adresse est " & ladresse MsgBox message1 message2 = "La colonne est " & lacolonne MsgBox message2 End Sub:
Fonction de recherche de la colonne:
Function IlEstOu(noligne As Long, nocolonne As Integer, cherchequoi As String) 'Clément Marcotte 'Amos Québec 'Si cherchequoi = "a" ou "A" , on cherche l'adresse 'Si cherchequoi = "c" ou "C" , on cherche la colonne Dim ladresse As String, laplace1 As Byte Dim laplace2 As Byte, lacolonne As String Select Case UCase(cherchequoi) Case "A" Cells(noligne, nocolonne).Select IlEstOu = ActiveCell.Address Case "C" ladresse = ActiveCell.Address laplace1 = InStr(ladresse, "$") laplace2 = InStr(laplace1 + 1, ladresse, "$") lacolonne = Mid(ladresse, laplace1 + 1, laplace2 - laplace1 - 1) IlEstOu = lacolonne Case Else IlEstOu = "Impossible de déterminer le résultat" End Select End Function
"arnaud" a écrit dans le message de news:%
Bonjour,
J'aimerai récuperer le nom de ma colonne (lettre) de ma cellule active, mais
avec cette formule il me donne un chiffre au lieu de la lettre ! colonne 22 au lieu de V :
dernierecolonne = ActiveCell.Column
Que me manque t'il ??
Merci d'avance Arnaud
Bonjour,
Il y a une formule de ce genre-là dans ce coin-là:
Sub trouvemoicela()
'exemple d'appede la fonction
'IlEstOu()
Dim ladresse, lacolonne, message1, message2
ladresse = IlEstOu(15, 225, "a")
lacolonne = IlEstOu(15, 225, "c")
message1 = "L'adresse est " & ladresse
MsgBox message1
message2 = "La colonne est " & lacolonne
MsgBox message2
End Sub:
Fonction de recherche de la colonne:
Function IlEstOu(noligne As Long, nocolonne As Integer, cherchequoi As
String)
'Clément Marcotte
'Amos Québec
'Si cherchequoi = "a" ou "A" , on cherche l'adresse
'Si cherchequoi = "c" ou "C" , on cherche la colonne
Dim ladresse As String, laplace1 As Byte
Dim laplace2 As Byte, lacolonne As String
Select Case UCase(cherchequoi)
Case "A"
Cells(noligne, nocolonne).Select
IlEstOu = ActiveCell.Address
Case "C"
ladresse = ActiveCell.Address
laplace1 = InStr(ladresse, "$")
laplace2 = InStr(laplace1 + 1, ladresse, "$")
lacolonne = Mid(ladresse, laplace1 + 1, laplace2 - laplace1 - 1)
IlEstOu = lacolonne
Case Else
IlEstOu = "Impossible de déterminer le résultat"
End Select
End Function
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:%23XU7DyrZFHA.3144@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'aimerai récuperer le nom de ma colonne (lettre) de ma cellule active,
mais
avec cette formule il me donne un chiffre au lieu de la lettre !
colonne 22 au lieu de V :
Sub trouvemoicela() 'exemple d'appede la fonction 'IlEstOu() Dim ladresse, lacolonne, message1, message2 ladresse = IlEstOu(15, 225, "a") lacolonne = IlEstOu(15, 225, "c") message1 = "L'adresse est " & ladresse MsgBox message1 message2 = "La colonne est " & lacolonne MsgBox message2 End Sub:
Fonction de recherche de la colonne:
Function IlEstOu(noligne As Long, nocolonne As Integer, cherchequoi As String) 'Clément Marcotte 'Amos Québec 'Si cherchequoi = "a" ou "A" , on cherche l'adresse 'Si cherchequoi = "c" ou "C" , on cherche la colonne Dim ladresse As String, laplace1 As Byte Dim laplace2 As Byte, lacolonne As String Select Case UCase(cherchequoi) Case "A" Cells(noligne, nocolonne).Select IlEstOu = ActiveCell.Address Case "C" ladresse = ActiveCell.Address laplace1 = InStr(ladresse, "$") laplace2 = InStr(laplace1 + 1, ladresse, "$") lacolonne = Mid(ladresse, laplace1 + 1, laplace2 - laplace1 - 1) IlEstOu = lacolonne Case Else IlEstOu = "Impossible de déterminer le résultat" End Select End Function
"arnaud" a écrit dans le message de news:%
Bonjour,
J'aimerai récuperer le nom de ma colonne (lettre) de ma cellule active, mais
avec cette formule il me donne un chiffre au lieu de la lettre ! colonne 22 au lieu de V :
dernierecolonne = ActiveCell.Column
Que me manque t'il ??
Merci d'avance Arnaud
arnaud
J'ai utilisé la formule Excelabo : Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)c'est impeccable !Merci encore !Arnaud"ClémentMarcotte" a écrit dans le message de news:
Bonjour,
Il y a une formule de ce genre-là dans ce coin-là:
Sub trouvemoicela() 'exemple d'appede la fonction 'IlEstOu() Dim ladresse, lacolonne, message1, message2 ladresse = IlEstOu(15, 225, "a") lacolonne = IlEstOu(15, 225, "c") message1 = "L'adresse est " & ladresse MsgBox message1 message2 = "La colonne est " & lacolonne MsgBox message2 End Sub:
Fonction de recherche de la colonne:
Function IlEstOu(noligne As Long, nocolonne As Integer, cherchequoi As String) 'Clément Marcotte 'Amos Québec 'Si cherchequoi = "a" ou "A" , on cherche l'adresse 'Si cherchequoi = "c" ou "C" , on cherche la colonne Dim ladresse As String, laplace1 As Byte Dim laplace2 As Byte, lacolonne As String Select Case UCase(cherchequoi) Case "A" Cells(noligne, nocolonne).Select IlEstOu = ActiveCell.Address Case "C" ladresse = ActiveCell.Address laplace1 = InStr(ladresse, "$") laplace2 = InStr(laplace1 + 1, ladresse, "$") lacolonne = Mid(ladresse, laplace1 + 1, laplace2 - laplace1 - 1) IlEstOu = lacolonne Case Else IlEstOu = "Impossible de déterminer le résultat" End Select End Function
"arnaud" a écrit dans le message de news:%
Bonjour,
J'aimerai récuperer le nom de ma colonne (lettre) de ma cellule active, mais
avec cette formule il me donne un chiffre au lieu de la lettre ! colonne 22 au lieu de V :
dernierecolonne = ActiveCell.Column
Que me manque t'il ??
Merci d'avance Arnaud
J'ai utilisé la formule Excelabo :
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)c'est
impeccable !Merci encore !Arnaud"ClémentMarcotte"
<clement.marcotte@sympatico.ca> a écrit dans le message de news:
urtkiJsZFHA.2984@TK2MSFTNGP15.phx.gbl...
Bonjour,
Il y a une formule de ce genre-là dans ce coin-là:
Sub trouvemoicela()
'exemple d'appede la fonction
'IlEstOu()
Dim ladresse, lacolonne, message1, message2
ladresse = IlEstOu(15, 225, "a")
lacolonne = IlEstOu(15, 225, "c")
message1 = "L'adresse est " & ladresse
MsgBox message1
message2 = "La colonne est " & lacolonne
MsgBox message2
End Sub:
Fonction de recherche de la colonne:
Function IlEstOu(noligne As Long, nocolonne As Integer, cherchequoi As
String)
'Clément Marcotte
'Amos Québec
'Si cherchequoi = "a" ou "A" , on cherche l'adresse
'Si cherchequoi = "c" ou "C" , on cherche la colonne
Dim ladresse As String, laplace1 As Byte
Dim laplace2 As Byte, lacolonne As String
Select Case UCase(cherchequoi)
Case "A"
Cells(noligne, nocolonne).Select
IlEstOu = ActiveCell.Address
Case "C"
ladresse = ActiveCell.Address
laplace1 = InStr(ladresse, "$")
laplace2 = InStr(laplace1 + 1, ladresse, "$")
lacolonne = Mid(ladresse, laplace1 + 1, laplace2 - laplace1 - 1)
IlEstOu = lacolonne
Case Else
IlEstOu = "Impossible de déterminer le résultat"
End Select
End Function
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:%23XU7DyrZFHA.3144@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'aimerai récuperer le nom de ma colonne (lettre) de ma cellule active,
mais
avec cette formule il me donne un chiffre au lieu de la lettre !
colonne 22 au lieu de V :
J'ai utilisé la formule Excelabo : Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)c'est impeccable !Merci encore !Arnaud"ClémentMarcotte" a écrit dans le message de news:
Bonjour,
Il y a une formule de ce genre-là dans ce coin-là:
Sub trouvemoicela() 'exemple d'appede la fonction 'IlEstOu() Dim ladresse, lacolonne, message1, message2 ladresse = IlEstOu(15, 225, "a") lacolonne = IlEstOu(15, 225, "c") message1 = "L'adresse est " & ladresse MsgBox message1 message2 = "La colonne est " & lacolonne MsgBox message2 End Sub:
Fonction de recherche de la colonne:
Function IlEstOu(noligne As Long, nocolonne As Integer, cherchequoi As String) 'Clément Marcotte 'Amos Québec 'Si cherchequoi = "a" ou "A" , on cherche l'adresse 'Si cherchequoi = "c" ou "C" , on cherche la colonne Dim ladresse As String, laplace1 As Byte Dim laplace2 As Byte, lacolonne As String Select Case UCase(cherchequoi) Case "A" Cells(noligne, nocolonne).Select IlEstOu = ActiveCell.Address Case "C" ladresse = ActiveCell.Address laplace1 = InStr(ladresse, "$") laplace2 = InStr(laplace1 + 1, ladresse, "$") lacolonne = Mid(ladresse, laplace1 + 1, laplace2 - laplace1 - 1) IlEstOu = lacolonne Case Else IlEstOu = "Impossible de déterminer le résultat" End Select End Function
"arnaud" a écrit dans le message de news:%
Bonjour,
J'aimerai récuperer le nom de ma colonne (lettre) de ma cellule active, mais
avec cette formule il me donne un chiffre au lieu de la lettre ! colonne 22 au lieu de V :
dernierecolonne = ActiveCell.Column
Que me manque t'il ??
Merci d'avance Arnaud
AV
impeccable !Merci encore !
Je suis confus d'une telle marque de reconnaissance...
AV
impeccable !Merci encore !
Je suis confus d'une telle marque de reconnaissance...
