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
PanZzaNni
Hellow
À mettre dans le code de ta feuille...
'---------------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("b2").Text <> "0" Then Range("b2").Formula = 0 If Range("b3").Text <> "0" Then Range("b3").Formula = 0 End Sub '----------------------------------------------------------------------
Il faut dire c'est pas très gentil aussi de retirer tes zéros...
"JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
Hellow
À mettre dans le code de ta feuille...
'----------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b2").Text <> "0" Then Range("b2").Formula = 0
If Range("b3").Text <> "0" Then Range("b3").Formula = 0
End Sub
'----------------------------------------------------------------------
Il faut dire c'est pas très gentil aussi de retirer tes zéros...
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
DF01915B-FE80-485F-A767-C4C78AE66BAB@microsoft.com...
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que
quelqu' un veut supprimer ces 0 ils se remette automatiquement.
'---------------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("b2").Text <> "0" Then Range("b2").Formula = 0 If Range("b3").Text <> "0" Then Range("b3").Formula = 0 End Sub '----------------------------------------------------------------------
Il faut dire c'est pas très gentil aussi de retirer tes zéros...
"JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
LeSteph
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
Bonsoir Jean,
private sub worksheet_change(byval target as range)
Range("b2:b3") = 0
End Sub
'lsteph
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
DF01915B-FE80-485F-A767-C4C78AE66BAB@microsoft.com...
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que
quelqu' un veut supprimer ces 0 ils se remette automatiquement.
ben non! m'laisse pas tout seul!puis le mien il remets les 0 c'est tout! :)
"PanZzaNni" a écrit dans le message de news:
Bon ben je vais aller dormir... Je vois bien que je ne sers plus à rien
:'(
"LeSteph" a écrit dans le message de news: %23$3P%
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
JEAN
ton preogramme ne passe pas car en B2 et B3 j'ai des 0 mais je voudrai mettre des valeurs, et quand y'a pas de valeurs il reste automatiquement à 0 car la quand je met une valeur exemple: 10 ca reste tjrs 0 et moi je veux mettre 10 en B2 tout en ayant tjrs B3 = 0 et quand jenleve 10 j'aurai tjrs mes deux 0
donc pouvoir mettre n'importe quelle valeur, en sachant que quand il n'y a rien ces cellules reste à zero
merci
"LeSteph" wrote:
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
ton preogramme ne passe pas
car en B2 et B3 j'ai des 0
mais je voudrai mettre des valeurs, et quand y'a pas de valeurs il reste
automatiquement à 0
car la quand je met une valeur exemple: 10
ca reste tjrs 0
et moi je veux mettre 10 en B2 tout en ayant tjrs B3 = 0
et quand jenleve 10 j'aurai tjrs mes deux 0
donc pouvoir mettre n'importe quelle valeur, en sachant que quand il n'y a
rien ces cellules reste à zero
merci
"LeSteph" wrote:
Bonsoir Jean,
private sub worksheet_change(byval target as range)
Range("b2:b3") = 0
End Sub
'lsteph
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
DF01915B-FE80-485F-A767-C4C78AE66BAB@microsoft.com...
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que
quelqu' un veut supprimer ces 0 ils se remette automatiquement.
ton preogramme ne passe pas car en B2 et B3 j'ai des 0 mais je voudrai mettre des valeurs, et quand y'a pas de valeurs il reste automatiquement à 0 car la quand je met une valeur exemple: 10 ca reste tjrs 0 et moi je veux mettre 10 en B2 tout en ayant tjrs B3 = 0 et quand jenleve 10 j'aurai tjrs mes deux 0
donc pouvoir mettre n'importe quelle valeur, en sachant que quand il n'y a rien ces cellules reste à zero
merci
"LeSteph" wrote:
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
LeSteph
copier coller pas bouger ? Non des pâtes, il sert! si... sert à Jean.
t'as raison , finalement , je viens de casser mon dernier neurone de la journée bonne nuit .
lSteph
"PanZzaNni" a écrit dans le message de news:
Ben le mien aussi
T'imagine qi il faisait de l'argent en plus ! !
Ce serait trop génial
Mais bon....
Au fait, à quoi ça sert??
"LeSteph" a écrit dans le message de news: OaXR9$
ben non! m'laisse pas tout seul!puis le mien il remets les 0 c'est tout! :)
"PanZzaNni" a écrit dans le message de news:
Bon ben je vais aller dormir... Je vois bien que je ne sers plus à rien
:'(
"LeSteph" a écrit dans le message de news: %23$3P%
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
copier coller pas bouger ?
Non des pâtes,
il sert! si...
sert à Jean.
t'as raison , finalement , je viens de casser mon dernier neurone de la
journée
bonne nuit .
lSteph
"PanZzaNni" <emilefyon@hotmail.com> a écrit dans le message de news:
unDnJEW4EHA.2540@TK2MSFTNGP09.phx.gbl...
Ben le mien aussi
T'imagine qi il faisait de l'argent en plus ! !
Ce serait trop génial
Mais bon....
Au fait, à quoi ça sert??
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OaXR9$V4EHA.1260@TK2MSFTNGP12.phx.gbl...
ben non! m'laisse pas tout seul!puis le mien il remets les 0 c'est tout!
:)
"PanZzaNni" <emilefyon@hotmail.com> a écrit dans le message de news:
ehT1j9V4EHA.2180@TK2MSFTNGP12.phx.gbl...
Bon ben je vais aller dormir... Je vois bien que je ne sers plus à rien
:'(
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
%23$3P%232V4EHA.1404@TK2MSFTNGP11.phx.gbl...
Bonsoir Jean,
private sub worksheet_change(byval target as range)
Range("b2:b3") = 0
End Sub
'lsteph
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de
news: DF01915B-FE80-485F-A767-C4C78AE66BAB@microsoft.com...
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois
que
quelqu' un veut supprimer ces 0 ils se remette automatiquement.
copier coller pas bouger ? Non des pâtes, il sert! si... sert à Jean.
t'as raison , finalement , je viens de casser mon dernier neurone de la journée bonne nuit .
lSteph
"PanZzaNni" a écrit dans le message de news:
Ben le mien aussi
T'imagine qi il faisait de l'argent en plus ! !
Ce serait trop génial
Mais bon....
Au fait, à quoi ça sert??
"LeSteph" a écrit dans le message de news: OaXR9$
ben non! m'laisse pas tout seul!puis le mien il remets les 0 c'est tout! :)
"PanZzaNni" a écrit dans le message de news:
Bon ben je vais aller dormir... Je vois bien que je ne sers plus à rien
:'(
"LeSteph" a écrit dans le message de news: %23$3P%
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
LeSteph
Re, bonsoir Jean, Si si "cela passe" Tu as dit:
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement. C'est cela que cela fait .
Maintenant si tu veux
mettre des valeurs, et quand y'a pas de valeurs il reste automatiquement à 0 car la quand je met une valeur exemple: 10 ca reste tjrs 0 et moi je veux mettre 10 en B2 tout en ayant tjrs B3 = 0 et quand jenleve 10 j'aurai tjrs mes deux 0
donc pouvoir mettre n'importe quelle valeur, en sachant que quand il n'y a rien ces cellules reste à zero
c'est une autre demande , là (pour l'heure)c'est moi qui "passe".
;-) Bonne nuit .
lSteph
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement. a écrit dans le message de news:
ton preogramme ne passe pas car en B2 et B3 j'ai des 0 mais je voudrai > merci
"LeSteph" wrote:
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
Re, bonsoir Jean,
Si si "cela passe"
Tu as dit:
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois
que
quelqu' un veut supprimer ces 0 ils se remette automatiquement.
C'est cela que cela fait .
Maintenant si tu veux
mettre des valeurs, et quand y'a pas de valeurs il reste
automatiquement à 0
car la quand je met une valeur exemple: 10
ca reste tjrs 0
et moi je veux mettre 10 en B2 tout en ayant tjrs B3 = 0
et quand jenleve 10 j'aurai tjrs mes deux 0
donc pouvoir mettre n'importe quelle valeur, en sachant que quand il n'y a
rien ces cellules reste à zero
c'est une autre demande , là (pour l'heure)c'est moi qui "passe".
;-)
Bonne nuit .
lSteph
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois
que
quelqu' un veut supprimer ces 0 ils se remette automatiquement.
<JEAN@discussions.microsoft.com> a écrit dans le message de news:
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement. C'est cela que cela fait .
Maintenant si tu veux
mettre des valeurs, et quand y'a pas de valeurs il reste automatiquement à 0 car la quand je met une valeur exemple: 10 ca reste tjrs 0 et moi je veux mettre 10 en B2 tout en ayant tjrs B3 = 0 et quand jenleve 10 j'aurai tjrs mes deux 0
donc pouvoir mettre n'importe quelle valeur, en sachant que quand il n'y a rien ces cellules reste à zero
c'est une autre demande , là (pour l'heure)c'est moi qui "passe".
;-) Bonne nuit .
lSteph
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement. a écrit dans le message de news:
ton preogramme ne passe pas car en B2 et B3 j'ai des 0 mais je voudrai > merci
"LeSteph" wrote:
Bonsoir Jean,
private sub worksheet_change(byval target as range) Range("b2:b3") = 0 End Sub
'lsteph "JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
michdenis
Bonjour Jean,
à mettre dans la feuille module où l'action se déroule :
'---------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B3"), Target) Is Nothing Then Application.EnableEvents = False For Each C In Range("B2:B3") If IsNumeric(C) = True Then If C.Value = 0 Then C.Value = 0 End If Else C.Value = 0 End If Next Application.EnableEvents = True End If
End Sub '----------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
merci de votre aide
Bonjour Jean,
à mettre dans la feuille module où l'action se déroule :
'----------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B3"), Target) Is Nothing Then
Application.EnableEvents = False
For Each C In Range("B2:B3")
If IsNumeric(C) = True Then
If C.Value = 0 Then
C.Value = 0
End If
Else
C.Value = 0
End If
Next
Application.EnableEvents = True
End If
End Sub
'----------------------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
DF01915B-FE80-485F-A767-C4C78AE66BAB@microsoft.com...
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que
quelqu' un veut supprimer ces 0 ils se remette automatiquement.
à mettre dans la feuille module où l'action se déroule :
'---------------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B3"), Target) Is Nothing Then Application.EnableEvents = False For Each C In Range("B2:B3") If IsNumeric(C) = True Then If C.Value = 0 Then C.Value = 0 End If Else C.Value = 0 End If Next Application.EnableEvents = True End If
End Sub '----------------------------------
Salutations!
"JEAN" a écrit dans le message de news:
Bonjour,
je voudrai mettre des 0 dans la cellule B2 et B3, et qu'a chaque fois que quelqu' un veut supprimer ces 0 ils se remette automatiquement.
