Macro
Bonsoir
Pourquoi la macro"SAISIE" saute la ligne 23 quand je valide?
Crdlmt
Nonno
Bonsoir Nonno, le forum,
Les pros me corrigeront si je dis une ânerie...
Dans un tableau structuré (ListObject), on écrit sur la première ligne vide, et on rajoute une ligne en dessous qui recevra la prochaine saisie.
Or tu as demandé à ce que le tableau se remplisse par le haut:
https://forum.excel-pratique.com/viewtopic.php?f=2&t=138464&p=849969#p849969
Donc on rempli la ligne 23 puis on insert une ligne au dessus qui recevra la prochaine saisie.Toutes les saisie précédentes se décalent donc à chaque fois vers le bas.
Mais je ne maitrise pas complètement les ListObject, il y a peut-être une meilleur façon de coder....
Bonne soirée,
Bonsoir
peux être comme ca
Sub saisie()
Dim ListObj As ListObject, Sh As Worksheet, j As Long
Application.ScreenUpdating = False
Set Sh = Sheets("SAISIE")
Set ListObj = Sh.ListObjects("Tableau6")
j = 23
ListObj.ListRows(1).Range.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With ListObj
Sh.Cells(j, 1) = Sh.Range("C7")
Sh.Cells(j, 2) = Sh.Range("B4")
Sh.Cells(j, 3) = Sh.Range("D4")
Sh.Cells(j, 4) = Sh.Range("C9")
Sh.Cells(j, 5) = Sh.Range("C10")
Sh.Cells(j, 6) = Sh.Range("C13")
Sh.Cells(j, 7) = Sh.Range("C15")
Sh.Cells(j, 8).FormulaR1C1 = "=[@Entr?e]-[@Sortie]"
End With
End SubA+
Maurice
Bonsoir archer,
Merci pour ton intervention,
Je n'aurai pas trouvé....du moins pas ce soir,
Cependant, cela génère une erreur sur la ligne
Sh.Cells(j, 8).FormulaR1C1 = "=[@Entr?e]-[@Sortie]"Corrigé ainsi, ça passe...
Sh.Cells(j, 8) = Sh.Cells(j, 4) - Sh.Cells(j, 5)Tu valides ?
Amitiés,
Bonsoir xorsankukai
désoler ses mon copier coller qui merde
car il aime pas les accent HI
Sh.Cells(j, 8).FormulaR1C1 = "=[@Entrée]-[@Sortie]"
merci
Amitiés,
Re,
Sh.Cells(j, 8).FormulaR1C1 = "=[@Entrée]-[@Sortie]"
Merci archer
Nonno, à toi de jouer,
Bonne nuit,
Encore une fois merci à tous
Bonne nuitNonno