Discussion :

[capi81]

Salut le forum

Je cherche à comprendre la logique pour définir les conditions de suppression de lignes ou colonnes.
J'ai essayé de réaliser ce code mais il ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub sup()
Dim cel As Range, plage As Range
 
Set plage = Intersect(Target, Columns(2))
If plage Is Nothing Then Exit Sub
For Each cel In plage
If cel = "" Then
Rows(cel.Row).Delete
End If
Next
End Sub

Lorsque j'execute le code le message d'erreur suivant apparait:

Objet requis

et cette partie du code est sélectionnée

Code :

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

Set plage = Intersect(Target, Columns(2))

Comment formuler ma condition pour pouvoir supprimer toutes les lignes vide d'une plage de données dans une colonne.
Comment formuler ma condition pour pouvoir supprimer toutes les lignes d'une plage de données dans une colonne lorsque le nombre de caractère est inférieur à 6.
Merci de m'aider afin que je puisse être indépendant pour les prochaines fois.

[Invité]

que représente Target?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub sup()
Dim cel As Range, plage As Range
 
Set plage = Intersect(Target, Columns(2))
If plage Is Nothing Then Exit Sub
For i =plage.rows.count to 1 step -1
       If trim("" & plage(i,1) = "" Then
          plage(i,1).EntireRow.Delete
      End If
Next
End Sub

[capi81]

Bonjour rdurupt

Merci pour l'intervention.
Ne faite pas attention au target mais proposer moi seulement ce qui est logique.
C'est dans mes recherches que j'ai vu dans un code semblable à ce que je cherche que utilisé le target aussi.
Je viens de tester votre solution mais y'a débogage ici

Code :

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

       If trim("" & plage(i,1) = "" Then

avec le message d'erreur suivant :

cette ligne ne contient pas d'instruction exécutable

Cordialement

[Invité]

désolé If trim("" & plage(i,1)) = "" Then

[capi81]

Salut keygen08 et rdurupt

Merci pour vos contributions.
keygen08: votre code fonctionne mais je constate qu'il faut exécuter la macro plusieurs fois pour que les lignes vides soient supprimées. N'est-il pas possible que cela se réalise en une seule exécution?
rdurupt:à l'exécution le message d'erreur suivant apparait "objet requis".

[Invité]

je te l'ai dit Target ne veut rien dire!

[keygen08]

Bonjour
Il vous faut definir 'target'
donc set target = ?????

Sub sup(byval target as range)
target est alors la cellule selectionner sur la feuille
l'intersection de target et columns ne donne alors qu'une cellule et pas une plage de cellule

si le but est de supprimer toutes les lignes dont B est vide

Code :

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

1
2
3
4
5
6
7
Sub sup()
Dim cel As Range, plage As Range
Set plage = range("b1:b" & range("b65000").end (xlup).row)
For Each cel In plage
If cel = "" Then Rows(cel.Row).Delete
Next cel
End Sub