suite hier soir

[Raph]

Bjr,

Je vous fais parvenir mon exemple, avec 2 feuille, la premiere pour expliquer en bref l'explication et la seconde ma feuille princip avec macro.

Merci d'avance

 

[Raph]

fichier

 

[@+Thierry]

Salut Raph

Ben suffit de faire çà sur ta propre macro , mais vraiment j'aime pas du tout cette façon de faire, mais çà devrait marcher...

Le user n'a qu'à positionner la cellule active quelque part sur la ligne... (Peu importe si il sélectionne une cellule ou plusieur sur la même ligne...


Sub viergeRow()
Dim L As Byte
L = ActiveCell.Row

Application.ScreenUpdating = False
Range("B" & L & ":AT" & L).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B53:Az53").Select
Selection.Copy

Range("B" & L).Select
ActiveSheet.Paste
Range("AV" & L).Select
Application.ScreenUpdating = True

End Sub

Bon Appétit
@+Thierry

 

[Raph]

Merci beaucoup, je vais essayé. Et désolé si c un peu brouillon mais je débute. Si t'as des critiques à faires, n'hésites pas c'est comme ca qu'on apprend.
@+