Need your help ... maj données dans tableau

Salut Ben-Ten
c'est dans le fichier joint

Bonjour,

Ce problème m'intéresse également.
Par contre, je ne vois pas de changement sur le tableau que Flaille a joint.

peut-être faut-il le joindre sous un nom différent ?

Merci pour vos tuyaux en attendant.

@+
Eric

SORRY !!!

J'ai trouvé le code dans la macro jointe....

Eric

Hello Eric et Ben-Ten

C'est dans le module VBA

Bon aller j'ai mis les boutons

Bon aller j'ai mis les boutons et maintenant la piece jointe

Salut tout le monde,

Je suis désolé de répondre très tard ...... j'ai pas pu avant.....

Merci Flaille de t'être penché sur le problème... je voulais procéder plus ou moins comme tu le fais dans la macro, mais je ne connaissais pas la syntaxe à utiliser.... cependant après avoir essayer ton fichier, j'ai un problème de réimport des données....; je regarderai plus en détail.....

Pour ma part, j'ai créé une macro simpliste de mon coté, mais je me sers aussi de formules dans ma feuille EXCEL... la voici..


Sub ABS_Afficher()
'
' Macro enregistrée le 04/04/03 par Ben-Ten

' Y'a t-il un équipier sélectionné -- si non fin de la macro--

Application.ScreenUpdating = False

erreur = Range("b500").End(xlUp).Value

If erreur = "oui" Then
MsgBox (" VOUS N'AVEZ PAS SELECTIONNE UN EMPLOYE ")
ElseIf erreur = "non" Then
rang = Range("a500").End(xlUp).Row
pos = rang - 1
i = Range(Cells(pos, 1), Cells(pos, 1)).Value
Range(Cells(i, 3), Cells(i, 44)).Select
Selection.Copy
Range(Cells(rang, 3), Cells(rang, 3)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(Cells(rang, 3), Cells(rang, 3)).Select
End If

Application.ScreenUpdating = True

End Sub

-----------------------------------------------
Pour ce qui est de réimporter les données.
-----------------------------------------------

Sub ABS_Mettreàjour()
'
' Macro enregistrée le 04/04/03 par Ben-Ten

Application.ScreenUpdating = False

erreur = Range("b500").End(xlUp).Value

If erreur = "oui" Then
MsgBox (" VOUS N'AVEZ PAS SELECTIONNE UN EMPLOYE ")
ElseIf erreur = "non" Then
rang = Range("a500").End(xlUp).Row
Position = rang - 1
i = Range(Cells(Position, 1), Cells(Position, 1)).Value
Range(Cells(rang, 3), Cells(rang, 44)).Select
Selection.Copy
Range(Cells(i, 3), Cells(i, 3)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("a1").Select
End If

Application.ScreenUpdating = True

End Sub

Voilà...... merci encore de votre aide....... Vive XLD !!!

Ben-Ten

Salut à tous

Bon un petit fichier corrigé avec la suppression du bouton macro1 inutile et quelques corrections (si j'ai compris le problème...)

Bonne journée

@+
Steplof

Salut Steplof....

Ca marche du tonnerre ton fichier ...c'était exactement çà.....

Question (bête surement mais je suis pas un pro) :
Comment as tu fait pour te passer du bouton 1, en fait comment fais tu pour déclencher la macro à la validation du nom....

J'espère que tu es en ligne pour me donner une réponse rapide car j'essaie de finir mon job pour demain.....

Merci encore ...

Ben-Ten

Salut ben,

ravi que ça te convienne

en fait pour se passe du bouton1, il suffit d'utiliser les macros évènementielles qui se déclenchent chaque fois que se produit quelque chose...
Là si dans VBA tu fais un clic droit sur feuil1 et que tu afiches le code tu verras ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$15" Then recopie1
End Sub

En fait chaque fois qu'une cellule est modifiée dans ta feuille, il teste si c'est A15, si oui il lance la recopie... c'est très utile.
Regarde un peu il y plein d'évènements intéressants.

De même pour ta macro2, tu pourrais envisager (si tu ne changes pas toutes les valeurs chaque fois) de reporter automatiquement celles qui changent. c'est à voir....

@bientôt
Steplof

Et bien je te remercie infiniment....

je viens de l'intégrer dans mon fichier ...çà marche à merveille....

Je vois que de toute façon j'ai pleins de choses à apprendre... les macro évènementielles.... et j'aimerai aussi me mettre à utiliser des fenetres style Userform etc ... çà doit etre encore mieux....

Merci encore .....

@ soon...

Ben-Ten