Vérification de code
Bonjour à tous.
je suis artisans et je perd beaucoup de temps sur ce casse tête.
je vous sollicites pour m'aider a comprendre se qui ne va pas dans mon code :
j'ai des données en B6:BR6 sur le feuil ("Fiches Techniques Prépa") qui sont remplis par des formules, les données sources sont sur ("Crée fiche Technique Prépa").la macro est appelée depuis cette feuille.
mon souhait serait que la ligne B6:BR6 soit copier dans la première ligne libre dans la colonne B puis que les données soient trier alphabétiquement.
un grand merci à vous de mettre vos compétences a notre service.
Sub Sauvegarder_La_Fiche_Technique_Prépa ()
'
Dim ligne As Long
Sheets("Fiches Techniques Prépa").Select
Rows("4:4").Select
Selection.Copy
'
ligne = Range("B6").End(xlDown).Row + 1
'
Rows(ligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Fiches Techniques Prépa").Select
Range("B6:BP4049").Select
ActiveWorkbook.Worksheets("Fiches Techniques Prépa").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Fiches Techniques Prépa").Sort.SortFields. _
Add Key:=Range("B6"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Fiches Techniques Prépa").Sort
.SetRange Range("B6:BP4049")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Crée Fiche Technique Assemblée").Select
MsgBox "La Fiche Technique " & Sheets("Crée Fiche Technique Prépa").Range("D2") & " à été Sauvegardée !", vbOKOnly +_
vbInformation, "Boulangerie de la Mairie"
End Sub
Bonjour Cyr89
Peux-tu envoyer un extrait de fichier, cela serait plus facile je pense
Merci
Bonjour,
Ci-joint une proposition simpliste de ce que je comprends de cette demande.
Je joins une bride du fichier avec les deux feuilles concernées j'ai mis une annotation en jaune sur la feuille ("Crée Fiches Techniques Prépa.
encore merci de prendre de votre temps pour m'aider
Dans le fichier que j'ai proposé, est-ce que tu as cliqué sur la tête de lion ?
oui j'ai bien cliquer sur le lion .
chez moi le code renvois que variable non définie GRRR alors que dans ton fichier c'est top.
Est-ce que tu as lu cet article ?
Bonsoir,
oui je l'ai lu, c'est la mise en forme de mon tableau.
je t'en remercie .
re bonsoir,
j'ai pris ton exemple de fichier et ca marche impect avec une ou deux modifications pour mon cas.
mais je souleve un autre soucis avec l'evolution de mon fichier.
l'exemple copie la ligne et colle que la valeur
mais j'aurais besoin que le code fasse : copie le ligne 2 du Tableau4
vers le Tableau2 mais de la colonne B à BR qu'il colle "La valeur" et de BT à CV copie la "formule".
Sub Sauv_Crée_sur_Fiche_Prépa_Ok()
Sheets("Fiches Techniques Prépa").Select
Set srcRow = ActiveSheet.ListObjects("Tableau4").ListRows(2).Range
Set oLastRow = ActiveSheet.ListObjects("Tableau2").ListRows.Add
srcRow.Copy
oLastRow.Range.PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Reference:="Tableau2"
ActiveWorkbook.Worksheets("Fiches Techniques Prépa").ListObjects( _
"Tableau2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Fiches Techniques Prépa").ListObjects( _
"Tableau2").Sort.SortFields.Add2 Key:=Range("B7"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Fiches Techniques Prépa").ListObjects( _
"Tableau2").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A13").Select
Sheets("Crée Fiche Technique Prépa").Select
Range("C7").Select
'Set srcRow = Nothing ( Est ce qu'il faut vider les variables ?)
'Set oLastRow = Nothing
End Sub
vous n'imaginez pas combien votre aides m'est précieuse merci a vous tous