Discussion :

[baptbapt]

Bonjour a tous

Je ne comprend meme plus mes programmes, je pensais avoir mis en place un programme qui ne prennait en compte que les éléments que je voulais, mais non, j'ai oublié

J'ai fait le code, mais erreur

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
'Saisie du Secteur à analyser
Dim Sector As String
 
Sector = UCase(InputBox("Enter sector", "Identify Sector", "MEASU"))
If Sector = "" Then Exit Sub
 
'Efface les données qui ne sont pas dans Sector
Dim derlign As Long
 
derlign = Cells(65536, 1).End(xlUp).Row
    For M = 1 To derlign
        If Cells(M, 1).Value <> Sector Then
            Rows("M:1").Select
            Selection.Delete Shift:=xlUp
        End If
    Next M

il ne veu pas de "Rows("M:1").Select"

Le but étant d'effacer les lignes qui ne sont pas da mon sector

Merci

[baptbapt]

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
'Saisie du Secteur à analyser
Dim Sector As String
 
Sector = UCase(InputBox("Enter sector", "Identify Sector", "MEASU"))
If Sector = "" Then Exit Sub
 
'Efface les données qui ne sont pas dans Sector
derlign = Cells(65536, 1).End(xlUp).Row
    For t = 1 To derlign
        If Cells(t, 1).Value <> Sector Then
            Cells(t, 1).Value = ""
        End If
    Next t
 
'Supprime ligne ou valeur colonneA = ""
derlgno = Cells(65536, 1).End(xlUp).Row
    For M = 1 To derlgno
        If Cells(1, 1).Value = "" Then
            Rows("1:1").Select
            Selection.Delete Shift:=xlUp
        End If
    Next M

j'ai fais une modif a mon prog, mais le hic maintenant, c'est qu'il efface bien les données qui se trouve avant mon sector, mais celle après non.

Si quelqu'un a le bou de prog qu'il me faut

Merci

[SfJ5Rpw8]

pour effacer la ligne M le code est :

Code :

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

1
2
 
Rows(M).Delete Shift:=xlUp

evite les select..s inutiles.. ensuite tu devrai parcourir tes lignes de la derniére à la premiére..

Code :

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

for m = derling to 1 step -1

afin d'éviter des probléme avec les "lignes qui remontent" suite à effacement..

[baptbapt]

SAlut bbil


Merci sa fonctionne

Merci