Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Evenement Change dans une feuille...

Evenement Change dans une feuille...

7 réponses
Avatar
Domi
Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque changement
dans la feuille Saisie, j'ai donc mis cette petite ligne de code dans
l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement" saisieNivIsol1
et dans ce cas (et seulement celui là) je ne veux pas que ma cellule prenne
la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Philippe.R
Bonsoir Domi,
Comme ceci peut être (si j'ai bien compris) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("saisieNivIsol1")) Is Nothing Then Exit Sub
[saisieNivIsol1] = [NivIsolCalculé]
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Domi" a écrit dans le message de news:e7Y$
Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque changement
dans la feuille Saisie, j'ai donc mis cette petite ligne de code dans
l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement" saisieNivIsol1
et dans ce cas (et seulement celui là) je ne veux pas que ma cellule prenne
la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value




Avatar
LeSteph
Bonsoir,
Et pourquoi pas un msgbox qui ...
à la volée ..àtester:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.address=[saisieNivIsol1].address then
exit sub
else
[saisieNivIsol1] = [NivIsolCalculé].Value
end if

End sub

'leSteph

"Domi" a écrit dans le message de
news:e7Y$
Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque changement
dans la feuille Saisie, j'ai donc mis cette petite ligne de code dans
l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement" saisieNivIsol1
et dans ce cas (et seulement celui là) je ne veux pas que ma cellule
prenne

la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value




Avatar
LeSteph
...ben finalement pas de msgbox mais je vois que
pardon Philippe..à un rien près...tu propose même chose
quelques minutes avant
(je dois être en progrès... et cela c'est un vrai plaisir)
:o)
leSteph


"LeSteph" a écrit dans le message de
news:
Bonsoir,
Et pourquoi pas un msgbox qui ...
à la volée ..àtester:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.address=[saisieNivIsol1].address then
exit sub
else
[saisieNivIsol1] = [NivIsolCalculé].Value
end if

End sub

'leSteph

"Domi" a écrit dans le message de
news:e7Y$
Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque
changement


dans la feuille Saisie, j'ai donc mis cette petite ligne de code dans
l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement"
saisieNivIsol1


et dans ce cas (et seulement celui là) je ne veux pas que ma cellule
prenne

la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value








Avatar
Domi
C'est exactement cela ;o)
Merci
Domi

"Philippe.R" a écrit dans le message de
news:
Bonsoir Domi,
Comme ceci peut être (si j'ai bien compris) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("saisieNivIsol1")) Is Nothing Then Exit Sub
[saisieNivIsol1] = [NivIsolCalculé]
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Domi" a écrit dans le message de
news:e7Y$

Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque
changement


dans la feuille Saisie, j'ai donc mis cette petite ligne de code dans
l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement"
saisieNivIsol1


et dans ce cas (et seulement celui là) je ne veux pas que ma cellule
prenne


la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value








Avatar
Philippe.R
Bonsoir Domi,
Tu noteras au passage que l'utilisation des crochets autour du nom de champ, équivalent à :
Evaluate("lenom"), dispense des double cotes d'une part et de la propriété .value nécessaire dans
Range("lenom").value
Ceci dit, c'était avec plaisir.
--
Amicales Salutations

"Domi" a écrit dans le message de news:
C'est exactement cela ;o)
Merci
Domi

"Philippe.R" a écrit dans le message de
news:
Bonsoir Domi,
Comme ceci peut être (si j'ai bien compris) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("saisieNivIsol1")) Is Nothing Then Exit Sub
[saisieNivIsol1] = [NivIsolCalculé]
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Domi" a écrit dans le message de
news:e7Y$

Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque
changement


dans la feuille Saisie, j'ai donc mis cette petite ligne de code dans
l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement"
saisieNivIsol1


et dans ce cas (et seulement celui là) je ne veux pas que ma cellule
prenne


la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value












Avatar
sabatier
tssss tssss
philippe, le value n'a jamais été nécessaire AMHA, sinon tu ne verrais pas
nos maîtres accoucher de toutes ces contractions obstétricales....
jps

"Philippe.R" a écrit dans le message de
news:%
Bonsoir Domi,
Tu noteras au passage que l'utilisation des crochets autour du nom de
champ, équivalent à :

Evaluate("lenom"), dispense des double cotes d'une part et de la propriété
.value nécessaire dans

Range("lenom").value
Ceci dit, c'était avec plaisir.
--
Amicales Salutations

"Domi" a écrit dans le message de
news:

C'est exactement cela ;o)
Merci
Domi

"Philippe.R" a écrit dans le message de
news:
Bonsoir Domi,
Comme ceci peut être (si j'ai bien compris) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("saisieNivIsol1")) Is Nothing Then Exit
Sub



[saisieNivIsol1] = [NivIsolCalculé]
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Domi" a écrit dans le message de
news:e7Y$

Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque
changement


dans la feuille Saisie, j'ai donc mis cette petite ligne de code
dans




l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement"
saisieNivIsol1


et dans ce cas (et seulement celui là) je ne veux pas que ma cellule
prenne


la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value
















Avatar
Philippe.R
Au temps pour moi !
Z'avais qu'à vérifier !
--
Amicales Salutations

"sabatier" a écrit dans le message de
news:
tssss tssss
philippe, le value n'a jamais été nécessaire AMHA, sinon tu ne verrais pas
nos maîtres accoucher de toutes ces contractions obstétricales....
jps

"Philippe.R" a écrit dans le message de
news:%
Bonsoir Domi,
Tu noteras au passage que l'utilisation des crochets autour du nom de
champ, équivalent à :

Evaluate("lenom"), dispense des double cotes d'une part et de la propriété
.value nécessaire dans

Range("lenom").value
Ceci dit, c'était avec plaisir.
--
Amicales Salutations

"Domi" a écrit dans le message de
news:

C'est exactement cela ;o)
Merci
Domi

"Philippe.R" a écrit dans le message de
news:
Bonsoir Domi,
Comme ceci peut être (si j'ai bien compris) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("saisieNivIsol1")) Is Nothing Then Exit
Sub



[saisieNivIsol1] = [NivIsolCalculé]
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"Domi" a écrit dans le message de
news:e7Y$

Bonsoir à tous,
Je bloque sur un petit pb.

J'ai dans la feuille Saisie une cellule nommée "saisieNivIsol1"
J'ai dans une feuille Calcul une cellule nommée "NivIsolCalculé"

Je veux que la cellule saisieNivIsol1 soit mise à jour à chaque
changement


dans la feuille Saisie, j'ai donc mis cette petite ligne de code
dans




l'evenenment Change de la feuille Saisie.
Le hic c'est que je voudrais pouvoir changer "manuellement"
saisieNivIsol1


et dans ce cas (et seulement celui là) je ne veux pas que ma cellule
prenne


la valeur de NivIsolCalculé.
Comment faire ?
Merci
Domi

Private Sub Worksheet_Change(ByVal Target As Range)
[saisieNivIsol1] = [NivIsolCalculé].Value