Discussion :

[NOSLIB]

Bonjour,
J'ai un soucis avec mon code VBA cree pour la ventilation des données sur plusieurs feuilles.Quand debug il m'affiche cette erreur " Methode 'Range' of object_Global' failed " au niveau de cette formule
'' LastRow = Range("A1000000").End(xlUp).Row ''.

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
	Dim j As Integer
	Dim LastRow As Integer
	Dim DerniereLigne As Integer
 
	Sub Ventilation()
 
	    Application.ScreenUpdating = False
 
	    'boucle permettant de lire toutes les 12 feuilles du classeur
	    For j = 1 To 12
 
	        Sheets(j).Select
	        LastRow = Range("A1000000").End(xlUp).Row
	        For i = LastRow To 6 Step -1 'Parcourir les lignes en remontant vers le haut
	            Sheets(j).Select
	            Rows(i).Select
	            Selection.Delete shift:=(xlUp)
	        Next i
 
	        Sheets("SOURCE").Select
	        DerniereLigne = Range("A1000000").End(xlUp).Row
 
	        For k = 6 To LastRow
 
	            Sheets("SOURCE").Select
	            If Sheets(j).Name = Cells(k, 7).Value Then
 
	               Rows(k).Select
	               Selection.Copy
 
	               Sheets(j).Select
	               LastRow = Range("A1000000").End(xlUp).Row + 1
	               Cells(LastRow, 1).Select
	               ActiveSheet.Paste
 
	            End If
 
	        Next k
 
	      Next j
 
	      Sheets("SOURCE").Select
	      Application.CutCopyMode = False
	      Application.ScreenUpdating = True
 
	End Sub

[mjpmjp]

bonjour,
LastRow = Range("A" & Rows.Count).End(xlUp).Row

@+JP

[mjpmjp]

bonjour,
en fait en fonction de la version d'excel , tu peut avoir 65000 lignes seulement
c'est pourquoi Rows.count te donnes le nombre de ligne juste...

@+JP

[NOSLIB]

Bonjour mjpmjp ,

Merci pour ta reponse mais quand j'insere la formule que tu m'as transmise et que je debug sa me donne cette erreur "Application-defined or object-defined error" au niveau de cette formule
"Cells(LastRow, 1).Select ".

Cordialement

[mjpmjp]

bonjour,
çà vient de là : Dim LastRow As Integer.

Dim LastRow As Long

@+JP

[mjpmjp]

bonjour,
je viens de voir ton code

Code :

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

1
2
3
4
5
6
7
8
9
 
         For j = 1 To 12 
	        Sheets(j).Select
	        LastRow = Range("A1000000").End(xlUp).Row
	        For i = LastRow To 6 Step -1 'Parcourir les lignes en remontant vers le haut
	            Sheets(j).Select
	            Rows(i).Select
	            Selection.Delete shift:=(xlUp)
	        Next i

je te propose ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim LastRow as Long
For j = 1 To 12
    with Sheets(j)
        LastRow = .Range("A" & rows.count).End(xlUp).Row
        .Range("a6:a" & LastRow).EntireRow.Delete
 
    ..... la suite avec sheets(j) ...
 
    end with
next j

@+JP

[NOSLIB]

Bonjour,

Merci pour ton aide avec cette formule, mais si te plait quand j'active le bouton de commande mes codes VBA n'applique pas mes instructions mes instructions suivantes
'ventiler les noms de la colonne 7 dans chaque feuille si celui-ci a le meme intitulé que la feuille

ci dessous la recape de mes code vba

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
Dim j As Integer
    Dim LastRow As Long
    Dim DerniereLigne As Integer
 
    Sub Ventilation()
 
        Application.ScreenUpdating = False
 
        'boucle permettant de lire toutes les 12 feuilles du classeur
        For j = 1 To 12
 
            Sheets(j).Select
            LastRow = Range("A" & Rows.Count).End(xlUp).Row
            For i = LastRow To 6 Step -1 'Parcourir les lignes en remontant vers le haut
                Sheets(j).Select
                Rows(i).Select
                Selection.Delete shift:=(xlUp)
            Next i
 
            Sheets("SOURCE").Select
            DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
            For k = 6 To LastRow
 
                Sheets("SOURCE").Select
                If Sheets(j).Name = Cells(k, 7).Value Then 'ventiler les noms de la colonne 7 dans chaque feuille si celui-ci a le meme intitulé que la feuille
 
                   Rows(k).Select
                   Selection.Copy
 
                   Sheets(j).Select
                   LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1
 
                   Cells(LastRow, 1).Select
                   ActiveSheet.Paste
 
                End If
 
            Next k
 
          Next j
 
          Sheets("SOURCE").Select
          Application.CutCopyMode = False
          Application.ScreenUpdating = True
 
    End Sub