Discussion :

[niavlys26]

Bonsoir,
J'ai un soucis, en cherchant sur le forum j'ai trouvé un seul sujet similaire mais malheureusement pas de solution
Je vais essayer d'être clair :
J'ai une feuille avec une liste. La première ligne comporte les en-têtes et je ne veux pas en tenir compte, vous allez comprendre :
Dans un module, j'ai créé la fonction suivante :

Code :

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

1
2
3
4
5
6
7
Public Function plgTraitement() as Range
Dim Plage As Range
Dim a As Integer
Set Plage = ThisWorkBook.Worksheets("Traitement").Range("A1").CurrentRegion
a = Plage.Rows.Count - 1
Set plgTraitement = Plage.Resize(RowSize:=a).Offset(RowOffset:=1)
End Function

Dans un formulaire, j'ai une listbox. En écrivant le code suivant :

Code :

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

1
2
'Actualiser le RowSource
ListBox1.RowSource = "Traitement!" & plgTraitement.Address

Aucun problème.
J'ajoute et j'insère autant de lignes que je veux dans cette feuille et en """Acutalisant le RowSource""" je n'ai toujours pas le moindre problème.

Le soucis c'est quand je supprime un ligne ! J'utilise le code suivant

Code :

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

ThisWorkBook.Worksheets("Traitement").Rows(Ligne).EntireRow.Delete

La ligne est supprimée sans soucis mais au moment """d'actualiser""" c'est la function plgTraitement qui bugge, à la ligne suivante :

Code :

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

Set Plage = ThisWorkBook.Worksheets("Traitement").Range("A1").CurrentRegion

avec une erreur 1004 "IMPOSSIBLE DE LIRE LA PROPRIETE CURRENTREGION DE LA CLASSE RANGE"

Je suis un peu pommé j'arrive pas à cerner le problème.
Si quelqu'un a un idée

merci

[JackOuYA]

Bonjour,

Il reste quoi dans ta feuille au moment de l'erreur ? essai à ce moment la de placer ton curseur en A1 puis actionne les touches CTRL+* , pour selectionner la "currentRegion" en cours et voir si elle correspond à ce que tu désire.

[niavlys26]

salut, en sélectionnant manuellement la currentregion comme tu me dis (ctrl+*), ça me conviens. Je n'arrive vraiement pas à trouver pourquoi à ce moment précis (immédiatement après avoir supprimé un ligne) excel ne veut pas comprendre mon code (alors qu'il fonctionne dans les autres cas).

Pour contourner le problème j'ai trouvé une solution, qui fonctionne mais qui n'est pas top
(ça fait un peu "bricolage" et peut ralentir le programme je pense)

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
Public Function plgTraitement() As Range
Dim Plage As Range
Dim a%
 
Set Plage = feuTraitement.Range("A2")
 
a = 2
Do While feuTraitement.Cells(a, 1).Value <> ""
    a = a + 1
Loop
a = a - 2
 
Set plgTraitement = Plage.Resize(RowSize:=a, ColumnSize:=4)
'---- Test ----
plgTraitement.Select
MsgBox "Fais voir ?! " & plgTraitement.Address
'---- ----
End Function