Problème avec la fonction Range

Version imprimable

23/05/2008, 10h08
ludojojo

Problème avec la fonction Range
Bonjour,
J'ai besoin de sélectionnée une plage de donnée. Pour se faire j'utilise la fontion Range comme suit :

Code:

Set Plage = Worksheets(2).Range("A1:A10")

Plus loin dans la même macro, j'ai ce code la qui me permet de récupérer le numéro de la dernière ligne :
Code:

1 2 Dim DerniereLigne As Integer DerniereLigne = Sheets(2).UsedRange.Rows.Count
J'aimerai pouvoir utiliser cette valeur dans ma fonction préalable dans ce style :

Code:

Set Plage = Worksheets("Par album").Range("A1:DerniereLigne")

Mais j' obtient une erreur! 'erreur d'exécution 1004

Comment puis-je faire?
23/05/2008, 10h13
Invité

Bonjour

DerniereLigne est une variable, il faut donc la sortir.

Essayes

Code:

Set Plage = Worksheets("Par album").Range("A1:A" & DerniereLigne)

Starec
23/05/2008, 10h21
ludojojo

Mon pb c'est que ma variable est définie dans une autre fonction.

Code:

Private Sub Recup_Nb_Lignes()

Et que j'ai besoin d'en faire appel dans ma fonction

Code:

Private Sub Suppression()

Lorsque je lance l'appli il me dit que ma variable n'est pas définie
Comment je peut faire pour la récupérer?
23/05/2008, 10h31
papimcha
bonjour,
au moment ou tu appelles ta fonction, tu fais un call avec les données que tu veux envoyer,
Code:

1 2 3 Private Sub Recup_Nb_Lignes() call Suppression (DerniereLigne)
et dans ton autre fonction tu met en paramètres les données voulues

Code:

Private Sub Suppression(DerniereLigne as integer)

Je pense que sa devrait marcher. ;)
Vérifie.
A+

J'ai toujours un problème je vais mettre l'intégralité de mes fonctions intéressées pour plus de clarté...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Button_Netoyage_fichier_Click()
    SupprimeDoublons (DerniereLigne2)
End Sub
 
Sub SupprimeDoublons(DerniereLigne As Integer)
    Dim Plage As Range, Cell As Range
    Dim Un As New Collection
    Dim Tableau() As Integer
    Dim x As Integer
 
    'Définit la plage de cellules pour la recherche de doublons
    Set Plage = Worksheets("Par album").Range("A1:A" & DerniereLigne)
 
    On Error Resume Next
    'Boucle sur les cellules de la plage cible
    For Each Cell In Plage
        'Création d'une collection de données uniques (sans doublons)
        Un.Add Cell, CStr(Cell)
 
        'Une erreur survient si l'élément existe dans la collection.
        'La procédure enregistre le numéro de ligne correspondant dans un tableau.
        If Err.Number <> 0 Then
            x = x + 1
            ReDim Preserve Tableau(1 To x)
            Tableau(x) = Cell.Row
            Err.Clear
        End If
    Next Cell
    On Error GoTo 0
 
    'On sort si aucun doublon n'a été trouvé.
    If x = 0 Then Exit Sub
 
    'Fige l'écran pendant la suppression des lignes
    Application.ScreenUpdating = False
 
    'Boucle sur le tableau pour supprimer les lignes contenant des doublons.
    For x = UBound(Tableau) To LBound(Tableau) Step -1
        Worksheets("Par album").Rows(Tableau(x)).EntireRow.Delete
    Next x
 
    Application.ScreenUpdating = True
End Sub
 
Private Sub Recup_Nb_Lignes()
 
    Dim DerniereLigne As Integer
    Dim DerniereLigne2 As Integer
 
    DerniereLigne = Sheets("Par chanson").UsedRange.Rows.Count - 1
    DerniereLigne2 = Sheets("Par album").UsedRange.Rows.Count - 1
 
    Label_Nb_Lignes1.Caption = "Nombre total de chansons :" & DerniereLigne
    Label_Nb_Lignes2.Caption = "Nombre total d'albums :" & DerniereLigne2
 
    Call SupprimeDoublon(DerniereLigne2)
End Sub

J'ai besoin de la variable DerniereLigne2 pour la fonction SupprimeDoublons
Je ne suis pas sur du tout de les avoir placés au bon endroit...
Merci par avance

23/05/2008, 11h11
papimcha
Où ton problème est situé?

Tu fais appel deux fois à la fonction supprimeDoublon mais comment vas-tu sur la fonction Recup_Nb_Lignes ?

Essaies sa et dis si c'est ce que tu veux :
Code:

