XL 2019 copier collet avec fonction si

dany05 · 5 Avril 2023

=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 · 10 Avril 2023

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

Staple1600 · 5 Avril 2023

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)

VB:

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 · 5 Avril 2023

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

dany05 · 6 Avril 2023

dany05 à dit:
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 · 6 Avril 2023

Bonjour à tous les deux

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

@Phil69970

Staple1600 · 6 Avril 2023

Bonjour @dany05, @Phil69970

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

dany05¸ un peu vite à dit:
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 · 7 Avril 2023

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 · 10 Avril 2023

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 · 10 Avril 2023

Re

@dany05

Staple et moi on t'a demandé ceci :

Phil69970 à dit:
Poste nous ton fichier anonymisé bien sur....

Et tu nous réponds cela :

dany05 à dit:
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 · 10 Avril 2023

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 · 10 Avril 2023

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 · 10 Avril 2023

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

Staple1600 · 10 Avril 2023

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 · 10 Avril 2023

bonjour

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

Staple1600 · 10 Avril 2023

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

XL 2019 copier collet avec fonction si

dany05

XLDnaute Nouveau

Staple1600

Staple1600

XLDnaute Barbatruc

dany05

XLDnaute Nouveau

dany05

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

dany05

XLDnaute Nouveau

dany05

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

dany05

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires