Aide Macro Sur Excel
tahamed
Messages postés
27
Statut
Membre
-
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
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
-
Bonjour tahamed,
Que souhaites-tu que ta macro fasse exactement?
-
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. -
-
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 ? -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