1 2 3 Private Sub Button_Netoyage_fichier_Click() Recup_Nb_Lignes () End Sub
tu cliques sur ton bouton nettoyage qui va sur la fonction recup_nb_ligne qui fait appel à ta fonction suppression doublon.

cordialement.
23/05/2008, 11h18
Godzestla
Salut,

lances tu ta procédure avec un bouton ?

Si c'est le cas (comme ton début de code l'indique) il est bien possible que ta variable dernièreLigne2 ne soit pas remplie car elle est définie dans la procédure Private Sub Recup_Nb_Lignes().

2 solutions :
1) Tu sauves dernière lignes 2 dans une cellule Xn et tu changes ceci
Code:

1 2 3 Private Sub Button_Netoyage_fichier_Click() SupprimeDoublons (DerniereLigne2) End Sub
en
Code:

1 2 3 4 5 Private Sub Button_Netoyage_fichier_Click() Dim DerniereLigne2 as integer DerniereLigne2 = Range("Xn").value SupprimeDoublons (DerniereLigne2) End Sub
2) Tu déclares DerniereLigne2 en Global (avant) toutes tes procédures, mais ce n'est pas recommandé (si tu fais cela, choisit un nom qui sera unique, du genre cetteApplicationDerniereLigne2)
23/05/2008, 11h18
Invité
Bonjour

Déclares
Code:

1 2 Dim DerniereLigne As Integer Dim DerniereLigne2 As Integer
Dans la première partie de ton module de la manière suivante
Code:

1 2 Public DerniereLigne As Integer Public DerniereLigne2 As Integer
et supprimes les de la routine Recup_Nb_Lignes
Enlèves

Code:

Call SupprimeDoublon(DerniereLigne2)

Et ajoutes dans la routine SupprimeDoublons (en enlevant ce qu'il y a entre parenthèse) l'instruction

Code:

Call Recup_Nb_Lignes

avant

Code:

Set Plage = Worksheets("Par album").Range("A1:A" & DerniereLigne)

Starec

Cela fonctionne très bien en effet j'ai suivis les différentes propositions...
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Public DerniereLigne As Integer
Public DerniereLigne2 As Integer
 
Private Sub Recup_Nb_Lignes()
 
    DerniereLigneFeuille1 = Sheets(1).UsedRange.Rows.Count - 1
    DerniereLigneFeuille2 = Sheets(2).UsedRange.Rows.Count - 1
 
    Label_Nb_Lignes1.Caption = "Nombre total de chansons :" & DerniereLigneFeuille1
    Label_Nb_Lignes2.Caption = "Nombre total d'albums :" & DerniereLigneFeuille2
 
End Sub
 
Private Sub Button_Netoyage_fichier_Click()
    SupprimeDoublons
End Sub
 
Sub SupprimeDoublons()
 
    Dim Plage As Range, Cell As Range
    Dim Un As New Collection
    Dim Tableau() As Integer
    Dim x As Integer
 
    'Définit la plage de cellules pour la recherche de doublons
    Set Plage = Worksheets(2).Range("A1:A" & DerniereLigneFeuille2)
 
    On Error Resume Next
    'Boucle sur les cellules de la plage cible
    For Each Cell In Plage
        'Création d'une collection de données uniques (sans doublons)
        Un.Add Cell, CStr(Cell)
 
        'Une erreur survient si l'élément existe dans la collection.
        'La procédure enregistre le numéro de ligne correspondant dans un tableau.
        If Err.Number <> 0 Then
            x = x + 1
            ReDim Preserve Tableau(1 To x)
            Tableau(x) = Cell.Row
            Err.Clear
        End If
    Next Cell
    On Error GoTo 0
 
    'On sort si aucun doublon n'a été trouvé.
    If x = 0 Then Exit Sub
 
    'Fige l'écran pendant la suppression des lignes
    Application.ScreenUpdating = False
 
    'Boucle sur le tableau pour supprimer les lignes contenant des doublons.
    For x = UBound(Tableau) To LBound(Tableau) Step -1
        Worksheets(2).Rows(Tableau(x)).EntireRow.Delete
    Next x
 
    Application.ScreenUpdating = True
End Sub

Ma fonction Recup_Nb_Lignes est constamment mise à jour, et mes variables qui me servent à connaitre ma dernière ligne étant déclarées comme public et global, le call n'a donc plus d'interêt.
Merci pour tous ces renseignements.

23/05/2008, 14h42
Invité

Re

On t'a dit de passer par des variables Publiques (ou Globales), pour simplifier ce que tu avais déjà fait.

Le mieux aurait été de créer des fonctions publiques qui te retournent une valeur et d'utiliser celles-ci.

Starec