Discussion :

[Al385]

Bonjour à tous,

Je débute en macros, aussi, je souhaiterai qu'une âme charitable veuille bien prendre quelques minutes de son temps pour m'appuyer sur le léger script suivant :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim cell As range
 
    For Each cell In ActiveSheet.UsedRange
        If Left$(cell.Value, 1) = "T" Then cell.EntireRow.Delete
    Next
    MsgBox "Suppression faite"
End Sub

Je cherche en fait à supprimer toutes les lignes commençant par T (peu importe la colonne et nombre de lignes). Pour l'instant, tout va bien. Par contre je souhaiterai associer, de plus, une suppression de toutes les lignes avec T (majuscule caractère gras) et enfin celle commençant par "*" (char 42) . Le tout dans une seul macro mais je n'arrive pas à insérer de "or" ou plusieurs "If/Next".

Merci d'avance de votre aide précieuse.

[Menhir]

je n'arrive pas à insérer de "or" ou plusieurs "If.

Etant donné que tu supprime la ligne que tu scrute, mettre des If successifs serait une mauvaise idée.

Par contre, tu peux utiliser des Else If

Code :

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

1
2
3
4
5
6
7
If Condition1 Then
    cell.EntireRow.Delete
ElseIf Condition2 Then
    cell.EntireRow.Delete
ElseIf Condition2 Then
    cell.EntireRow.Delete
End If

[joe.levrai]

Bonjour,

si tu souhaites vraiment utiliser des Or :

Code :

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

1
2
3
4
5
If Condition1 _
Or Condition2 _
Or Condition3 Then
    'Suppression
End If

et la version sans les sauts de lignes

Code :

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

1
2
3
If Condition1 Or Condition2 Or Condition3 Then
    'Suppression
End If

[Al385]

Bonsoir MM,

D'abord, je tiens à vous remercier pour ces 2 réponses, votre compréhension et le temps passé. Je ne pourrai pas tester ce soir vos 2 solutions, ce sera fait dès demain matin. Puis-je me permettre de vous demander en plus comment insérer le T(T majuscule caractère gras) en condition? Il s'agit là du dernier maillon manquant.

Merci d'avance.
Bien cordialement

[joe.levrai]

Admettons que ce soit ta condition 3 ... elle va en fait se décomposer en trois sous-conditions

ce qui me permet d'introduire la notion de parenthèse : les trois sous-conditions sont entre parenthèse ... pour constituer la condition 3

Code :

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

1
2
3
If Condition1 _
Or Condition2 _
Or (Cell.Characters(1) = "T" And Cell.Characters(1).Font.Bold = True And UCase(Cell.Characters(1)) = Cell.Characters(1)) Then

j'ai mis un peu de couleur pour bien comprendre

[Al385]

Merci pour ces réponses.

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Sub test()
    Dim cell As range
 
    For Each cell In ActiveSheet.UsedRange
        If (cell.Characters(1) = "T")
        Or (cell.Characters(1) = "*")
        Or (cell.Characters(1) = "T" And cell.Characters(1).Font.Bold = True And UCase(cell.Characters(1)) = cell.Characters(1)) Then
    cell.EntireRow.Delete
End If
    Next
    MsgBox "Suppression faite"
End Sub

Je bloque toujours mon code ne marche pas ... Pouvez-vous y jeter un oeil svp ?

Merci d'avance

[Al385]

Personne pour m'orienter sur ce code dysfonctionnant ? Je ne trouve pas ...

Merci d'avance

[Menhir]

Je bloque toujours mon code ne marche pas

"Ca ne marche pas", c'est un peu vague comme description de problème.
Si tu ne prends pas la peine de t'expliquer clairement, il ne faut pas t'étonner qu'il n'y ait personne qui prenne la peine de te répondre.

[Al385]

Navré, je manque de précisons mais mon blocage est identique à celui exprimé en début de conversation, code dans la suite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Sub test()
    Dim cell As range
 
    For Each cell In ActiveSheet.UsedRange
        If (cell.Characters(1) = "T")
        Or (cell.Characters(1) = "*")
        Or (cell.Characters(1) = "T" And cell.Characters(1).Font.Bold = True And UCase(cell.Characters(1)) = cell.Characters(1)) Then
    cell.EntireRow.Delete
End If
    Next
    MsgBox "Suppression faite"
End Sub

La première condition If n'est pas acceptée et la continuité avec la condition"OR" n'est donc pas prise en compte également.

Navré, une nouvelle fois, de ces imprécisions et merci d'avance.

Cordialement,

[joe.levrai]

Bonjour,

il y a deux problèmes dans ton code

le premier, qui saute aux yeux quand tu as ton code dans l'éditeur, c'est que tu n'utilise pas de saut de ligne pour lier les trois lignes de ta condition, au moyen du caractère UnderScore que j'ai écrit dans mes exemples

Code :

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

1
2
3
If Condition1 _
Or Condition2 _
Or (Cell.Characters(1) = "T" And Cell.Characters(1).Font.Bold = True And UCase(Cell.Characters(1)) = Cell.Characters(1)) Then

la seconde, un peu plus subtile, provient du test de la valeur de ton premier caractère
en l'état, tu as une erreur car la propriété ".value" n'existe pas pour .Characters
j'ai écris le code directement dans le message, et j'ai oublié d'écrire la bonne propriété, qui est ".Text"

