Discussion :

[M_saun]

Bonjour,

J'ai juste un petit soucis en vba.

J'ai une selection composée de chiffres.
Celle selection ressemble à ça :

0 0 0 0 0 12 13 14 15 16 17 18 19 0 0 0 0 0 0 0 0 CASE VIDE

Et ce que je veux faire c'est supprimer les zéro ( en rouge) jusqu'à la premiere case vide.

Pourriez m'indiquer comment je peux faire ?

Merci pour votre aide

J'ai commencé VBA il y deux jours.

[SfJ5Rpw8]

Bonjour,

tu peu être plus clair sur ce que tu appelle une sélection ? tu sélectionne quoi ? comment?

[jfontaine]

Bonjour

Le code ci dessous traite la première ligne de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim c As Integer
 
'Derniere colonne utilisée
c = Rows(1).End(xlToRight).Column
 
'Pour chaque cellule on verifie si =0
For c = Rows(1).End(xlToRight).Column To 1 Step -1
    If Cells(1, c).Value = 0 Then
        Cells(1, c).Value = ""
    Else
        'si pas = 0 alors on sort de la boucle
        Exit For
    End If
Next c

[M_saun]

Merci ça me donne une bonne piste.

Pour détecter la premirère case sur laquelle il faut agir je vais faire ce test :

Si (Valeur de la case courante Different de zero) ET (que la case juste après a droite est égale à zéro)

alors je récupère l'adresse de la case a zero et je rajoute ton code ensuite qui va supprimer les 0.

ça se tient ?

[ZebreLoup]

Ou alors, tu pars de la droite et tu effaces la cellules tant qu'il y a des 0

[jfontaine]

Hello Zebreloup,

Ou alors, tu pars de la droite et tu effaces la cellules tant qu'il y a des 0

C'est ce que fait ma proposition (si ce n'est une remise a blanc et non une suppression)

[ZebreLoup]

Pas exactement, si tu regardes bien son exemple, il ne veut effacer (ou mettre à blanc, pour moi c'était pareil, un abus de langage de ma part) que les 0 de droite. D'où un While plutôt qu'un For

En reprenant ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim c As Range
 
'Derniere colonne utilisée
Set c = Rows(1).End(xlToRight)
 
'Pour chaque cellule on verifie si =0
Do While c.Value = 0 And c.Column >= 1
  c.Value = ""
  If c.Column > 1 Then Set c = c.Offset(0, -1)
Loop