Discussion :

[Aladin_23]

Bonjour le forum
J' ai construit une procedure qui est censé parcourir toutes les feuilles et sauf quelques unes et me supprimer les lignes si en colonne A une cellule contient le guillemet caractere 34.

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
Dim Wksht As Worksheet
Dim I As Long
Dim Plage As String
Dim ChCar As String
 
ChCar = Chr(34)
 For Each Wksht In Worksheets
    If Wksht.Name <> "Accueil" And Wksht.Name <> "MPage1" And Wksht.Name <> "Resultat" Then 'attention aux noms de feuilles avec accent
        With Wksht
           For I = 1 To 65536
                If InStr(1, cells(I, 1).Value, ChCar) <> 0 Then
                 Plage = I & ":" & I
                 Rows(Plage).Delete Shift:=xlUp
                 I = I - 1
                End If
            Next I
        End With
    End If
Next Wksht

La macro ne parcourt pas toutes les feuilles, meme probleme avec une autre macro basé sur le mem principe pour la suppression de lignes si cellules vides. Je ne vois pas ou se situe le probleme.
Quelqu' un peut il me donner une idée svp
Aladin

[pgz]

Bonjour.

Tu peux essayer de remplacer la ligne principale par

Code :

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

.Rows(Plage).Delete Shift:=xlUp

avec un point devant Row, pour bien dire qu'il s'agit des lignes de la feuille WkSht et non pas celles de la feuille active.

Cordialement,

PGZ

[Aladin_23]

Bonjour Pierre
Merci d' avoir répondu à mon post, la modifcation n' a donné aucun résultat, la situtaion est toujours la meme
Aladin

[pgz]

Aladin,

Il y a aussi

Code :

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

If InStr(1, .cells(I, 1).Value, ChCar) <> 0 Then

Avec un point devant Cells, comme pour Range.

As-tu plusieurs classeurs ouverts?

Cordialement,

PGZ

[Aladin_23]

Merci Pierre, Suite à la modif tout est OK. Comme je le precisais dans le premier Post, j' ai aussi une dexuieme macro de suppression de ligne si cellule vide en colonne A, basé sur le meme principe de parcours des feuilles qui ne fonctionne pas.
Le code suppression

Code :

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

Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '

Sur une feuille ca va mais parcourir toutes les feuilles Ko
Aladin

[vinc_bilb]

Bonjour,

Si il n'y a rien de défini pour la feuille, c'est celle active qui est prise en compte pour le Range. Donc je vous suggère de bien la spécifier, du type:

Code :

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

1
2
3
For Each Wksht In Worksheets
           Wksht.Range("A1:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next Wksht

[Aladin_23]

Bonsoir le forum
Merci Pierre, Vincent pour les corrections apportées, qui me serviront plus tard. Tout est OK

Aladin