Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Copier et coller la valeur d'une cellule dans une autre cellule

Créer une discussion

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
A

ABOMIA

XLDnaute Nouveau
Bonjour à tous,

Je voudrais copier la valeur d'une cellule (B1) et l'afficher dans la cellule voisine (C1) tant que la valeur de la cellule (B1) est supérieur à zéro.
De plus, si la valeur de la cellule (B1) passe à zero, il faudra que la cellule (C1) garde afficher la dernière valeur antérieure de la cellule (B1) avant sa remise à zero.

Merci encore pour l'aide apportée sur le forum.
 

Pièces jointes

Solution
Bonjour Abomia,
Comme j'ai supposé que ce post était lié à votre dernier post, je suis reparti du précédent pour y ajouter la nouvelle demande :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "OK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = 0
        End If
        If Target = "NOK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = Range("C" & Target.Row) + 1
        End If
    End If
End Sub
Trier par date Trier par votes
Bonjour Abomia,
Comme j'ai supposé que ce post était lié à votre dernier post, je suis reparti du précédent pour y ajouter la nouvelle demande :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "OK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = 0
        End If
        If Target = "NOK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = Range("C" & Target.Row) + 1
        End If
    End If
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Merci encore à toi Sylvanu, tu es un AS de l'Excel 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
133
sylvanu
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
229
fenec
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
118
Dudu2
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
167
Diane272727
D
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
862
Krome36
K
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
221
ascal44
A
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
925
fanfan38
  • Question Question
XL 2016 [RESOLU]Affichage texte et résultat d'une cellule dans une forme
Réponses
3
Affichages
161
nrdz83
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
815
loloboc
L
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
426
rtlv17
R
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
131
mapomme
L
  • Résolu(e)
Autres Lier une cellule texte a une cellule valeur ou utiliser la formule max avec du texte
Réponses
4
Affichages
159
LBE
L
D
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier
Réponses
7
Affichages
321
Diane272727
D
B
  • Question Question
XL 2016 Extraire un nombre d'une chaine de caractère
2
Réponses
18
Affichages
387
Eric 45
E
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
539
Phil69970
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
405
sylvanu
M
  • Résolu(e)
XL 2021 copier des cellules
Réponses
9
Affichages
222
Phil69970
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
991
jojo4738
J
D
  • Question Question
XL 2021 figer le contenu d'une cellule en fonction d'une date
Réponses
3
Affichages
509
JHA
J
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…