il suffisait de s'aider de la saisie intuitive de VBA, qui ne propose pas de .Value après avoir écrit ".Characters(1)." ... elle propose en revanche .Text

il est important de comprendre la mécanique qu'on explique ainsi que les outils d'aide qu'offre VBA, ce qui permet de corriger ses erreurs, ou celle des proposants

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Cell As Range
 
For Each Cell In ActiveSheet.UsedRange.Cells
    If (Cell.Characters(1).Text = "T") _
    Or (Cell.Characters(1).Text = "*") _
    Or (Cell.Characters(1).Text = "T" And Cell.Characters(1).Font.Bold = True And UCase(Cell.Characters(1).Text) = Cell.Characters(1).Text) Then
        Cell.EntireRow.Delete
    End If
Next Cell
 
MsgBox "Suppression faite"
 
End Sub

[Al385]

Merci pour ces précisions

Je prends bonne note des 2 remarques : le "-" pour les sauts de ligne et la saisie intuitive pour aide obligatoire.
Une nouvelle erreur au script, il est indiqué :
"Impossible de lire la propriété Text de la Classe Characters.

La propriété Text n'est donc pas reconnue ...

Merci d'avance

[joe.levrai]

Bon,

y'avait bien un piège dans ma proposition, pour te forcer à utiliser l'aide

Characters possède deux arguments : début et longueur

si tu ne mets pas la longueur, il va utiliser toute la chaine de caractère, regarde l'aide pour bien comprendre

maintenant, ça ne devrait pas générer d'erreur d'exécution de ne pas spécifier la longueur ... simplement des tests faux

[Menhir]

le "-" pour les sauts de ligne

Non, ce n'est pas un - mais un _ .

[Al385]

"_" pour correction, merci.

Je comprends désormais la logique de characters (début, longueur), mon T, * et T se positionnent toujours en début de séquence donc je renseigne (1, 1).
Merci de nouveau

Cependant, une anomalie subsiste, il est indiqué "impossible de lire la propriété Text de la classe Characters".

Une idée ?

[Menhir]

Est-ce que tu n'aurais pas des cellules vides ?

Autre détail qui n'a rien à voir avec tes If mais le reste de ta macro.
Quand on fait une scrutation pour supprimer des lignes, on le fait plutôt du bas vers le haut.
Avec un For Each, je ne sais pas trop comment ça va se passer quand une ligne sera supprimée (est-ce qu'il reste sur la même ligne pour voir la cellule suivante ou est-ce qu'il passe à la ligne suivante en sautant une cellule) ? Prends le temps de vérifier.

[Al385]

merci de cette réponse.

J'ai des cellules vides effectivement, mais je ne comprends pas l'incidence car avec une seule condition (mon script initial), je ne rencontrais aucun dysfonctionnement malgrè ces cellules vides.

Je vais tester d'éviter le "For each". Je cherche en espérant résolution . Je vous poste ma solution finale dans tous les cas !!

[joe.levrai]

Bonjour,

il faudrait que tu regardes quelle est la cellule qui plante, et nous indiquer le contenu exact de la cellule.

la méthode la plus simple pour ton niveau :

rajoute cette ligne de code :

Code :

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

Debug.print Cell.Address

entre la ligne 4 et 5 de ma proposition

quand le code plante, tu passes en débogage et tu mets le curseur de ta souris sur le mot "Cell.Address", ce qui te donnera les coordonnées de la cellule, il ne restera plus qu'à relever le contenu et à nous le montrer

[Al385]

Merci pour le

Code :

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

Debug.print Cell.Address

Pour restitution, il peut s'avérer comme un Msgbox en plus précis pour savoir à quelles lignes de codes le scrcipt bug en gros ? (le Msg box a d'autres utilités semble-t-il ... :p)

Pour ce qui conerne le contenu bloquant, il s'agit de la cellule ="$I7$' qui correspond à une date en tout début de fichier (cellule fusionnée, je ne sais pas si ça a une importance ?). Mon fichier est confidentiel, c'est pour cela que je ne l'ai pas mis en pièce jointe mais je peux vous en faire une copie en effaçant toutes les données et en-têtes si besoin...

Messieurs, une nouvelle fois, Merci !

[joe.levrai]

Ah oui, c'est le fait que ça soit une date qui coince, je viens de tester

solution alternative : on exclue les cellules qui contiennent une date

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each Cell In ActiveSheet.UsedRange.Cells
    If Not IsDate(Cell.Value) Then
        If (Cell.Characters(1).Text = "T") _
        Or (Cell.Characters(1).Text = "*") _
        Or (Cell.Characters(1).Text = "T" And Cell.Characters(1).Font.Bold = True And UCase(Cell.Characters(1).Text) = Cell.Characters(1).Text) Then
            Cell.EntireRow.Delete
        End If
    End If
Next Cell
 
MsgBox "Suppression faite"

[Al385]

Je reviens de nouveau vers vous avec une copie d'un bout de fichier... Le traitement bloque toujours.
Je suis surpris dans l'exécution :
$B$1
$C$1
$D$1
$A$1
$B$1
$C$1
$D$1
$A$1
$B$1
$C$1
$D$1
$B$2
$C$2
$A$1
$B$1
$C$1
$D$1

Le script bloque en cellule D1 avec une redondance d'exécution.

Merci de nouveau par avance