Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellule

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

Bonjour Messieurs

Désolé pour ce malentendu et d'avoir rédigé le message un peu rapidement 😀

Le fichier exemple créé n'était là que pour illustrer ma demande et en aucun cas je ne souhaite qu'on fasse le boulot à ma place. 😀 Quoique si vous pouviez y aller à ma place Lundi... 😀

Concernant ma demande :

Code: 
'If Target.Column = 3 And Target.Row = 2 Then
    
        Range("D2").Value = Range("C2").Value

    'End If

Ok mais je souhaite ajouter une condition qui sera suivi de la commande
Code: 
ELSE

Pour faire simple plusieurs conditions sont liées à la Cellule C2.

Un grand merci et désolé pour le malentendu

Cordialement

Pascal
 
Vote positif 0 Vote négatif
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

Bonjour à tous

Je vais essayer d'être plus clair dans ma demande.

Soit les valeurs entrées manuellement en : A1 et B1

C1 = somme de A1 et B1

Si un changement s'opère dans C1 ( en changeant A1 et ou B1) la valeur de C1 est copiée en D1 automatiquement.

Cependant si je change la valeur de D1 manuellement, je garde la valeur entrée manuellement sans prendre en considération l'affectation automatique de la valeur C1 en D1.

J'espère être clair 😀

Il faut savoir que ce processus est appliqué sur une trentaine de cellules.
automatisées

J'ai bien réussi à faire quelque chose bancale en l'incluant dans :
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Le problème c'est que lorsque je change une donnée tout est passé en revue et donc rien que pour changer une donnée il faut attendre... et attendre que l'ensemble du code soit lu...

C'est pourquoi je souhaite connaitre l'instruction correspondant à :


Code: 
Si la valeur de C1 change alors
              alors...............
              Sinon..............
          Fin de si

Si la valeur de C2 change alors
              alors...............
              Sinon..............
          Fin de si

Si la valeur de F2 change alors
              alors...............
              Sinon..............
          Fin de si

ETC

Et cela appliqué à une trentaine de cellules automatisées.


J'espère avoir été clair. 😉

Merci d'avance 🙂

Pascal
 
Vote positif 0 Vote négatif
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

Bonjour
Pas sur d'avoir tout saisi ce que tu veux

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

  If Not Intersect(Range("A2"), Target) Is Nothing Then
    Range("D2").Value = Range("C2").Value
  ElseIf Not Intersect(Range("B2"), Target) Is Nothing Then
    Range("D2").Value = Range("C2").Value
  ElseIf Not Intersect(Range("D2"), Target) Is Nothing Then
    MsgBox "J'ai modifié " & Target.Address
  Else
    MsgBox "J'ai modifié " & Target.Address
  End If
Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

Re

J'ai essayé vos différentes propositions, heu c'est presque ça.

En fait je recherche une commande qui pourrait se traduire par :

Si et seulement si la valeur de la cellule C2 change (calcul automatique de A2 +B2)
alors ...
sinon...

Si et seulement si la valeur de la cellule C3 change (calcul automatique de A2 +B2)
alors ...
sinon
ETC

Merci d'avance

Pascal
 
Vote positif 0 Vote négatif
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

Alors, ajoute Exit Sub juste après Call Traite(Cpt). Il n'y a alors que la première valeur que l'on trouve changée qui produit la recopie. Regarde si c'est cela que tu veux ...

Cordialement
 
Vote positif 0 Vote négatif
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

...je viens de voir ceci :

Si et seulement si la valeur de la cellule C2 change (calcul automatique de A2 +B2)
alors ...
sinon...

Si et seulement si la valeur de la cellule C3 change (calcul automatique de A2 +B2)
alors ...
sinon
ETC

... est-ce bien : calcul automatique de A2 +B2 dans les deux cas?

si c'est cela pour tous les cas, on doit pouvoir faire plus simple...

Cordialement
 
Vote positif 0 Vote négatif
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

Re

Non y'a erreur...

Copier/coller oblige 😀

Il faut lire :

Si et seulement si la valeur de la cellule C2 change (calcul automatique de A2 +B2)
alors ...
sinon...
Fin de si

Si et seulement si la valeur de la cellule C3 change (calcul automatique de A3 +B3)
alors ...
sinon...
Fin de si


Désolé


Cordialement et Merci

Pascal
 
Vote positif 0 Vote négatif
Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul

bonjour tous ;
comme je comprends. pas sûr trop simple pour être cela???

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a:a")) Is Nothing Then Target.Offset(0, 3) = Target.Offset(0, 2)
If Not Application.Intersect(Target, Range("b:b")) Is Nothing Then Target.Offset(0, 2) = Target.Offset(0, 1)
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
299
Nico Gre
N
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
197
berru76
B
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
332
Marie.
M
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
497
laurent950
laurent950
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
455
juju91
J
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
2 K
Alamyr
A
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
290
sylvanu
sylvanu
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
582
sylvanu
sylvanu
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
642
TooFatBoy
TooFatBoy
treza88
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
TooFatBoy
Magnio
  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
366
Magnio
Magnio
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
682
TooFatBoy
TooFatBoy
fenec
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
469
fenec
fenec
O
  • Résolu(e)
XL 2013 Formule qui isole 1 donnée d'une cellule
Réponses
4
Affichages
246
onyirimba
O
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
326
PRy
P
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
352
patricktoulon
patricktoulon
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
693
MANU64360
M
ARaul
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
951
TooFatBoy
TooFatBoy
N
  • Question Question
Microsoft 365 Vérifier si une référence existe dans un tableau Excel avant de la créer
2
Réponses
19
Affichages
1 K
nikeu01
N
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
1 K
jojo4738
J
Retour