Microsoft 365 Comment supprimer le contenu d'un cellule automatiquement

[Lucho63]

Bonsoir à tous,
Je souhaite supprimer les cellules oranges ci-dessous, vous avez une solution automatique ?

Merci d'avance.

 

[sylvanu]

Bonjour Lucho,
Un essai en PJ avec :

Sub Efface()
For Each cell In Range("A1").CurrentRegion
    If cell.Interior.Color = RGB(255, 192, 0) Then
        cell.Value = ""
        cell.Interior.Color = xlColorIndexNone
    End If
Next
End Sub

 

[job75]

Bonsoir Lucho63,

Plusieurs questions :

- supprimer ou effacer ?

- si supprimer, décaler vers la gauche ou vers le haut ?

- si effacer, faut-il effacer aussi la couleur orange ou la remplacer par du jaune ?

- quel critère avez-vous utilisé pour colorer en orange ? Valeur Inférieure à 1 ?

A+

 

[Lucho63]

Bonsoir Lucho63,

Plusieurs questions :

- supprimer ou effacer ?

- si supprimer, décaler vers la gauche ou vers le haut ?

- si effacer, faut-il effacer aussi la couleur orange ou la remplacer par du jaune ?

- quel critère avez-vous utilisé pour colorer en orange ? Valeur Inférieure à 1 ?

A+

Bonsoir Job75,
Merci pour ton attention.
Au mieux, supprimer et décaler vers la gauche, mais supprimer me suffira.
Pour la sélection, je veux supprimer toutes les valeurs égal à 0 et à droite d'un 0.

 

[Lucho63]

Bonjour Lucho,
Un essai en PJ avec :

Sub Efface()
For Each cell In Range("A1").CurrentRegion
    If cell.Interior.Color = RGB(255, 192, 0) Then
        cell.Value = ""
        cell.Interior.Color = xlColorIndexNone
    End If
Next
End Sub

Merci, de ta réponse, mais normalement mon tableau ne comporte pas de couleur, je veux supprimer toutes les données contenant un 0 et celles à droite d'un zéro.

 

[sylvanu]

Je souhaite supprimer les cellules oranges ci-dessous

Désolé de n'avoir pas compris.

 

[Lucho63]

Désolé de n'avoir pas compris.

Excuse moi, je me suis mal exprimé

 

[sylvanu]

Il faut toujours persévérer.

 

[job75]

Au mieux, supprimer et décaler vers la gauche, mais supprimer me suffira.

Quand on supprime une cellule :

- soit les cellules à droite se décalent vers la gauche

- soit les cellules en dessous se décalent vers le haut.

 

[Lucho63]

Quand on supprime une cellule :

- soit les cellules à droite se décalent vers la gauche

- soit les cellules en dessous se décalent vers le haut.

J'ai besoin que les cellules se décalent vers la gauche

 

[job75]

J'ai besoin que les cellules se décalent vers la gauche

Alors utilisez cette macro :

Sub Supprimer()
Dim ncol%, i&, j%, x
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    ncol = .Columns.Count
    For i = 1 To .Rows.Count
        For j = ncol To 1 Step -1
            x = .Cells(i, j)
            If IsNumeric(CStr(x)) Then If x < 1 Then .Cells(i, j).Delete xlToLeft
    Next j, i
End With
End Sub

 

[job75]

Bonjour à tous,

Au cas où il y aurait des cellules fusionnées il suffit d'ajouter .MergeArea :

Sub Supprimer()
Dim ncol%, i&, j%, x
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    ncol = .Columns.Count
    For i = 1 To .Rows.Count
        For j = ncol To 1 Step -1
            x = .Cells(i, j)
            If IsNumeric(CStr(x)) Then If x < 1 Then .Cells(i, j).MergeArea.Delete xlToLeft
    Next j, i
End With
End Sub

A+

 

[Lucho63]

Alors utilisez cette macro :

Sub Supprimer()
Dim ncol%, i&, j%, x
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    ncol = .Columns.Count
    For i = 1 To .Rows.Count
        For j = ncol To 1 Step -1
            x = .Cells(i, j)
            If IsNumeric(CStr(x)) Then If x < 1 Then .Cells(i, j).Delete xlToLeft
    Next j, i
End With
End Sub

Bonjour,
Merci beaucoup pour votre réponse.

 

[Lucho63]

Il faut toujours persévérer.

Merci beaucoup pour votre réponse.