Reddington
XLDnaute Nouveau
Bonjour le Forum,
Je vous expose mon souci:
Je travaille actuellement sur la mise en place d'un fichier devis.
J'ai une feuille "Chiffrage" sur lequel j'ai mes différentes colonnes pour faire mon chiffrage (jusque la pas de problème)
J'ai ensuite une feuille "Devis" dans lequel j'ai fait une mise en forme et qui contient des renvois et des formules et qui va chercher les valeurs des colonnes de ma feuille "Chiffrage"
J'utilise la macro suivante:
J'ai malheureusement un blocage et je n'arrive pas copier l'ensemble des champs de ma feuille "Chiffrage"
Pourriez vous m'aider a debugger ce code?
En vous remerciant par avance
Je vous expose mon souci:
Je travaille actuellement sur la mise en place d'un fichier devis.
J'ai une feuille "Chiffrage" sur lequel j'ai mes différentes colonnes pour faire mon chiffrage (jusque la pas de problème)
J'ai ensuite une feuille "Devis" dans lequel j'ai fait une mise en forme et qui contient des renvois et des formules et qui va chercher les valeurs des colonnes de ma feuille "Chiffrage"
J'utilise la macro suivante:
VB:
Sub MacroDevis()
'
'
Range("B16:M16").Select
Selection.Copy
Range("B17:M17").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("Tableau2[[#Headers],[Filtre]]").Select
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=12, Criteria1:= _
"<>"
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=12
Rows("16:16").Select
Selection.EntireRow.Hidden = True
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=12, Criteria1:= _
"<>"
End Sub
J'ai malheureusement un blocage et je n'arrive pas copier l'ensemble des champs de ma feuille "Chiffrage"
Pourriez vous m'aider a debugger ce code?
En vous remerciant par avance