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

[Mimi]

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

 

[Staple1600]

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]

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.

 

[Staple1600]

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

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

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

 

[Mimi]

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

 

[Staple1600]

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 !!

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.

 

[Mimi]

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

Re
Merci quand même pour ce début de solution
Mimi

 

[Staple1600]

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 😉

 

[Mimi]

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

 

[Mimi]

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

 

[Staple1600]

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

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

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

 

[Mimi]

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

 

[Staple1600]

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. ?

 

[Mimi]

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

Re
Oui j'ai mis le code dans la feuille Base et modifier 38 à la place de 2
Je joints le fichier

Office 2010
Windows 8

Mimi

 

[Chris401]

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

 

[Staple1600]

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 😉.