Microsoft 365 VBA copier des lignes dans une autre feuille

Testigo · 12 Novembre 2019

Bonjour,

Je souhaite utiliser VBA pour pouvoir copier une ligne d’une feuille sur une autre lorsque les colonnes A, B et C de celle-ci sont remplies. Dans l’idéal, il faudrait que cette ligne soit supprimée de la première feuille, que les autres lignes remontent et que les lignes se copient à la suite sur la 2ème feuille. Les lignes qui m’intéressent commencent à la ligne n°7

Pour résumer :

-SI A, B et C non vides (à partir de la ligne 7) alors on copie colle la ligne sur la 2ème feuille

-on supprime la ligne de la 1ère feuille

-on fait remonter les autres lignes

-Les lignes se copient les une à la suite des autres sur la 2ème feuille.

Ci joint la feuille en question!

Merci par avance pour votre aide!

Staple1600 · 12 Novembre 2019

Bonsoir le fil, Testigo

Testigo
Pré-requis: par commodité d'usage, j'ai dé fusionné les cellules.
Code à mettre dans le code de la feuille : à valider

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t
If Target.Row <= 6 Then Exit Sub
If Target.Column = 3 Then
If Application.CountA(Cells(Target.Row, 1).Resize(, 3)) = 3 Then
t = Cells(Target.Row, 1).Resize(, 14).Value
Target.EntireRow.Delete
Feuil2.Cells(Rows.Count, 1).End(3)(2).Resize(UBound(t, 1), UBound(t, 2)) = t
End If
End If
End Sub

PS: test OK sur ton fichier exemple

Testigo · 12 Novembre 2019

Bonsoir Staple1600,

Merci pour ta réponse rapide!

Je dois t'avouer que je n'ai absolument pas compris ton programme...
Et comment est-ce qu'on le met dans le code de la feuille exactement? J'ai essayé mais apparemment je n'ai pas la bonne méthode, je n'arrive pas à le faire fonctionner. (Je viens de découvrir VBA, je n'y connais vraiment pas grand chose...)

Staple1600 · 12 Novembre 2019

Re

1) Tu dois dé fusionner les cellules sur les deux feuilles
2) Clic-droit sur l'onglet [à valider] => Visualiser le code
3) Dans le grand rectangle blanc qui apparaît, tu copies/colles mon code VBA
4) ALT+F11 (pour revenir sur la feuille)
5) Sur la feuille [à valider] , tu saisis une valeur en A7 puis en B7 et enfin C7 puis ENTER
Va voir alors sur la feuille [validé], la copie aura été effectuée.

job75 · 12 Novembre 2019

Bonsoir Testigo, bienvenue sur XLD, salut JM,

Autre solution, placez dans le code de la 1ère feuille (clic droit sur l'onglet et visualiser le code) :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 7 Then Exit Sub
Dim F As Worksheet, c As Range
Set F = Feuil2 'CodeName de la feuille de destination
Cancel = True
With Target.EntireRow
    Set c = .Rows(1).Resize(, 3).Find("", .Cells(1, 3), xlValues)
    If Not c Is Nothing Then MsgBox "Renseignez la cellule " & c.Address(0, 0): Exit Sub
    .Copy F.[A:A].Find("", F.[A6])
    .Delete
End With
End Sub

La macro s'exécute automatiquement quand on double-clique sur une ligne.

Les cellules fusionnées ne posent aucun problème.

A+

Jacky67 · 12 Novembre 2019

Testigo à dit:
Bonjour,

Je souhaite utiliser VBA pour pouvoir copier une ligne d’une feuille sur une autre lorsque les colonnes A, B et C de celle-ci sont remplies. Dans l’idéal, il faudrait que cette ligne soit supprimée de la première feuille, que les autres lignes remontent et que les lignes se copient à la suite sur la 2ème feuille. Les lignes qui m’intéressent commencent à la ligne n°7

Pour résumer :

-SI A, B et C non vides (à partir de la ligne 7) alors on copie colle la ligne sur la 2ème feuille

-on supprime la ligne de la 1ère feuille

-on fait remonter les autres lignes

-Les lignes se copient les une à la suite des autres sur la 2ème feuille.

Ci joint la feuille en question!

Merci par avance pour votre aide!

Bonjour à tous
Autre proposition par un bouton qui traite toute la feuille

Testigo · 13 Novembre 2019

Merci à tous les deux pour vos réponses! J'ai testé ça fonctionne parfaitement!
Dernière petite question, sous quel format faut-il sauvegarder le fichier pour garder la macro enregistrée? (il me semble que c'est classeur excel prenant en charge les macros)

Encore merci et bonne journée !

korig · 31 Mars 2021

Bonjour,

sous format xlsm.

Microsoft 365 VBA copier des lignes dans une autre feuille

Testigo

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Testigo

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

Testigo

XLDnaute Nouveau

korig

XLDnaute Nouveau

Discussions similaires