Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel supplignes

supplignes

11 réponses
Avatar
Cvar
Bonjour,

Je recherche une macro pour supprimer des lignes lorsque dans la colonne C
une cellule est vide


Merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Sabian
moi je l'avais fait pour la colonne. Donc, à réadapter...
voila voila...

Private Sub cmdSupprimer_Click()
'se place sur A65536
Range("A65536").Activate

'va à la première cellule de la colonne A
'qui contient quelque chose
Selection.End(xlUp).Select

'tant que la cellule n'est pas A1
Do While ActiveCell.Address <> "$A$1"

'tant que la cellule n'est pas égal à rien
'et que la cellule n'est pas A1
Do While ActiveCell.Value <> "" And _
ActiveCell.Address <> "$A$1"

'se placer une ligne plus haut
ActiveCell.Offset(-1, 0).Select

Loop

'si la valeur de la cellule est vide
If ActiveCell.Value = "" Then
'supprime la ligne
Selection.Delete Shift:=xlUp
End If
Loop
End Sub


-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes lorsque
dans la colonne C

une cellule est vide


Merci


.



Avatar
Ellimac
Bonjour,

Sub Toto()
Columns(3).SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveCell.Select
End Sub

Camille

-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes lorsque
dans la colonne C

une cellule est vide


Merci


.



Avatar
Pierre Fauconnier
Bonjour Camille

Tant qu'à faire plus court et sans boucle, ... ;-)

Je propose

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)


Ellimac wrote:
Bonjour,

Sub Toto()
Columns(3).SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveCell.Select
End Sub

Camille

-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes lorsque dans la
colonne C une cellule est vide


Merci


.




Avatar
Domi
Range("C1:C65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Quelque chose dans le genre devrait faire l'affaire...(on peut améliorer la
plage...)

Domi


"Cvar" a écrit dans le message de news:
3f72bf36$
Bonjour,

Je recherche une macro pour supprimer des lignes lorsque dans la colonne C
une cellule est vide


Merci




Avatar
Cvar
Merci,
Je vais mettre en pratique vos propositions

"Cvar" a écrit dans le message de news:
3f72bf36$
Bonjour,

Je recherche une macro pour supprimer des lignes lorsque dans la colonne C
une cellule est vide


Merci




Avatar
michdenis
Bonjour Sabian,

Cette ligne de code :" Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete " s'utilise toujours avec une ligne
de code comme celle-ci : ON error resume next... parce que la méthode SpecialCells lorsqu'elle ne trouve pas au moins
une cellule correspondante à ce qu'elle cherche.. provoque une erreur.

On error resume next
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


Salutations!


"Sabian" a écrit dans le message de news:102ae01c38352$6e51d700$
Tiens... pourquoi chez moi il me met 'Erreur d'exectution
1004 et qu'il n'arrive pas à lire la propriété SpecialCell
de la classe Range... ???

Bouuuuuuuhhhhhhh c'est trop unjuste.
Calimero


-----Message d'origine-----
Bonjour Camille

Tant qu'à faire plus court et sans boucle, ... ;-)

Je propose

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le
temps..."

(remplacer NOSPAM par pfi pour me répondre. Merci)


Ellimac wrote:
Bonjour,

Sub Toto()
Columns(3).SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveCell.Select
End Sub

Camille

-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes
lorsque dans la



colonne C une cellule est vide


Merci


.




.





Avatar
FxM
Tu vois Pierre, il ne faut pas toujours jouer à celui qui a la plus
courte ;o))

@+
FxM



michdenis wrote:

Bonjour Sabian,

Cette ligne de code :" Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete " s'utilise toujours avec une ligne
de code comme celle-ci : ON error resume next... parce que la méthode SpecialCells lorsqu'elle ne trouve pas au moins
une cellule correspondante à ce qu'elle cherche.. provoque une erreur.

On error resume next
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


Salutations!


"Sabian" a écrit dans le message de news:102ae01c38352$6e51d700$
Tiens... pourquoi chez moi il me met 'Erreur d'exectution
1004 et qu'il n'arrive pas à lire la propriété SpecialCell
de la classe Range... ???

Bouuuuuuuhhhhhhh c'est trop unjuste.
Calimero



-----Message d'origine-----
Bonjour Camille

Tant qu'à faire plus court et sans boucle, ... ;-)

Je propose

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le


temps..."

(remplacer NOSPAM par pfi pour me répondre. Merci)


Ellimac wrote:

Bonjour,

Sub Toto()
Columns(3).SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveCell.Select
End Sub

Camille


-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes




