XL 2019 copier collet avec fonction si

[dany05]

=SI(N5>16000;"bon";"nul")

Bonjour a tous

Voila mon probleme si la condition est remplie je voudrais que la ligne correspodante se copie sur la feuille 2 et que rien ne se passe dans le cas contraire

J ai fait la macro

Sub Coller_Feuille_1u_Classeur_Différent()

If (o4="BON";Worksheets("Feuil1").Range("B4:M4").Copy Worksheets("Feuil2").Range("B4:M4");"" 'Copier

End If

End Sub

Mais elle ne fonctionne pas merci d’aider le debutant que je suis

Daniel

 

[Staple1600]

Bonsoir

Une possibilité
Le code VBA doit être mis dans le code de la feuille 1
(en cliquant sur l'onglet et en choisissant -> Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne&
If Not Intersect(Target, Range("O:O")) Is Nothing Then
If Target.Row > 4 Then
Select Case Target.Value
Case Is = "BON"
Ligne = Target.Row
Cells(Target.Row, "B").Resize(, 12).Copy Feuil2.Cells(Ligne, "B")
Case Else
'
End Select
End If
End If
End Sub

La recopie se fait automatiquement en Feuille 2 quand on saisit le mot BON en colonne O
( fonctionne à partir de la ligne 4)

 

[dany05]

super merci pour cette reponse rapide je vais tester ca de suite

 

[dany05]

super merci pour cette reponse rapide je vais tester ca de suite

merci pour ton aide mais elle ne marche pas je dois mal l utiliser

 

[Phil69970]

Bonjour à tous les deux

Poste nous ton fichier anonymisé bien sur....

@Phil69970

 

[Staple1600]

Bonjour @dany05, @Phil69970


Comme indiqué le code VBA doit être dans le code de la feuille
(et pas dans un module standard)

merci pour ton aide mais elle ne marche pas je dois mal l utiliser

J'opte plus pour les mots en bleus
Parce que bien évidemment je teste les codes avant que de les poster sur le forum.

Mais comme le dit, Phil, si nous disposions d'un fichier exemple fourni par tes soins, avec mon bout de code, on verrait de suite ce qui cloche chez toi (enfin je veux dire sur ton test )

 

[dany05]

ok je fais ca d ici ce Week end ca vient surement de moi qui suis débutant en la matière encore merci pour ton aide

 

[dany05]

Voila une copie de mon tableau comme demandé merci je veux encore bosser seul sur le fichier avant de vous le faire parvenir merci pour votre aide

 

[Phil69970]

Re

@dany05

Staple et moi on t'a demandé ceci :

Poste nous ton fichier anonymisé bien sur....

Et tu nous réponds cela :

Voila une copie de mon tableau comme demandé

Au vu de ton image je te propose ceci, ma réponse se trouve ici

Je suis sur que tu vas la trouver facilement

@Phil69970

 

[Staple1600]

Bonjour le fil

Je plussoie au dernier message de Phil

C'est un fichier Excel qu'il nous faut
Car c'est sur un fichier Excel que nous, répondeurs, testons nos macros ou nos formules.
Et c'est plus simple, pratique et rapide quand c'est le demandeur qui poste son fichier exemple.

 

[Staple1600]

Re

@dany05
Dans ton premier message, ton bout de code laissait penser qu'on devait
se baser sur la colonne O
if (o4="BON

Maintenant ta copie d'écran montre qu'il s'agit en fait de la colonne N.

D'où l'importance du fichier exemple.

PS: Si c'est la colonne N, il est pas compliqué de voir ce qu'il faut modifier dans le code que je t'ai proposé.

 

[dany05]

ok merci je ferais plus les meme erreurs encore merci pour votre patiance

 

[Staple1600]

Re,

@dany05
Lol, tu viens d'en faire une nouvelle (bien que très anodine) en marquant comme solution ton propre message

D'ailleurs on ne sait toujours pas si ta question est résolue ou pas ?

 

[mutzik]

bonjour

If Worksheets("Feuil1").Range("o4")="BON" then
Worksheets("Feuil1").Range("B4:M4").Copy Worksheets("Feuil2").Range("B4:M4")
end if

 

[Staple1600]

Bonjour mutzik

Pour la recopie B4 suffit, non ?
(cf message#2)

Mais si on regarde la copie d'écran, c'est la colonne N, non ?
(ou j'ai la berlue?)