Pourquoi l'ajout des données ne commence pas à la première ligne vide?
SVP avec ce code pourquoi l'ajout des données vient à la ligne 43 et pas à la première ligne vide?
' ajout des donner dans la base de donnérs
With Sheets("Recap")
iRow = Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(iRow, 1).Value = Feuil1.Range("e9") ' date
.Cells(iRow, 2).Value = Feuil1.Range("e10").Value ' num fac
.Cells(iRow, 3).Value = Feuil1.Range("e11").Value ' client
.Cells(iRow, 4).Value = Feuil1.Range("e13").Value ' mf
.Cells(iRow, 5).Value = Feuil1.Range("e14").Value ' num autorisation
.Cells(iRow, 6).Value = Feuil1.Range("e15").Value ' num BC
.Cells(iRow, 7).Value = Feuil1.Range("e16").Value ' date validite autorisation
.Cells(iRow, 8).Value = Feuil1.Range("e32").Value ' HT
.Cells(iRow, 9).Value = Feuil1.Range("e35").Value ' TVA
.Cells(iRow, 10).Value = Feuil1.Range("e36").Value ' TTC
.Cells(iRow, 11).Value = Feuil1.Range("e37").Value ' RAS
.Cells(iRow, 12).Value = Feuil1.Range("e38").Value ' DT
.Cells(iRow, 13).Value = Feuil1.Range("e39").Value ' Avnace
.Cells(iRow, 14).Value = Feuil1.Range("e40").Value ' net
End With
MsgBox "Votre saisie a bien été ajoutée!", vbOKOnly + vbInformation, "CONFIRMATION"
Bonsoir Sassi
Cela semble bon
As-tu un fichier ?
Merci
Re
1) ta 1ère ligne vide de ta feuille recap est la ligne 2
2) essaie peut-être cela :
iRow = .Range("A" & Rows.Count).End(xlUp).Row + 1feuille recapVois et dis-moi
Bye
excuse la faute de copie
iRow = .Range("A" & Rows.Count).End(xlUp).Row + 1Mettre .Range
Bye
ouiiiiiiiiiiiiiii tres bien il marche
merci bcp
Bonjour Sassi,
Tu devrais regarder ma réponse sur ton 1er sujet : « je ne comprends pas pourquoi » :
https://forum.excel-pratique.com/viewtopic.php?f=2&t=102647&p=602664#p602664
J'ai optimisé ton code VBA.
Cordialement,
dhany