lorsque dans la

colonne C une cellule est vide


Merci


.




.










Avatar
Pierre Fauconnier
Hé, arrête ton char... J'ai répondu à TOUS les messages me proposant de la
faire grandir. Y parait même qu'y z'ont réservé un boeing pour le viagra et
toutes les pommades. Même qu'i z'ont dit qu'ils me mettraient le patch
Microsoft avec ... :-))))


Pierre



FxM wrote:
Tu vois Pierre, il ne faut pas toujours jouer à celui qui a la plus
courte ;o))

@+
FxM



michdenis wrote:

Bonjour Sabian,

Cette ligne de code :"
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete "
s'utilise toujours avec une ligne de code comme celle-ci : ON error
resume next... parce que la méthode SpecialCells lorsqu'elle ne
trouve pas au moins une cellule correspondante à ce qu'elle
cherche.. provoque une erreur.

On error resume next
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


Salutations!


"Sabian" a écrit dans le message de
news:102ae01c38352$6e51d700$ Tiens... pourquoi
chez moi il me met 'Erreur d'exectution 1004 et qu'il n'arrive pas à
lire la propriété SpecialCell de la classe Range... ???

Bouuuuuuuhhhhhhh c'est trop unjuste.
Calimero



-----Message d'origine-----
Bonjour Camille

Tant qu'à faire plus court et sans boucle, ... ;-)

Je propose

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le


temps..."

(remplacer NOSPAM par pfi pour me répondre. Merci)


Ellimac wrote:

Bonjour,

Sub Toto()
Columns(3).SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveCell.Select
End Sub

Camille


-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes




lorsque dans la

colonne C une cellule est vide


Merci


.




.








Avatar
Pierre Fauconnier
Et puis d'abord, c'est celui qui dit qui l'est ... ;-))


FxM wrote:
Tu vois Pierre, il ne faut pas toujours jouer à celui qui a la plus
courte ;o))

@+
FxM



michdenis wrote:

Bonjour Sabian,

Cette ligne de code :"
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete "
s'utilise toujours avec une ligne de code comme celle-ci : ON error
resume next... parce que la méthode SpecialCells lorsqu'elle ne
trouve pas au moins une cellule correspondante à ce qu'elle
cherche.. provoque une erreur.

On error resume next
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


Salutations!


"Sabian" a écrit dans le message de
news:102ae01c38352$6e51d700$ Tiens... pourquoi
chez moi il me met 'Erreur d'exectution 1004 et qu'il n'arrive pas à
lire la propriété SpecialCell de la classe Range... ???

Bouuuuuuuhhhhhhh c'est trop unjuste.
Calimero



-----Message d'origine-----
Bonjour Camille

Tant qu'à faire plus court et sans boucle, ... ;-)

Je propose

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le


temps..."

(remplacer NOSPAM par pfi pour me répondre. Merci)


Ellimac wrote:

Bonjour,

Sub Toto()
Columns(3).SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveCell.Select
End Sub

Camille


-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes




lorsque dans la

colonne C une cellule est vide


Merci


.




.








Avatar
FxM
1h42 pour apparaître. Euh Bilou ... il est embrumé ton serveur ;o)

@+
FxM



FxM wrote:

Tu vois Pierre, il ne faut pas toujours jouer à celui qui a la plus
courte ;o))

@+
FxM



michdenis wrote:

Bonjour Sabian,

Cette ligne de code :"
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete " s'utilise
toujours avec une ligne
de code comme celle-ci : ON error resume next... parce que la méthode
SpecialCells lorsqu'elle ne trouve pas au moins
une cellule correspondante à ce qu'elle cherche.. provoque une erreur.

On error resume next
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


Salutations!


"Sabian" a écrit dans le message de
news:102ae01c38352$6e51d700$
Tiens... pourquoi chez moi il me met 'Erreur d'exectution
1004 et qu'il n'arrive pas à lire la propriété SpecialCell
de la classe Range... ???

Bouuuuuuuhhhhhhh c'est trop unjuste.
Calimero



-----Message d'origine-----
Bonjour Camille

Tant qu'à faire plus court et sans boucle, ... ;-)

Je propose

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete


--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le



temps..."

(remplacer NOSPAM par pfi pour me répondre. Merci)


Ellimac wrote:

Bonjour,

Sub Toto()
Columns(3).SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveCell.Select
End Sub

Camille


-----Message d'origine-----
Bonjour,

Je recherche une macro pour supprimer des lignes





lorsque dans la

colonne C une cellule est vide


Merci


.





.













1 2