Discussion :

[ludojojo]

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

Code :

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

    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 :

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

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 :

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

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

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

Comment puis-je faire?

[Invité]

Bonjour

DerniereLigne est une variable, il faut donc la sortir.

Essayes

Code :

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

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

Starec

[ludojojo]

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

Code :

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

Private Sub Recup_Nb_Lignes()

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

Code :

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

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?

[papimcha]

bonjour,
au moment ou tu appelles ta fonction, tu fais un call avec les données que tu veux envoyer,

Code :

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

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 :

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

Private Sub Suppression(DerniereLigne as integer)

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

[ludojojo]

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

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
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

[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 :

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

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.

[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 :

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

1
2
3
Private Sub Button_Netoyage_fichier_Click()
    SupprimeDoublons (DerniereLigne2)
End Sub

en

Code :

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

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)