Aide Macro Sur Excel

Question

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

Heremion · Answer

Bonjour tahamed,

Que souhaites-tu que ta macro fasse exactement?

tahamed · Answer

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.

tahamed · Answer

Up, merci de m'aider c urgent !

gbinforme · Answer

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 ?

Heremion · Answer

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

Aide Macro Sur Excel

5 réponses

Discussions similaires

Newsletters