Supprimer les valeurs de la ligne entière, si

[degap05]

Bonjour,

Avec votre aide pour l'écriture d'une partie de macro, pour supprimer les valeurs de la ligne entière, en sélectionnant la première cellule vide en colonne "A", si la cellule de la même ligne en colonne "B" contient une valeur.

Ou encore, supprimer les valeurs de la ligne, si cellule en "B" contient une valeur et si cellule en "A" est vide.

Est-ce quelque chose comme ?:

With Sheets("Récapitulatif")
If Range("A65536").End(xlUp).Row = "" Then EntireRow.Delete
End With

Merci.

 

[Pierrot93]

Re : Supprimer les valeurs de la ligne entière, si

Bonjour,

tu aurais du rester sur le même fil, plus facile pour suivre :

https://www.excel-downloads.com/threads/envoyer-les-donnees-dune-combobox.135197/

comme tu nous le précisais, mets un petit fichier exemple en pièce jointe, ce sera plus facile pour t'aider, car en l'état pas facile de voir ce que tu veux exactement...

bon après midi
@+

 

[degap05]

Re : Supprimer les valeurs de la ligne entière, si

Bonjour,

tu aurais du rester sur le même fil, plus facile pour suivre :

https://www.excel-downloads.com/threads/envoyer-les-donnees-dune-combobox.135197/

comme tu nous le précisais, mets un petit fichier exemple en pièce jointe, ce sera plus facile pour t'aider, car en l'état pas facile de voir ce que tu veux exactement...

bon après midi
@+

Bonjour Pierrot93,

Le problème de cette discussion a été résolu par CBernardT.
Là, c'est l'étape suivante, qui est la validation, ou pas, des données que l'on vient d'inscrire.
Celles-ci sont validées si la cellule de la ligne en colonne "A" a été complétée par une valeur.
D'ailleurs il est vrai que j'ai omis de préciser qu'il peut y avoir plusieurs lignes à traiter.
J'ai pensé dans un premier temps me servir de la même méthode, proposée par CBernardT et qui fonctionne pour inscrire les données. Mais de là à la mettre en œuvre ......

A+

 

[Pierrot93]

Re : Supprimer les valeurs de la ligne entière, si

Re

peut être comme ceci alors :

With Sheets("Récapitulatif").Range("A65536").End(xlUp).Offset(1, 1)
   If .Value <> "" Then .EntireRow.ClearContents
End With

@+

 

[Efgé]

Re : Supprimer les valeurs de la ligne entière, si

Bonjour degap05, Pierrot93,
Si j'ai compris,

Sub sup_ligne()
Dim derlig
derlig = Range("A" & Application.Rows.Count).End(xlUp).Row
For i = 2 To derlig
        If Cells(derlig, 1).VAlue ="" Then
           Cells(derlig , 1).EntireRow.Delete
       End If
Next i
End sub

Attention à utiliser sur une copie, code destructif.
Cordialement

 

[degap05]

Re : Supprimer les valeurs de la ligne entière, si

Merci Pierrot93,

Ta proposition fonctionne parfaitement pour une ligne.
Comme je l'ai ajouté:"D'ailleurs il est vrai que j'ai omis de préciser qu'il peut y avoir plusieurs lignes à traiter.".
Dans ce cas là, une seule ligne est effacée.

Merci.

 

[Efgé]

Re : Supprimer les valeurs de la ligne entière, si

Re
Alors:

Sub sup_ligne()
Dim derlig
derlig = Range("A" & Application.Rows.Count).End(xlUp).Row
For i = 2 To derlig
        If Cells(i, 1).VAlue ="" Then
           Cells(i , 1).EntireRow.ClearContents
       End If
Next i
End sub

Cordialement

 

[job75]

Re : Supprimer les valeurs de la ligne entière, si

Bonjour le fil,

En l'absence de fichier, peut-être tout bêtement :

With Sheets("Récapitulatif")
.Rows(.Range("A65536").End(xlUp).Row + 1 & ":65536").ClearContents
 End With

A+

 

[degap05]

Re : Supprimer les valeurs de la ligne entière, si

Re
Alors:

Sub sup_ligne()
Dim derlig
derlig = Range("A" & Application.Rows.Count).End(xlUp).Row
For i = 2 To derlig
        If Cells(i, 1).VAlue ="" Then
           Cells(i , 1).EntireRow.ClearContents
       End If
Next i
End sub

Cordialement

Bonjour, Efgé,

J'ai essayé d'adapter 😱😱, mais sans résultat:

Private Sub CommandButton2_Click()
Dim derlig
derlig = Range("A" & Application.Rows.Count).End(xlUp).Row
With Sheets("Récapitulatif").Range("A" & Application.Rows.Count).End(xlUp).Row
For i = 2 To derlig
If Cells(derlig, 1).Value = "" Then
Cells(derlig, 1).EntireRow.ClearContents
End If
Next i
End With
End Sub

Merci.

 

[Pierrot93]

Re : Supprimer les valeurs de la ligne entière, si

Re, bonjour Efge

une autre solution :

With Sheets("Récapitulatif").Range("A65536").End(xlUp).Offset(1, 1)
   If .Value <> "" Then .Resize(65536 - .Row).EntireRow.ClearContents
End With

si aucune solution ne convient, place un tout petit fichier en pièce jointe, précisant le modèle de donnée et leur disposition...

@+

 

[Efgé]

Re : Supprimer les valeurs de la ligne entière, si

Re
Autant pour moi,
Mon second post est bon. il s'agit de

If Cells(i, 1).VAlue ="" Then
Cells(i , 1).EntireRow.ClearContents

et non de

If Cells(derlig, 1)...

D'ailleurs mes réponses étaient assez embrouillées pour que vous confondiez les deux 😱
Désolé,
Cordialement

 

[degap05]

Re : Supprimer les valeurs de la ligne entière, si

Bonjour le fil,

En l'absence de fichier, peut-être tout bêtement :

With Sheets("Récapitulatif")
.Rows(.Range("A65536").End(xlUp).Row + 1 & ":65536").ClearContents
 End With

A+

Merci à Pierrot93, Efgé et Job 75,

Ta solution Job 75, fonctionne avec une ou plusieurs lignes 🙂

Merci