Aide Macro Sur Excel

tahamed Messages postés 27 Statut Membre -  
tahamed Messages postés 27 Statut Membre -
Bonjour,

Après plusieurs semaines, j'ai réussi a créer ma macro et j'avance pas mal, mais actuellement je bloque sur une seul "celle du bouton modifier"
je vous laisse le fichier en PJ pour le voir et essayer de m'aidé si vous pouvez, je vous remercie par avance !

mon problème se pose au niveau du bouton modifier, sa macro ne fonctionne pas correctement !!!

https://www.cjoint.com/?AKyjfLEJOt4

5 réponses

Heremion Messages postés 564 Statut Membre 102
 
Bonjour tahamed,

Que souhaites-tu que ta macro fasse exactement?
0
tahamed Messages postés 27 Statut Membre
 
Bonjour,

Je souhaite que ma Macro, me ressors les données de la deuxième feuille "Retours" sur le premier tableau "masque de saisie", et que je puisse modifier et réenregistrer une autre fois sans perdre les données.

Je ne sais pas si j'ai été claire ou pas !

en gros modifier les données de la deuxième feuille.
0
tahamed Messages postés 27 Statut Membre
 
Up, merci de m'aider c urgent !
0
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

me ressors les données de la deuxième feuille "Retours"

Comme tu n'as aucune donnée sur la feuille ta macro ne peux te ressortir aucune donnée.

Quand à l'urgence, tu as peut-être des SSII pour cela ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Heremion Messages postés 564 Statut Membre 102
 
Sur la macro "Modifier" :

Remplaces ton bloc
<With>
par le code suivant :

With Sheets("Retour")
    DrLig = .Range("A65536").End(xlUp).Row
    Set Plage = .Range("A6:C" & DrLig)
    For Lign = 6 To DrLig
        Set Trouve = Sheets("Masque de Saisie").Rows.Find(.Cells(Lign, 3))
            If Trouve Is Nothing Then
                MsgBox "Une erreur de saisie dans les noms de clients!"
                Exit Sub
            Else
                Col = Trouve.Column
            End If
            Set Trouve = Sheets("Masque de Saisie").Columns.Find(.Cells(Lign, 4))
            If Trouve Is Nothing Then
                MsgBox "La Semaine Sélectionné ne figure pas dans la base de données !"
                Exit Sub
            Else
                Lig = Trouve.Row
            End If
        Set Trouve = Nothing
        Sheets("Masque de Saisie").Cells(Lig, Col) = .Cells(Lign, 5)
        Next
End With


0
tahamed Messages postés 27 Statut Membre
 
Merci pour votre aide, ca a marché une fois mais après ca me sort le msg suivant :
erreur d'execution
fin déblocage aide ...
sur la ligne : With Sheets("Retour")
0
tahamed Messages postés 27 Statut Membre
 
En fait je viens d'essayer ta macro, quand je clique sur modifier ca me sort les données de toute les semaines ! et non pas la semaine selectionné !
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
salut,
Dans le code de ton commadbutton1, sachant que tu es dans un bloc With Sheets("Retour"), qu'est censé faire la ligne :
Set Trouve = Sheets("Masque de Saisie").Rows(6).Find(.Cells(Lign, 2))
0
tahamed Messages postés 27 Statut Membre
 
je remplace ???
0
Heremion Messages postés 564 Statut Membre 102
 
Il faut que tu remettes le code pour filtrer sur le deuxième onglet. Essaie
0