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

si valeur de la cellule 0 alors copier cellule dans une autre feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Mimi
  • Date de début Date de début

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

Mimi

XLDnaute Occasionnel
Bonjour à tous,
J'ai une feuille Gestion et une feuille Base.
Ce que je souhaiterais c'est que lorsque dans la feuille base quand une quantité est égale à 1 le texte de la colonne
B se mette automatiquement dans la colonne A de la feuille Gestion et ce automatiquement.
Si le chiffre est supérieur rien ne se passe.

D'avance merci

Mimi
 

Pièces jointes

Trier par date Trier par votes
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Bonjour

Mimi
Il faut choisir 😉
[h=2]si valeur de la cellule 0 alors copier cellule dans une autre feuille[/h]
Cliquez pour agrandir...

Ce que je souhaiterais c'est que lorsque dans la feuille base quand une quantité est égale à 1 le texte de la colonne
B se mette automatiquement dans la colonne A de la feuille Gestion et ce automatiquement.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Re

Mimi
???
Tu as déjà la solution dans ta pièce jointe, non !!
'Pour 0
Code: 
Sub test()
 Dim c As Range
 For Each c In Feuil4.Range("F3:F" & Feuil4.Range("A65536").End(xlUp).Row)
     If c.Value = 0 Then c.EntireRow.Copy Feuil38.Range("A65536").End(xlUp)(2)
 Next c
 End Sub
Et si c'est 1 alors il y a juste à modifier ainsi

Code: 
Sub testII()
 Dim c As Range
 For Each c In Feuil4.Range("F3:F" & Feuil4.Range("A65536").End(xlUp).Row)
     If c.Value = 1 Then c.EntireRow.Copy Feuil38.Range("A65536").End(xlUp)(2)
 Next c
 End Sub
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Bonjour JM,
Oui c'est le 1 ou le 0.
Ta formule je l'avais trouver et tester, le seule problème qu'elle présente :
Elle copie toute la ligne,
Il faut créer un bouton.
Et quand je clique une deuxième fois sur le bouton sa me copie en doublon, c'est pour sa que je recherche à le faire automatiquement et sans doublon.
Pour le 1 la copie des lignes de la colonne B de la feuille Base doivent se faire dans la colonne A de la feuille 38.
Pour le 0 la copie des lignes de la colonne B de la feuille Base doivent se faire dans la colonne C de la feuille 38.
D'avance merci
Mimi
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Re

Ce n'est pas ma formule 😉
Tu as déjà la solution dans ta pièce jointe, non !!
Cliquez pour agrandir...
C'est le code VBA qui est dans ta pièce jointe que j'ai collé dans mon premier message.

Qui dit automatique dit alors Ce lien n'existe plus mais je passe ici le relais aux autres membres du forum car je file sous la douche.
Le taf hélas m'attend.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Re

Mimi
Relis mon édition, j'ai ajouté un lien vers un explicatif d'une procédure événementielle.


PS: Quel début de solution ? Tout était déjà dans ta pièce jointe 😉
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Bonjour,
J'ai trouver ceci pour adapter une condition :

Sub test()
Dim cell As Range
Sheets("Base").Select
Application.ScreenUpdating = False
For Each cell In Sheets("Base").Range("F3:F" & Sheets("Base").Range("F65536").End(xlUp).Row)
If cell.Value = "0" Then
cell.EntireRow.Copy Destination:=Sheets("Gestion").Cells(Sheets("Gestion").Range("A65536").End(xlUp).Row + 1, 1)
End If
Next
Application.ScreenUpdating = True
End Sub
Comment Faire pour adapter la 2ème condition, c'est à dire la valeur 1 dans la même macro.
D'avance merci
Mimi
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Bonjour,
Avec la macro dans mon précédent message je clique sur un bouton pour actualiser le stock.
Aurait-il un moyen pour que se soit instantané ??
Quand il i a zéro dans la feuille base sa se reporte tout de suite dans la feuille gestion.
D'avance merci
Mimi
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Bonjour à tous

Mimi
Apparemmenttu n'as pas lu l'édition de mon message et pas cliqué sur le lien qu j'y avais inséré...🙄
Colles le code ci-dessous dans le code de la feuille, et vois si cela peut inspirer quelque idée pour solutionner ta question
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row >= 3 Then
If Target.Count > 1 Then Exit Sub
If Target = 0 Then
Rows(Target.Row).Copy Sheets(2).Cells(Target.Row, 1)
End If
End If
End Sub
PS: Adaptes le nom des feuilles et la plage de destination si besoin
Tu peux aussi tester cette variante : copie vers la première ligne vide en feuille 2
Code: 
Rows(Target.Row).Copy Sheets(2).Cells(Rows.Count, "A").End(3)(2)
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Bonjour JM
Si j'avais regarder et essayer de l'adapter.
J'ai une erreur en jaune sur cette ligne :

Rows(Target.Row).Copy Sheets(38).Cells(Target.Row, 2)

Merci
Mimi
 
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Re

Mimi
Le code que j'ai mis dans mon précédent message fonctionne pourtant sur mon PC
Tu es bien sur d'avoir une feuille 38 dans ton classeur?

NB: Tu as bien mis le code VBA dans le code de la feuille (Clic-droit sur l'onglet -> Visualiser le code) et pas dans un module standard. ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Bonjour

Attention ! Tu confonds le nom de feuille et sa position.
feuil38 qui s'appelle Gestion est en 1 ère position dans ton classeur et non en 38 ème position

Donc utilise :

Rows(Target.Row).Copy Sheets(1).Cells(Rows.Count, "A").End(3)(2)

ou

Rows(Target.Row).Copy Sheets("Gestion").Cells(Rows.Count, "A").End(3)(2)


Cordialement
Chris
 
Dernière édition:
Vote positif 0 Vote négatif
Re : si valeur de la cellule 0 alors copier cellule dans une autre feuille

Re

Mimi
Tu peux joindre un fichier XLS, stp ?
(car ici je n'ai que Excel 2003, et comme ce n'est pas mon PC, je me permettrai d'installer ce qu'il faut pour pouvoir lire les *.xlsm ou *.xlsx)
ou alors tu me permets d'uploader ton fichier sur un site de conversion en ligne ?
(mais le plus simple et le plus rapide, c'est tu joignes un *.xls 😉 )

EDITION: chris401 AKA L'Espoir vient de te donner le fin mot de l'histoire 😉.
 
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

Q
  • Résolu(e)
XL 2021 Ne pas imprimer une feuille si cellule de reference est égale a 0
Réponses
8
Affichages
210
job75
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
118
berru76
B
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
644
MANU64360
M
T
  • Question Question
Microsoft 365 Identifier si une cellule contient une valeur parmi une liste de valeur
Réponses
5
Affichages
345
TRANSPLANT69
T
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
254
ALS35
A
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
262
PRy
P
  • Résolu(e)
XL 2016 Copie automatique de cellules à un endroit précis
Réponses
7
Affichages
204
AtTheOne
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
204
Dudu2
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
1 K
Alamyr
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
1 K
fanfan38
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
393
juju91
J
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
454
TooFatBoy
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
440
fenec
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
344
Webperegrino
W
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
415
gbinforme
G
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
629
Phil69970
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
360
MATLEA
M
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
383
ChTi160
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
485
Yogean
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…