Discussion :

[tunistat]

Salut tout le monde , comme je suis nouveau avec le langage VBA je m'adresse à vous pour résoudre un probléme .
Alors j'ai un tableau excel comme suit

A	Fréquence	Pourcentage	Fréquence	Pourcent.
			cumulée	cumulé
0	573	86.56	573	86.56
1	89	13.44	662	100
				
B	Fréquence	Pourcentage	Fréquence	Pourcent.
			cumulée	cumulé
0	642	96.98	642	96.98
1	20	3.02	662	100
				
C	Fréquence	Pourcentage	Fréquence	Pourcent.
			cumulée	cumulé
0	602	90.94	602	90.94
1	60	9.06	662	100

Alors j'ai pour objectif 3 ;
1) la ou ou la prémiere colonne vaut 1 je voudrais quelle prend la valeur de la case en deusus à pas -3 (par exemple le premier 1 sera remplacé par A .
et de supprimer les lignes entierment la ou la premier colonne vaut 0 ou bien la deuxiéme colonne vaut "fréquence".
d'ou j'ai écrit ce code mais ça fonctionne pas correctement .

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
 
Sub TRI()
'
' TRI Macro
'
 
'
    Sheets("DATA").Select
 
    For II = 1 To 1000
    If (Sheets("DATA").Cells(II, 1) = "1") Then
    Sheets("DATA").Cells(II, 1) = 1 = Sheets("DATA").Cells(II - 3, 1)
    End If
    Next II
 
    Sheets("DATA").Select
     For II = 1 To 1000
    If (Sheets("DATA").Cells(II, 1) = "0") Then
    Selection.EntireRow.Delete
 
    End If
    Next II
 
     Sheets("DATA").Select
     For II = 1 To 1000
    If (Sheets("DATA").Cells(II, 2) = "Fréquence") Then
    Selection.EntireRow.Delete
 
    End If
    Next II
 
     Sheets("DATA").Select
     For II = 1 To 1000
    If IsEmpty(Sheets("DATA").Cells(II, 2) = " ") Then
    Selection.EntireRow.Delete
 
    End If
    Next II
 
 
 
 
 
End Sub

Merci davance.

[Patrice740]

Bonjour,

Essaies :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TRI()
Dim n°L As Long
  With Worksheets("DATA")
    For n°L = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
     If .Cells(n°L, 1).Value = 1 Then .Cells(n°L, 1).Value = .Cells(n°L - 3, 1).Value
     If .Cells(n°L, 1).Value = 0 Then .Rows(n°L).Delete
     If .Cells(n°L, 2).Value = "Fréquence" Then .Rows(n°L).Delete
     If .Cells(n°L, 2).Formula = "" Then .Rows(n°L).Delete
   Next n°L
  End With
End Sub

Cordialement
Patrice