XXXXXX Corrige le premier texte posté avec erreur sur colonne B et non A XXXXXXXXX
Je cherche le moyen de déterminer une plage de façon dynamique, c'est-à-dire à définir la zone partant de la cellule B2 jusqu’au bas de la colonne non pas B2 mais Gi (ex : de B2 à G25754 ou G857, en fonction de la présence de données en colonne G)
Je connais la fonction ActiveSheet.UsedRange.Rows.Count permettant d’aller en bas de la colonne mais elle ne couvre que la colonne en question (ici colonne B)
En effet, dans ma colonne B, il arrive que des cellules soient vides mais que des données existent en colonne G, si bien que ma plage serait restreinte à tort en utilisant ActiveSheet.UsedRange.Rows.Count
Je pensais pouvoir affecter le numéro de ligne avec un indice mais ça plante (je ne sais pas si c’est lié à la concaténation ou à la façon d’affecter la plage au nom
Voici mon code :
Sub Définir_Plage()
Sheets("support").Range("G2").Activate
Dim numlign As Long
numlign = ActiveSheet.UsedRange.Rows.Count
Range("B2:G&numlign").Name = "Selection_Zone"
‘ opérations sur la plage ainsi définie ...
End Sub
Merci à tous pour vos lumières !
Je cherche le moyen de déterminer une plage de façon dynamique, c'est-à-dire à définir la zone partant de la cellule B2 jusqu’au bas de la colonne non pas B2 mais Gi (ex : de B2 à G25754 ou G857, en fonction de la présence de données en colonne G)
Je connais la fonction ActiveSheet.UsedRange.Rows.Count permettant d’aller en bas de la colonne mais elle ne couvre que la colonne en question (ici colonne B)
En effet, dans ma colonne B, il arrive que des cellules soient vides mais que des données existent en colonne G, si bien que ma plage serait restreinte à tort en utilisant ActiveSheet.UsedRange.Rows.Count
Je pensais pouvoir affecter le numéro de ligne avec un indice mais ça plante (je ne sais pas si c’est lié à la concaténation ou à la façon d’affecter la plage au nom
Voici mon code :
Sub Définir_Plage()
Sheets("support").Range("G2").Activate
Dim numlign As Long
numlign = ActiveSheet.UsedRange.Rows.Count
Range("B2:G&numlign").Name = "Selection_Zone"
‘ opérations sur la plage ainsi définie ...
End Sub
Merci à tous pour vos lumières !
