bonjour =E0 toutes et tous, j'ai besoin de vos connaissances pour deux
choses
1- voila je fais une multiplication de deux cellules A1 et B1 le
r=E9sultat et en C1, ce r=E9sultat ne doit pas d=E9passer une certaine
valeur exp 20; comment je peux faire?
2- je voudrais prot=E9ger mes cellules de toutes modification par vba??
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
AV
1- voila je fais une multiplication de deux cellules A1 et B1 le résultat et en C1, ce résultat ne doit pas dépasser une certaine valeur exp 20; comment je peux faire?
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:B1]) Is Nothing Then Exit Sub If [A1] * [B1] > 20 Then Application.EnableEvents = False zz.Select MsgBox "Le produit A1 x B1 ne doit pas dépasser 20" zz = "" Application.EnableEvents = True End If End Sub
2- je voudrais protéger mes cellules de toutes modification par vba??
1- voila je fais une multiplication de deux cellules A1 et B1 le
résultat et en C1, ce résultat ne doit pas dépasser une certaine
valeur exp 20; comment je peux faire?
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B1]) Is Nothing Then Exit Sub
If [A1] * [B1] > 20 Then
Application.EnableEvents = False
zz.Select
MsgBox "Le produit A1 x B1 ne doit pas dépasser 20"
zz = ""
Application.EnableEvents = True
End If
End Sub
2- je voudrais protéger mes cellules de toutes modification par vba??
1- voila je fais une multiplication de deux cellules A1 et B1 le résultat et en C1, ce résultat ne doit pas dépasser une certaine valeur exp 20; comment je peux faire?
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:B1]) Is Nothing Then Exit Sub If [A1] * [B1] > 20 Then Application.EnableEvents = False zz.Select MsgBox "Le produit A1 x B1 ne doit pas dépasser 20" zz = "" Application.EnableEvents = True End If End Sub
2- je voudrais protéger mes cellules de toutes modification par vba??
Pour la première question tu peux utiliser les validations avec la formule ¡< /A2 pour la première cellule et vice-versa pour la seconde
A+
Paul V
"AV" a écrit dans le message de news: %
1- voila je fais une multiplication de deux cellules A1 et B1 le résultat et en C1, ce résultat ne doit pas dépasser une certaine valeur exp 20; comment je peux faire?
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:B1]) Is Nothing Then Exit Sub If [A1] * [B1] > 20 Then Application.EnableEvents = False zz.Select MsgBox "Le produit A1 x B1 ne doit pas dépasser 20" zz = "" Application.EnableEvents = True End If End Sub
2- je voudrais protéger mes cellules de toutes modification par vba??
Pour la première question tu peux utiliser les validations avec la formule
¡< /A2 pour la première cellule et vice-versa pour la seconde
A+
Paul V
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%233QlbkM2GHA.2176@TK2MSFTNGP04.phx.gbl...
1- voila je fais une multiplication de deux cellules A1 et B1 le
résultat et en C1, ce résultat ne doit pas dépasser une certaine
valeur exp 20; comment je peux faire?
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:B1]) Is Nothing Then Exit Sub
If [A1] * [B1] > 20 Then
Application.EnableEvents = False
zz.Select
MsgBox "Le produit A1 x B1 ne doit pas dépasser 20"
zz = ""
Application.EnableEvents = True
End If
End Sub
2- je voudrais protéger mes cellules de toutes modification par vba??
Pour la première question tu peux utiliser les validations avec la formule ¡< /A2 pour la première cellule et vice-versa pour la seconde
A+
Paul V
"AV" a écrit dans le message de news: %
1- voila je fais une multiplication de deux cellules A1 et B1 le résultat et en C1, ce résultat ne doit pas dépasser une certaine valeur exp 20; comment je peux faire?
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:B1]) Is Nothing Then Exit Sub If [A1] * [B1] > 20 Then Application.EnableEvents = False zz.Select MsgBox "Le produit A1 x B1 ne doit pas dépasser 20" zz = "" Application.EnableEvents = True End If End Sub
2- je voudrais protéger mes cellules de toutes modification par vba??
Va voir dans "Données | Validation". Tu aura tout ce dont tu as besoin.
Pierre
"kaji" a écrit dans le message de news:
bonjour à toutes et tous, j'ai besoin de vos connaissances pour deux choses 1- voila je fais une multiplication de deux cellules A1 et B1 le résultat et en C1, ce résultat ne doit pas dépasser une certaine valeur exp 20; comment je peux faire? 2- je voudrais protéger mes cellules de toutes modification par vba??
merci bcp pour votre aide et bonne journée
Salut,
Va voir dans "Données | Validation". Tu aura tout ce dont tu as besoin.
Pierre
"kaji" <jaafar.kabli@gmail.com> a écrit dans le message de news:
1158325324.529841.56210@i42g2000cwa.googlegroups.com...
bonjour à toutes et tous, j'ai besoin de vos connaissances pour deux
choses
1- voila je fais une multiplication de deux cellules A1 et B1 le
résultat et en C1, ce résultat ne doit pas dépasser une certaine
valeur exp 20; comment je peux faire?
2- je voudrais protéger mes cellules de toutes modification par vba??
Va voir dans "Données | Validation". Tu aura tout ce dont tu as besoin.
Pierre
"kaji" a écrit dans le message de news:
bonjour à toutes et tous, j'ai besoin de vos connaissances pour deux choses 1- voila je fais une multiplication de deux cellules A1 et B1 le résultat et en C1, ce résultat ne doit pas dépasser une certaine valeur exp 20; comment je peux faire? 2- je voudrais protéger mes cellules de toutes modification par vba??
