[VBA-E] Probleme range

Bonjour à tous

Voila j'ai ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Set MyDB = OpenDatabase("S:\Qualité\BDD Qualité\BDD Qualité.mdb") Set MyTable = MyDB.OpenRecordset("test") Set Sh = Worksheets("Feuil1") With Sh For Each r In .Range("A5:C300").Rows With MyTable .AddNew !Ordre = Sh.Cells(r.Row, 1) !article = Sh.Cells(r.Row, 2) !Quantité = Sh.Cells(r.Row, 3) .Update End With Next End With Set MyDB = Nothing: Set MyTable = Nothing: Set Sh = Nothing End Sub

---

Voila j'exporte des données SAP dont le nombre de ligne peux varier...
Vous pouvez voir dans le code qu'a un moment j'ai range A5:C300. Dès
fois j'ai presque 500 lignes et le problème qui intervient c'est que
toutes les données ne sont pas exporter...

Y'a t'il un moyen de pouvoir modifier ce A5:C300 en par exemple A5:C500 ?
J'ai un user form qui me permet d'executer la macro d'export de
données je voudrais pouvoir mettre aussi un champ me permettant de mettre le nombre de ligne exacte à exporter afin de ne pas avoir de lignes vides dans ma table access...

Est ce possible si oui comment ?

pouvez vous m'aidez ?

Merci beaucoup

A+

Il faut que tu remplace le nombre de ligne par une fonction qui te permette d'avoir le nombre de lignes, quelquesoit le fichier que tu mettra :)

Par exemple tu peux utiliser :

Code:

---

1 2	DernièreLigne = Range("A1").End(xlDown).Row

---

ou bien

Code:

---

1 2	DernièreLigne = Range("A65535").End(xlUp).Row

---

Ok merci pour l'aide mais je suis novice en VB et je ne vois pas trop où je dois inserer cette formule ?

Merci beaucoup de ton aide

A+

il y as aussi le currentRegion...., pour voir s'il te convient ouvre ta feuille excel avec des données place toi en A5 , actionne CTRL * si la sélection correspond au donnée que tu ve traiter, tu peu remplace la ligne for Each.. par :

Code:

---

1 2 3

... For Each r In .Range("A5").currentRegion.Rows ...

---

;)

Bonjour

je reviens à la charge mais je viens d'essayer la dernière formule avec currentregion et cela ne fonctionne pas...j'ai toujours des lignes vides qui sont inserées dans ma table access...
Pourtant quand je fais ctrl * ma région s'arrête bien à la dernière ligne...

Merci de votre aide

A+