Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des
zéros.
c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas
suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je
suprime ces nombres, les cellule A13 et A14 repasse à ZERO
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
Patrick Fredin
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours
contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces
cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
--
Patrick
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:6821E75D-CF7F-4A37-8553-F47443B6DA2B@microsoft.com...
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des
zéros.
c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas
suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je
suprime ces nombres, les cellule A13 et A14 repasse à ZERO
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
PHIL
oui patrick justement j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
oui patrick justement
j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target = 0
Else
Application.EnableEvents = False
For Each Target In Selection
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target.Value = 0
End If
Next
Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas.
ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours
contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces
cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
--
Patrick
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:6821E75D-CF7F-4A37-8553-F47443B6DA2B@microsoft.com...
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des
zéros.
c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas
suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je
suprime ces nombres, les cellule A13 et A14 repasse à ZERO
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
Gaenonius
Essaye plutôt avecce code légèrement modifié :
Private Sub Worksheet_Change(ByVal Target As Range) Dim cellule As Range If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Formula = 0 Else Application.EnableEvents = False For Each cell In Target If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then cell.Formula = 0 End If Next Application.EnableEvents = True End If End Sub
-- Gaenonius
oui patrick justement j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
Essaye plutôt avecce code légèrement modifié :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target.Formula = 0
Else
Application.EnableEvents = False
For Each cell In Target
If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then
cell.Formula = 0
End If
Next
Application.EnableEvents = True
End If
End Sub
--
Gaenonius
oui patrick justement
j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target = 0
Else
Application.EnableEvents = False
For Each Target In Selection
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target.Value = 0
End If
Next
Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas.
ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours
contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces
cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
--
Patrick
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:6821E75D-CF7F-4A37-8553-F47443B6DA2B@microsoft.com...
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des
zéros.
c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas
suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je
suprime ces nombres, les cellule A13 et A14 repasse à ZERO
Private Sub Worksheet_Change(ByVal Target As Range) Dim cellule As Range If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Formula = 0 Else Application.EnableEvents = False For Each cell In Target If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then cell.Formula = 0 End If Next Application.EnableEvents = True End If End Sub
-- Gaenonius
oui patrick justement j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
PHIL
c'est dim cell et pas dim cellule.
merci
Essaye plutôt avecce code légèrement modifié :
Private Sub Worksheet_Change(ByVal Target As Range) Dim cellule As Range If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Formula = 0 Else Application.EnableEvents = False For Each cell In Target If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then cell.Formula = 0 End If Next Application.EnableEvents = True End If End Sub
-- Gaenonius
oui patrick justement j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
c'est dim cell et pas dim cellule.
merci
Essaye plutôt avecce code légèrement modifié :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target.Formula = 0
Else
Application.EnableEvents = False
For Each cell In Target
If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then
cell.Formula = 0
End If
Next
Application.EnableEvents = True
End If
End Sub
--
Gaenonius
oui patrick justement
j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target = 0
Else
Application.EnableEvents = False
For Each Target In Selection
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target.Value = 0
End If
Next
Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas.
ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours
contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces
cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
--
Patrick
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:6821E75D-CF7F-4A37-8553-F47443B6DA2B@microsoft.com...
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des
zéros.
c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas
suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je
suprime ces nombres, les cellule A13 et A14 repasse à ZERO
Private Sub Worksheet_Change(ByVal Target As Range) Dim cellule As Range If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Formula = 0 Else Application.EnableEvents = False For Each cell In Target If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then cell.Formula = 0 End If Next Application.EnableEvents = True End If End Sub
-- Gaenonius
oui patrick justement j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
Gaenonius
c'est dim cell et pas dim cellule.
Impec :)
-- Gaenonius
c'est dim cell et pas dim cellule.
merci
Essaye plutôt avecce code légèrement modifié :
Private Sub Worksheet_Change(ByVal Target As Range) Dim cellule As Range If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Formula = 0 Else Application.EnableEvents = False For Each cell In Target If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then cell.Formula = 0 End If Next Application.EnableEvents = True End If End Sub
-- Gaenonius
oui patrick justement j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
merci de votre aide.
c'est dim cell et pas dim cellule.
Impec :)
--
Gaenonius
c'est dim cell et pas dim cellule.
merci
Essaye plutôt avecce code légèrement modifié :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target.Formula = 0
Else
Application.EnableEvents = False
For Each cell In Target
If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then
cell.Formula = 0
End If
Next
Application.EnableEvents = True
End If
End Sub
--
Gaenonius
oui patrick justement
j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target = 0
Else
Application.EnableEvents = False
For Each Target In Selection
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then
Target.Value = 0
End If
Next
Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas.
ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours
contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces
cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
--
Patrick
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:6821E75D-CF7F-4A37-8553-F47443B6DA2B@microsoft.com...
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des
zéros.
c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas
suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je
suprime ces nombres, les cellule A13 et A14 repasse à ZERO
Private Sub Worksheet_Change(ByVal Target As Range) Dim cellule As Range If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Formula = 0 Else Application.EnableEvents = False For Each cell In Target If cell.Row >= 14 And cell.Column <= 2 And IsEmpty(cell) Then cell.Formula = 0 End If Next Application.EnableEvents = True End If End Sub
-- Gaenonius
oui patrick justement j'ai e ssayé ce code:
If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target = 0 Else Application.EnableEvents = False For Each Target In Selection If Target.Row >= 14 And Target.Column <= 2 And IsEmpty(Target) Then Target.Value = 0 End If Next Application.EnableEvents = True
mais cela ne veut pas focntionner j'arrive a supprimer mes 0, je comprend pas. ou est bug?
merci de ton aide
Bonjour,
Si tu connais VBA, tu utilises l'événement Worksheet_Change.
Dans cette procédure, tu contrôles si les cellules qui doivent toujours contenir au moins un zéro sont vides. Si c'est le cas, tu mets 0 dans ces cellules.
Si tu as besoin de plus d'aide, fais-moi signe.
-- Patrick
"PHIL" wrote in message news:
Bonsoir,
Savez vous comment figer sur ma feuille 2 dans la cellule A13 et A14, des zéros. c'est a dire si j'ai rien dans A13 et A14 j'aurai des 0, je ne pourrai pas suprimer ces 0, je pourrai mettre seulement d'autres nombres, et qaund je suprime ces nombres, les cellule A13 et A14 repasse à ZERO
