XL 2010 Effacer le contenu d'une cellule, si une autre cellule à une valeur de 0 ou est vide.

GALOUGALOU

XLDnaute Accro

• 8 Juillet 2021

• #2

bonjour david-44-
je suppose que votre demande concerne la colonne complète et que la cellule i23 pourrait être i26 ou i28 etc
le code vba ci-dessous à placer dans un module, supprimera toutes les valeurs (à partir de la ligne 5, à vous d'adapter) de la colonne G sur la même ligne que les cellules vides de la colonne I dans la feuille active.

VB:

Sub suppression()
With ActiveSheet
 li = .Cells(36000, 3).End(xlUp).Row
For i = 5 To li
If .Cells(i, 7) = "" Then
.Cells(i, 9) = ""
End If
Next
End With
MsgBox ("Modifications effectuées")
End Sub

cordialement
galougalou

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 8 Juillet 2021

• #3

Bonsoir GALOUGALOU,
En effet, ce sont les colonnes "G" et "I" qui sont utilisées.
Merci de votre aide, mais ça ne marche pas !
Je ne comprends pas.
Je dois mal placer le code.
Bonne soirée.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 8 Juillet 2021

• #4

re
il faut poser la macro dans un module, pour cela ouvrir l'éditeur vba avec alt+F11
j'ai oublié de préciser, dans la macro, c'est la colonne c qui est testée pour trouver la dernière ligne
.Cells(36000, 3).
modifiez le 3 par une colonne adaptée à votre classeur

voir le classeur exemple
cdt

 

Pièces jointes

• macro suppression.xlsm

  17.3 KB · Affichages: 14

Dernière édition: 9 Juillet 2021

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 8 Juillet 2021

• #5

For i = 5 To li
Dans la macro l'analyse commence à la ligne 5, modifiez le 5 avec une ligne adaptée à votre classeur?
cdt

 

Dernière édition: 9 Juillet 2021

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 8 Juillet 2021

• #6

Re,
Merci ça fonctionne !
Est-il possible de rajouter la suppression si dans la cellule "G" il y a un "0", et de ne pas avoir un bouton pour faire fonctionner le code (simplement en effaçant les chiffres ou en mettant "0" dans la cellule "G" ?
Merci de votre aide.
Bonne soirée.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 8 Juillet 2021

• #7

re

VB:

Sub suppression()
With ActiveSheet
 li = .Cells(36000, 3).End(xlUp).Row
For i = 5 To li
If .Cells(i, 7) = "" Or .Cells(i, 7) = "0" Then
.Cells(i, 9) = ""
End If
Next
End With
End Sub

et dans l'évènement feuille ( voir le classeur exemple)

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Range("G5:G1000"), Target) Is Nothing Then
Call suppression
End If
End Sub

et bien sur adaptez g5:g1000
cdt

 

Pièces jointes

• macro suppression.xlsm

  18.9 KB · Affichages: 10

Dernière édition: 9 Juillet 2021

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 8 Juillet 2021

• #8

Re,
Merci beaucoup.
Ça fonctionne super bien.
Bonne soirée.

 

Vote positif 0 Vote négatif