Bonjour,
Via VBA, je voudrais sélectionner toutes les cellules comprises entre les
colonnes B et X, de la dernière ligne contenant une valeur dans la colonne
A.
Exemples :
La dernière cellule de la colonne A contenant une valeur est A32 : Sélection
de B32:X32
La dernière cellule de la colonne A contenant une valeur est A54 : Sélection
de B54:X54
etc...
Quelqu'un peut-il m'indiquer le code à utiliser ?
Merci par avance pour le coup de main.
Domi
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour
'---------------------------------- Sub test() Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row .Range("A" & DerLig & ":" & "X" & DerLig).Select End With End Sub '----------------------------------
"Domi" a écrit dans le message de groupe de discussion :
Bonjour, Via VBA, je voudrais sélectionner toutes les cellules comprises entre les colonnes B et X, de la dernière ligne contenant une valeur dans la colonne A.
Exemples : La dernière cellule de la colonne A contenant une valeur est A32 : Sélection de B32:X32 La dernière cellule de la colonne A contenant une valeur est A54 : Sélection de B54:X54 etc...
Quelqu'un peut-il m'indiquer le code à utiliser ? Merci par avance pour le coup de main. Domi
Bonjour
'----------------------------------
Sub test()
Dim DerLig As Long
With Worksheets("Feuil1")
DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row
.Range("A" & DerLig & ":" & "X" & DerLig).Select
End With
End Sub
'----------------------------------
"Domi" <scrat83@free.fr> a écrit dans le message de groupe de discussion :
eOLEJDg8KHA.5716@TK2MSFTNGP06.phx.gbl...
Bonjour,
Via VBA, je voudrais sélectionner toutes les cellules comprises entre les
colonnes B et X, de la dernière ligne contenant une valeur dans la colonne
A.
Exemples :
La dernière cellule de la colonne A contenant une valeur est A32 : Sélection
de B32:X32
La dernière cellule de la colonne A contenant une valeur est A54 : Sélection
de B54:X54
etc...
Quelqu'un peut-il m'indiquer le code à utiliser ?
Merci par avance pour le coup de main.
Domi
'---------------------------------- Sub test() Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row .Range("A" & DerLig & ":" & "X" & DerLig).Select End With End Sub '----------------------------------
"Domi" a écrit dans le message de groupe de discussion :
Bonjour, Via VBA, je voudrais sélectionner toutes les cellules comprises entre les colonnes B et X, de la dernière ligne contenant une valeur dans la colonne A.
Exemples : La dernière cellule de la colonne A contenant une valeur est A32 : Sélection de B32:X32 La dernière cellule de la colonne A contenant une valeur est A54 : Sélection de B54:X54 etc...
Quelqu'un peut-il m'indiquer le code à utiliser ? Merci par avance pour le coup de main. Domi
michdenis
Ceci est suffisant : '------------------------------ With Worksheets("Feuil1") .Range("A" & .Range("A" & .Cells.Rows.Count).End(xlUp).Row).Resize(, 24).Select End With '------------------------------
Mais tu aurais pu choisir aussi ceci : '------------------------------ With Worksheets("Feuil1") DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row .Range("A" & DerLig).Resize(, 24).Select End With '------------------------------
c'est une question de goût !
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour
'---------------------------------- Sub test() Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row .Range("A" & DerLig & ":" & "X" & DerLig).Select End With End Sub '----------------------------------
"Domi" a écrit dans le message de groupe de discussion :
Bonjour, Via VBA, je voudrais sélectionner toutes les cellules comprises entre les colonnes B et X, de la dernière ligne contenant une valeur dans la colonne A.
Exemples : La dernière cellule de la colonne A contenant une valeur est A32 : Sélection de B32:X32 La dernière cellule de la colonne A contenant une valeur est A54 : Sélection de B54:X54 etc...
Quelqu'un peut-il m'indiquer le code à utiliser ? Merci par avance pour le coup de main. Domi
Ceci est suffisant :
'------------------------------
With Worksheets("Feuil1")
.Range("A" & .Range("A" & .Cells.Rows.Count).End(xlUp).Row).Resize(, 24).Select
End With
'------------------------------
Mais tu aurais pu choisir aussi ceci :
'------------------------------
With Worksheets("Feuil1")
DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row
.Range("A" & DerLig).Resize(, 24).Select
End With
'------------------------------
c'est une question de goût !
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
u4F7kIg8KHA.5716@TK2MSFTNGP06.phx.gbl...
Bonjour
'----------------------------------
Sub test()
Dim DerLig As Long
With Worksheets("Feuil1")
DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row
.Range("A" & DerLig & ":" & "X" & DerLig).Select
End With
End Sub
'----------------------------------
"Domi" <scrat83@free.fr> a écrit dans le message de groupe de discussion :
eOLEJDg8KHA.5716@TK2MSFTNGP06.phx.gbl...
Bonjour,
Via VBA, je voudrais sélectionner toutes les cellules comprises entre les
colonnes B et X, de la dernière ligne contenant une valeur dans la colonne
A.
Exemples :
La dernière cellule de la colonne A contenant une valeur est A32 : Sélection
de B32:X32
La dernière cellule de la colonne A contenant une valeur est A54 : Sélection
de B54:X54
etc...
Quelqu'un peut-il m'indiquer le code à utiliser ?
Merci par avance pour le coup de main.
Domi
Ceci est suffisant : '------------------------------ With Worksheets("Feuil1") .Range("A" & .Range("A" & .Cells.Rows.Count).End(xlUp).Row).Resize(, 24).Select End With '------------------------------
Mais tu aurais pu choisir aussi ceci : '------------------------------ With Worksheets("Feuil1") DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row .Range("A" & DerLig).Resize(, 24).Select End With '------------------------------
c'est une question de goût !
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour
'---------------------------------- Sub test() Dim DerLig As Long With Worksheets("Feuil1") DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row .Range("A" & DerLig & ":" & "X" & DerLig).Select End With End Sub '----------------------------------
"Domi" a écrit dans le message de groupe de discussion :
Bonjour, Via VBA, je voudrais sélectionner toutes les cellules comprises entre les colonnes B et X, de la dernière ligne contenant une valeur dans la colonne A.
Exemples : La dernière cellule de la colonne A contenant une valeur est A32 : Sélection de B32:X32 La dernière cellule de la colonne A contenant une valeur est A54 : Sélection de B54:X54 etc...
Quelqu'un peut-il m'indiquer le code à utiliser ? Merci par avance pour le coup de main. Domi