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
