Discussion :

[zav66]

Bonjour ,
Je ne suis pas tres fort en VBA et je n'arrive pas a m'en sortir

Mon souhait : Lorsque je coche la case de la feuil4 colone A j'ai une formule qui met "oui" dans la colonne P de le feuil1 et j'aimerais que si il y a oui dans cette colonne la ligne associée soir copier sur la feuil2 a la suite.
Mais ça ne marche pas par contre si je met oui manuellement dans la colonne P de la feuil1 ça marche bien
Y'a-t-il une modification de la macro a effectuer ou faut-il plutot associer la macro a un bouton ??

Merci d'avance

Voila le code que j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 16 Then
        If UCase(Target.Value) = "OUI" Then
            Range("A" & Target.Row).Resize(1, 5).Copy
            ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            Application.CutCopyMode = False
        End If
    End If
End Sub

[unparia]

Bonjour
Les formules s'exécutent dans un autre fil (thread) que celui de VBA et la modification,de par leur fait, de valeurs de cellules ne génère aucun évènement Change concernant la cellule impactée par la formule.
Il te faut donc soit (moins lourd) utiliser l'évènement Change de la cellule déclenchant la nouvelle valeur de la par la formule, soit (plus lourd) procéder à ton "intervention" lors de l'évènement Sheet_Calculate.
On m' "entendra" souvent dire qu'il n'est pas toujours astucieux de mélanger "torchons" (VBA) et "serviettes" (Excel). D'autres auront, je le sais, un autre avis. Question de goûts et de couleurs et n'en parlons donc plus ...

[zav66]

Merci pour ta reponse mais malheureusement pour moi c'est un peu du chinois , pourrais tu me detailler un peu le truc ?

[BENNASR]

bonsoir
ton code fonctionne et fait le copiage des 5 premiers colonne si la colonne P de la feuille 1 égal à "oui"
je crois que t'as pas inséré le code au bon endroit
il faut que ça soit au feuil1 / worksheet / change et non pas un module

si tu cherche un code à associer à un bouton que tu mettra dans feuil1 voiçi un code développé par un des membres de ce super site (vu que je suis aussi débutant en VBA)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub CopierSiOui()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  ' néttoyer la feuille 2
  Sheets("feuil2").Select
  Sheets("feuil2").Range("A1:Z100").Select
  Selection.ClearContents
  '****************
  Sheets("Feuil2").Activate ' feuille de destination
  Col = "P"                 ' colonne de la donnée = "oui"
  NumLig = 0
  With Sheets("Feuil1")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value = "oui" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
 
End Sub

bonne continuation

[zav66]

Merci a tous