Discussion :

[rossemma]

Bonjour,

j'ai tableau qui peut évoluer quant au nombre de ligne et de colonne.
Voici un exemple de mon tableau :


Dans mon tableau, on peut ajouter des lignes et des colonnes sans nécessairement avoir la dernière cellule de la dernière colonne complétée (comme dans mon exemple en cellule D5).

je voudrais faire une variable qui reprendrai la totalité du tableau et qui s'adaptera dès que l'on ajoute une ligne ou une colonne.

j'ai un peu cherché et trouvé ceci mais je ne sais comment les assembler.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim dercol As Variant
Dim derlig As Variant
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
derlig = Cells(Rows.Count, 1).End(xlUp).Row

Un grand merci à celui ou celle qui va m'éclairer.

[illight]

Hello !


Tu peux utiliser la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim Donnees as Range
Set Donnees = Range("A1").CurrentRegion

"Donnees" va correspondre à la simulation quand tu te met dan sla cellule A1, et que tu fais CTRL + A, qui te sélectionne toute la plage où il y a des données, avec les données vides.

[riaolle]

Bonjour,
Je ne comprends pas vraiment ta question ... tu donnes la réponse avec ton code.
Je le reprends avec une petite explication :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim dercol As Integer
Dim derlig As Integer
dercol = Cells(1, Columns.Count).End(xlToLeft).Column          'c'est le numéro de ta dernière colonne
derlig = Cells(Rows.Count, 1).End(xlUp).Row                   'cest le numéro de ta dernière ligne

Que veux-tu faire après ? Est-ce que ta question, c'est que tu ne sais pas comment utiliser dercol et derlig après ?

[rossemma]

j'ai trouvé ce code sur le net qui fonctionne très bien (c'était à quoi je voulais arriver)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    With ActiveCell
        ' Highlight the row and column that contain the active cell, within the current region
        Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8
        Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub

Cependant, si je sélectionne une cellule vide. il ne fonctionne pas.
dans mon tableau exemple, si je sélectionne D5, rien ne se passe.
PQ?

[rossemma]

En plus, je voudrais définir un nom au tableau et que celui ci s'update si on ajoute une ligne ou un colonne.
voilà pourquoi derlig et dercol

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A1:S399").Select
    Range("Q14").Activate
    ActiveWorkbook.Names.Add Name:="test", RefersToR1C1:="=DATA!R1C1:R399C19"
    ActiveWorkbook.Names("test").Comment = ""

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Donnees as Range
Set Donnees = Range("A1").CurrentRegion

"Donnees" va correspondre à la simulation quand tu te met dan sla cellule A1, et que tu fais CTRL + A, qui te sélectionne toute la plage où il y a des données, avec les données vides.

En fait, l'équivalent de Ctrl+A n'est pas CurrentRegion de Range (qui, comme End, s'arrête aux premières régions vides) mais UsedRange de Worksheet.

Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Donnees as Range
Set Donnees = ActiveSheet.UsedRange

Pour avoir la dernière ligne et la dernière colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = Donnees.SpecialCells(xlCellTypeLastCell).Row
Colone = Donnees.SpecialCells(xlCellTypeLastCell).Column

[illight]

En fait, l'équivalent de Ctrl+A n'est pas CurrentRegion de Range (qui, comme End, s'arrête aux premières régions vides) mais UsedRange de Worksheet.

Ah ? Mais si on a qu'un tableau le CurrentRegion suffit non ? ça prend aussi les cellules non vides ?

En tout cas je note ta remarque. Merci

[riaolle]

Cependant, si je sélectionne une cellule vide. il ne fonctionne pas.

Dans ton code, tu as la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub

Qui veut dire "en français" : si la cellule sélectionnée est vide ou qu'on a sélectionnée plus d'1 cellule, sortir de la procédure => càd ne rien faire.
C'est sans doute pour ça que tu dis que le code "ne fonctionne pas".

Il suffit donc d'enlever le isEmpty(Target)

[Patrice740]

Bonjour,

j'ai trouvé ce code sur le net qui fonctionne très bien (c'était à quoi je voulais arriver)
Cependant, si je sélectionne une cellule vide. il ne fonctionne pas.

Comme ça c'est plus simple :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").CurrentRegion.Interior.ColorIndex = 0
If Target.Count = 1 And Not Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then
  Intersect(Range("A1").CurrentRegion, Union(Target.EntireColumn, Target.EntireRow)).Interior.ColorIndex = 8
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Donnees = Range("A1").CurrentRegion

"Donnees" va correspondre à la simulation quand tu te met dans la cellule A1, et que tu fais CTRL + A, ....

Currentregion est bien la solution, c''est pas l'équivalent de CTRL + A mais celui de CTRL + * sur une des cellules de titre du tableau.

EDIT : Je préfère ce code de Jacques Boisgontier (car il ne modifie rien) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
Set champ = Range("A1").CurrentRegion
 If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
   Application.EnableEvents = False
    Union(Cells(Target.Row + 1, 1).Resize(1, champ.Columns.Count), _
      Cells(1, Target.Column).Resize(champ.Rows.Count, 1)).Select
   Target.Offset(1, 0).Activate
   Application.EnableEvents = True
 End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = Range("A1").CurrentRegion
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    Union(Cells(Target.Row, 1).Resize(1, champ.Columns.Count), _
      Cells(1, Target.Column).Resize(champ.Rows.Count, 1)).Select
    Target.Activate
    Application.EnableEvents = True
 End If
End Sub