Bonjour, Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans faire une boucle et de tester la valeur de la celulle ?
Merci
Thierry
Hervé
Bonsoir Thierry, Ceci peut être ? A adapter :
Sub RechercherDerColonne() Dim Lettre As String Dim Col As Integer
'gère l'erreur de la feuille vide On Error Resume Next Col = DerCol(ActiveSheet) If Err.Number = 0 Then 'retourne le numéro de colonne 'et la ou les lettres Lettre = Left(Columns(Col).Address(0, 0), _ InStr(Columns(Col).Address(0, 0), ":") - 1) MsgBox DerCol(ActiveSheet) & vbCrLf & Lettre
Else MsgBox "La feuille est vide ! :o((" End If
End Sub
Function DerCol(FE As Worksheet) As Integer
With FE DerCol = .Cells.Find("*", .[A1], -4123, , _ 2, 2).Column End With
Set FE = Nothing End Function
Hervé.
"Thierry" <== a écrit dans le message de news:
Bonjour, Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans faire une boucle et de tester la valeur de la celulle ?
Merci
Thierry
Bonsoir Thierry,
Ceci peut être ? A adapter :
Sub RechercherDerColonne()
Dim Lettre As String
Dim Col As Integer
'gère l'erreur de la feuille vide
On Error Resume Next
Col = DerCol(ActiveSheet)
If Err.Number = 0 Then
'retourne le numéro de colonne
'et la ou les lettres
Lettre = Left(Columns(Col).Address(0, 0), _
InStr(Columns(Col).Address(0, 0), ":") - 1)
MsgBox DerCol(ActiveSheet) & vbCrLf & Lettre
Else
MsgBox "La feuille est vide ! :o(("
End If
End Sub
Function DerCol(FE As Worksheet) As Integer
With FE
DerCol = .Cells.Find("*", .[A1], -4123, , _
2, 2).Column
End With
Set FE = Nothing
End Function
Hervé.
"Thierry" <==sitetr@wanadoo.fr> a écrit dans le message de news:
uC9A5ykNGHA.516@TK2MSFTNGP15.phx.gbl...
Bonjour,
Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans
faire une boucle et de tester la valeur de la celulle ?
Sub RechercherDerColonne() Dim Lettre As String Dim Col As Integer
'gère l'erreur de la feuille vide On Error Resume Next Col = DerCol(ActiveSheet) If Err.Number = 0 Then 'retourne le numéro de colonne 'et la ou les lettres Lettre = Left(Columns(Col).Address(0, 0), _ InStr(Columns(Col).Address(0, 0), ":") - 1) MsgBox DerCol(ActiveSheet) & vbCrLf & Lettre
Else MsgBox "La feuille est vide ! :o((" End If
End Sub
Function DerCol(FE As Worksheet) As Integer
With FE DerCol = .Cells.Find("*", .[A1], -4123, , _ 2, 2).Column End With
Set FE = Nothing End Function
Hervé.
"Thierry" <== a écrit dans le message de news:
Bonjour, Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans faire une boucle et de tester la valeur de la celulle ?
Merci
Thierry
michdenis
Bonjour Thierry,
'------------------------------ Sub test()
Dim DerCol As Long On Error Resume Next With Worksheets("Feuil1") DerCol = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Column On Error GoTo 0 End With MsgBox DerCol
End Sub '------------------------------
Salutations!
"Thierry" <== a écrit dans le message de news: Bonjour, Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans faire une boucle et de tester la valeur de la celulle ?
Merci
Thierry
Bonjour Thierry,
'------------------------------
Sub test()
Dim DerCol As Long
On Error Resume Next
With Worksheets("Feuil1")
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
On Error GoTo 0
End With
MsgBox DerCol
End Sub
'------------------------------
Salutations!
"Thierry" <==sitetr@wanadoo.fr> a écrit dans le message de news: uC9A5ykNGHA.516@TK2MSFTNGP15.phx.gbl...
Bonjour,
Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans
faire une boucle et de tester la valeur de la celulle ?
Dim DerCol As Long On Error Resume Next With Worksheets("Feuil1") DerCol = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Column On Error GoTo 0 End With MsgBox DerCol
End Sub '------------------------------
Salutations!
"Thierry" <== a écrit dans le message de news: Bonjour, Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans faire une boucle et de tester la valeur de la celulle ?
Merci
Thierry
JLuc
*Bonjour Thierry*, Ou peut etre : dercol = Range("IV1").End(xlToLeft).column
Bonjour, Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans faire une boucle et de tester la valeur de la celulle ?
Merci
Thierry
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Thierry*,
Ou peut etre :
dercol = Range("IV1").End(xlToLeft).column
Bonjour,
Y a t'il un moyen en VBA de connaitre la derniere colonne non vide sans faire
une boucle et de tester la valeur de la celulle ?
