Déplacer une ligne d'un tableau dans un tableau d'une autre feuille
Bonjour,
J'essaie de faire une CRM pour mon entreprise.
Je cherche à déplacer une ligne du tableau de la feuille "Devis" dans le tableau de la feuille "Suivi" à la condition que la colonne "G" (Statut du devis) affiche le statut "envoyé". J'ai réussi à faire le code pour déplacer la ligne mais celle-ci s'ajoute après le tableau de la feuille "Suivi" et non pas à l'intérieur du tableau à la ligne disponible suivante. De plus, en se déplaçant, les cellules perdent leur format. pouvez-vous m'aider ? ça fait 5 heures que je suis dessus donc j'ai décidé de demander de l'aide.
Voici le code:
Sub Devis()
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Devis").UsedRange.Rows.Count
J = Worksheets("Suivi").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Suivi").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Devis").Range("G2:G" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Envoyé" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Suivi").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Envoyé" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubEdit modo : merci de mettre le code entre balises SVP avec le bouton </>
Je vous remercie d'avance.
Cordialement,
Yaya26
Bonjour
Les tableaux structurés n'aiment pas les lignes vides...
Si tu ajoutes une ligne les formules sont recopiées automatiquement...
Mon livre de chevet pour les tableaux structurés: http://boisgontierj.free.fr/pages_site/TableauDyn.htm
J'ai refait tes 2 macros...
La copie se fait automatiquement quand tu passes la ligne en "Envoyé"
A+ François
Bonjour François,
Je te remercie pour ta rapidité et ton expertise. Il me reste bien des choses à apprendre comme je débute. Mais c'est vraiment passionnant tout ce qu'on peut faire avec cet outil. Bonne continuation à toi.
Yaya26