Discussion :

[tibiscuit]

Bonjour à tous

Je vous explique mon souci.
J'ai dans une première feuille une liste de produits avec la possibilité de rentrer une quantité à commander pour chacun.
Je souhaite qu'à chaque fois qu'une quantité est rentrée pour un produit, la ligne soit copiée dans une 2ème feuille automatiquement afin d'offrir un récapitulatif de sa commande au client.

J'ai donc écrit cette macro :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("Récapitulatif").Activate ' feuille de destination
 
  Col = "F"                 ' colonne de la donnée non vide à tester
  NumLig = 0
  With Sheets("Tarifs")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  ActiveSheet.Rows.Ungroup
  End With
 
End Sub

Mais lorsque je rentre une quantitée, j'obtiens une erreur à la ligne "Cells(NumLig, 1).Select" et je ne comprends pas pourquoi.

Si l'un d'entre vous à une solution...
Merci d'avance

[Invité]

Bonjour

Si j'ai bien compris, avec cette ligne Cells(NumLig, 1).Select, tu veux copier dans la feuille récapitulatif, mais tu ne la désigne pas, tu es actuellement dans la feuille Tarifs.

Philippe

[tibiscuit]

Bonjour et merci de ta réponse

Cependant je ne pense pas que le problème vienne de là puisque lorsque je lance la macro manuellement (sans la condition évènementielle) elle fonctionne parfaitement. Mais j'ai besoin qu'elle se lance à chaque fois qu'une quantité est rentrée

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewLig As Long
 
If Target.Count = 1 And Target.Column = 6 Then
    If Target.Value <> "" Then
        With Sheets("Récapitulatif")             ' feuille de destination
            NewLig = .Cells(.Rows.Count, "F").End(xlUp).Row + 1
            Target.EntireRow.Copy .Range("A" & NewLig)
        End With
    End If
End If
End Sub

[tibiscuit]

Désolé mais ce code n'a aucun effet.
En tout cas, encore merci de vous intéresser à mon problème.

Cordialement

[mercatog]

Re désolé
Le code fera ceci (à mettre dans le module de la feuille où tu entre tes quantités):

Si tu saisi la quantité dans une cellule de la colonne F, le code copie toute la ligne de cette cellule vers la première ligne vide de la feuille Récapitulatif.