Souci avec un Rows().insert

Bonjour,

Je travail avec 2 sorte de tableau. Je parcours 2 colonne d'un tableau et si la cellule est rempli, je copie cette ligne pour la coller sur un autre tableau.

Mon parcours de colonne se fait trés bien et quand je rajoute mon Rows().insert le code est complétement perdu :calim2: !!!!!
Je m'explique : adepte des msgbox pour savoir si tout se passe bien, j'ai mis un msgbox pour afficher la cellule rempli, la tout va bien. Quand je rajoute mon insert, ma boucle ne tourne plus rond lol et je me rajoute 2 fois plus de lignes !!!

Extrait de mon code

Code:

---

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

Sub MAJ()   Dim ligneTab2 As Integer Dim ligneAjout As Integer Dim lcopy As Range Dim lpaste As Range     For ligneTab2 = Range("LigneTitreA").Row + 2 To Range("LigneFinA").Row - 1 ligneAjout = Range("LigneFinR").Row - 1 If Cells(ligneTab2, Range("C_Total_HT").Column) <> "" Or Cells(ligneTab2, Range("C_Total_HT").Column) <> "" Then 'MsgBox Cells(ligneTab2, Range("C_Total_HT").Column) 'MsgBox Range(Cells(ligneTab2, Range("C_Societe").Column), Cells(ligneTab2, Range("C_Remarques_A").Column)).Select Rows(ligneAjout).Insert 'Set lcopy = Range(Cells(ligneTab2, Range("C_Societe").Column), Cells(ligneTab2, Range("C_Remarques_A").Column)) End If Next End Sub

---

Peut être une erreur inattention ou alors je fais une manip qui n'est pas la bonne.

Merci de votre aide

Bonjour.

On dirait que tu scrutes un tableau en y insérant de temps en temps des lignes. Si c'est bien cela, tu devrais partir de la dernière ligne pour remonter à la première, et pas l'inverse.

Cdlt,

PGZ

Merci je vais essayer dans ce sens

Ok now au lieu d'avoir plus de ligne j'en ai moins car il fait un saut de 2 lignes :cry:

Code:

---

1 2 3 4 5 6 7 8 9 10

For ligneTab2 = Range("LigneFinA").Row - 1 To Range("LigneTitreA").Row + 2 Step -1   If Cells(ligneTab2, Range("C_Total_HT").Column) <> "" Or Cells(ligneTab2, Range("C_Total_HT").Column) <> "" Then MsgBox Cells(ligneTab2, Range("C_Total_HT").Column) 'MsgBox Range(Cells(ligneTab2, Range("C_Societe").Column), Cells(ligneTab2, Range("C_Remarques_A").Column)).Select ligneAjout = Range("LigneFinR").Row - 1 Rows(ligneAjout).Insert 'Set lcopy = Range(Cells(ligneTab2, Range("C_Societe").Column), Cells(ligneTab2, Range("C_Remarques_A").Column)) End If Next

---

Re,

C'est normal, puisque tu demandes d'insérer 1 ligne...
En fait tu veux faire quoi? Insérer 2 lignes au dessus de chaque ligne qui contient quelque chose dans la colonne "Total HT" ou dans la colonne "TotalHT"?
Je bégaie avec cette colonne total HT, mais ton code aussi!

Pour insérer 2 lignes au-dessus de la ligne ligneTab2, si oSh est une instance de la feuille

Code:

---

oSh.Range(ligneTab2 & ":" & lignetab2 +1).insert

---

Cordialement,

PGZ

Merci pgz,

Je m'explique plus simplement lol

Je dispose de 2 tableaux "Attente" et "Répondu". Lorsque je reçois une réponse je rempli mon tableau "Attente" et quand je clique sur mon bouton MAJ, la ligne qui vient d'être complété bascule vers mon tableau "Reçu".

Mes colonne HT et TTC ne me serve uniquement à faire mes contrôle car je ne peux pas permettre de rajouter une nouvelle ligne sans avoir le prix HT ou TTC.

Mon tableau "Répondu" dispose d'une ligne fixe (Pour une mise en page) et donc je veux rajouter cette nouvelle ligne en avant dernière position de mon tableau.