probleme avec Private Sub Worksheet_Change

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

16/06/2011, 03h59
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
16/06/2011, 12h35
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

Code:

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

16/06/2011, 13h57
tibiscuit

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

Cordialement
16/06/2011, 14h05
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.
16/06/2011, 14h17
tibiscuit

Autant pour moi, j'avais fait une mauvaise manip, ça fonctionne parfaitement. Merci beaucoup.
Dernière chose, à chaque entrée de quantité, on est automatiquement envoyé sur la feuille 'récapitulatif', comment éviter ça?
16/06/2011, 14h25
mercatog

Citation:

on est automatiquement envoyé sur la feuille 'récapitulatif',

:koi:
16/06/2011, 14h37
tibiscuit

En fait, quand on rentre une quantité sur la feuille tarif, la feuille récapitulatif se met à jour et excel nous envoie dessus. Donc si je dois retourner sur la feuille tarifs à chaque fois pour rentrer une nouvelle quantité.
Et je viens également de m'appercevoir que si j'efface une quantité dans tarif elle ne s'efface pas dans récapitulatif.
16/06/2011, 14h44
mercatog

Citation:

En fait, quand on rentre une quantité sur la feuille tarif, la feuille récapitulatif se met à jour et excel nous envoie dessus

avec quel code? Je ne vois pas où j'active la feuille récapitulatif dans le code que je t'avais proposé.

Pour ta 2ème question, comment tu connais la ligne à supprimer? la dernière?
16/06/2011, 15h04
tibiscuit

1ère question résolué, c'est moi qui l'avait ajouté pour tester quelche chose et j'avais oublié de l'enlever.
Pour la 2ème question, c'est au cas où un client rentre une quantité pour un produit et finalement décide de ne plus l'acheter et l'efface
16/06/2011, 15h30
mercatog

Oh là là, tu veux l'aide et tu ne fais aucun effort pour lire convenablement une question et répondre?

Citation:

comment tu connais la ligne à supprimer? la dernière?
16/06/2011, 15h44
tibiscuit

Désolé je suis pas sur d'avoir bien compris ta question.
A mon avis il faudrait que la macro permette de détecter si la ligne à copier ne se trouve pas déjà dans récapitulatif et si oui qu'elle la remplace
16/06/2011, 15h51
mercatog

Et comment le code saura quelle ligne remplacer et quelle ligne supprimer?
Tu as un clé unique pour tes commandes?
En colonne A, tu as un numéro unique de commande?
16/06/2011, 16h09
tibiscuit

1 pièce(s) jointe(s)

Je débute en vba désolé.
Je joins une partie de mon fichier, peut être que ça sera plus clair comme ça.

En effet ta clé unique est la référence de ta commande (c'est cette clé qu'on cherche)

Ci-joint code

Code:

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewLig As Long
Dim c As Range
Dim Ref As String
 
If Target.Count = 1 And Target.Column = 5 Then
    Ref = Range("A" & Target.Row).Value
    If Ref <> "" Then
        With Sheets("Récapitulatif")             ' feuille de destination
            Set c = .Range("A:A").Find(Ref, lookat:=xlWhole)
            If Not c Is Nothing Then
                NewLig = c.Row
                Set c = Nothing
            Else
                NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
            End If
            If Target.Value <> "" Then
                Target.EntireRow.Copy .Range("A" & NewLig)
            Else
                .Rows(NewLig).Delete
            End If
        End With
    End If
End If
End Sub

16/06/2011, 17h17
tibiscuit

Parfait, merci beaucoup pour ton aide.

Bonne fin de journée
20/06/2011, 14h24
tibiscuit

Bonjour,

J'ai encore un souci.
La valeur des cellules qui sont copiées sur la feuille récapitulatif peuvent changer car elles dépendent d'une formule. Du coup les montants de la feuille récapitulatif ne correspondent plus. j'ai pensé à faire un collage avec liaison seulement je ne vois pas comment l'incorporer dans la macro

Tu as changé ton classeur?
Si comprend bien tu veux que l'évènement sera appelé si tu modifie n'importe quelle colonne de ta feuille tarif et non seulement la colonne E? si c'est ça (en plus reporter seulement les valeurs sans les formules), essaie ceci

Code:

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewLig As Long
Dim c As Range
Dim Ref As String
 
Application.ScreenUpdating = False
If Target.Count = 1 And Target.Row >= 8 Then
    Ref = Range("A" & Target.Row).Value
    If Ref <> "" Then
        With Sheets("Récapitulatif")             ' feuille de destination
            Set c = .Range("A:A").Find(Ref, lookat:=xlWhole)
            If Not c Is Nothing Then
                NewLig = c.Row
                Set c = Nothing
            Else
                NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
            End If
            If Target.Value <> "" Then
                Target.EntireRow.Copy .Range("A" & NewLig)
                .Rows(NewLig).Value = .Rows(NewLig).Value
            Else
                .Rows(NewLig).Delete
            End If
        End With
    End If
End If
End Sub

20/06/2011, 16h39
tibiscuit

1 pièce(s) jointe(s)

En fait j'ai rajouté 2 boutons option, et selon celui que l'utilisateur choisit le montant change.
Je rejoins mon fichier pour que ce soit plus clair.

Voir 40 message(s) de cette discussion en une page