bonjour,
je suis entrain de mettre un rapport semi-automatique :
1-je fait une recherche sur un e Bdd.
2-il affiche sur une ligne.
3- puis btn ajouter en (Macros=copie ligne"n"+copie sur ligne"n"+1 la formule de la ligne « n »-1+copie ligne « n » collez les Valeur+ il efface la cellule de recherche)
voila le scipte en VBA:
Sub MacroAjout()
'
' MacroAjout Macro
'
'
Selection.Copy
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A7:R7").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
ce que je cherche je veux il passe a la ligne vide pour faire cette action
Range("A8").Select