Insérer automatiquementune ligne en dessous

Résolu/Fermé

tryexcel Messages postés 11 Date d'inscription lundi 22 février 2016 Statut Membre Dernière intervention 26 février 2016 - Modifié par tryexcel le 22/02/2016 à 15:08
tryexcel Messages postés 11 Date d'inscription lundi 22 février 2016 Statut Membre Dernière intervention 26 février 2016 - 22 févr. 2016 à 18:05

Bonjour,

J'ai seulement quelques notions en VBA c'est pour cela que j'aurai besoin d'un peu d'aide pour une formule que je souhaite mettre en place.

Je souhaite insérer une ligne de manière automatique à chaque fois que la cellule du dessus est non vide.

En bref je souhaite que :

Si cellule "X" = non vide alors insertion d'une nouvelle ligne en dessous qui prend en compte les formules de la ligne du dessus.

Donc la nouvelle ligne insérée devra comporter les formules de la ligne du dessus

J'espère avoir été claire.. je remercie par avance la personne qui saura m'aider sur le sujet :)

A voir également:

Vba insérer plusieurs lignes
Insérer signature word - Guide
Insérer liste déroulante excel - Guide
Insérer une vidéo dans powerpoint - Guide
Insérer sommaire word - Guide
Vba l'indice n'appartient pas à la sélection - Forum VB / VBA

2 réponses

Réponse 1 / 2

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
22 févr. 2016 à 14:50

Bjr,

Une piste :

Sub test()

Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row

For i = DernLigne to 1 Step -1

If Cells(i,1).value <> "" Then

Rows(i).Copy
Rows(i + 1).Insert Shift:=xlDown

End If

Next i

End Sub

tryexcel Messages postés 11 Date d'inscription lundi 22 février 2016 Statut Membre Dernière intervention 26 février 2016
22 févr. 2016 à 15:10

Bonjour Théo,

J'ai rajouté une photo pour que tu visualises mieux ce que je cherche. Les cellules vides de la colonne C contiennent des listes déroulantes. Si je sélectionne une donnée, je voudrai qu'une ligne en dessous se rajoute. or il faut que sur la ligne total l'ensemble des données se soient cumulées.

Je débute en VBA, peux tu m'expliquer le code ?

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
Modifié par Theo.R le 22/02/2016 à 15:25

Ok, alors pour l'explication de mon 1er code :

Sub test()

'On définit par DernLigne la dernière ligne dont la cellule A est non vide, cela constituera la fin de la boucle qui suit
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row

For i = DernLigne to 1 Step -1   'On utilise ici une boucle de type For i = a to b (....) Next i, la particularité est que le pas n'est pas 1 comme par défaut mais -1. En clair on va de DernLigne vers 1 dans l'ordre décroissant (DernLigne>1).
'La boucle décroissante est pratique pour un code qui ajoute/supprime des lignes, sinon la variable peut ne plus correspondre à ce qu'on cherche.

If Cells(i,1).value <> "" Then  'Cells(i,1).value est la valeur de la cellule Ai, la fonction If (=Si) s'active lorsque Ai n'est pas vide (<>"")

Rows(i).Copy   'Lorsque Ai n'est pas vide, on copie la ligne i ...
Rows(i + 1).Insert Shift:=xlDown    '... puis on insère une ligne en dessous qui contient le collé de la ligne i. les formules sont décalées automatiquement.

End If

Next i

End Sub

Réponse 2 / 2

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
Modifié par Theo.R le 22/02/2016 à 16:37

Essayez la méthode qui suit. En fait cela activera l'ajout de ligne quand vous modifiez la cellule en C:C. Pour accéder aux feuilles/modules, Alt+F11 après avoir activé les macros :

1) Le premier code est à mettre dans le code de la feuille sur laquelle vous travaillez ("homme " pour votre cas) :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Or Target.Column <> 3 Then Exit Sub
If Target.Value = "" Then Exit Sub
'If Target.Count > 1 Then Exit Sub

If Flag = True Then Exit Sub
Flag = True

Dim LgneNext As Long
LgneNext = Target.Row + 1

Do Until Cells(LgneNext, 2).Value <> ""

LgneNext = LgneNext + 1

Loop

Rows(Target.Row & ":" & LgneNext - 1).Copy
Rows(LgneNext).Insert Shift:=xlDown

Flag = False

End Sub

2) le 2nd est à mettre dans un Module VBA :

Public Flag As Boolean

tryexcel Messages postés 11 Date d'inscription lundi 22 février 2016 Statut Membre Dernière intervention 26 février 2016
22 févr. 2016 à 16:46

Ah super ca fonctionne !!!!!

Juste est il possible que la nouvelle cellule C soit vide en s'ajoutant ? et que le titre de la colonne B exemple ( OP LES GRATUITS 1CF - 1CG - 1CH) ne se répète pas ?

En tout cas merci beaucoup ! :)

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
22 févr. 2016 à 16:54

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Or Target.Column <> 3 Then Exit Sub
If Target.Value = "" Then Exit Sub
'If Target.Count > 1 Then Exit Sub

If Flag = True Then Exit Sub
Flag = True

Dim LgneNext As Long
LgneNext = Target.Row + 1

Do Until Cells(LgneNext, 2).Value <> ""

LgneNext = LgneNext + 1

Loop

Rows(Target.Row & ":" & LgneNext - 1).Copy
Rows(LgneNext).Insert Shift:=xlDown

Cells(LgneNext, 3).Value = ""
Cells(LgneNext, 2).Value = ""

Flag = False

End Sub

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
22 févr. 2016 à 16:55

Comme cela ?

tryexcel Messages postés 11 Date d'inscription lundi 22 février 2016 Statut Membre Dernière intervention 26 février 2016
22 févr. 2016 à 16:57

exactement ! tout est parfait sauf que la somme de la ligne TOTAL ne prend pas en compte les nouvelles lignes..

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31 > tryexcel Messages postés 11 Date d'inscription lundi 22 février 2016 Statut Membre Dernière intervention 26 février 2016
22 févr. 2016 à 17:12

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Or Target.Column <> 3 Then Exit Sub
If Target.Value = "" Then Exit Sub
'If Target.Count > 1 Then Exit Sub

If Flag = True Then Exit Sub
Flag = True

Dim LgneNext As Long
LgneNext = Target.Row + 1

Do Until Cells(LgneNext, 2).Value <> ""

LgneNext = LgneNext + 1

Loop

Rows(Target.Row & ":" & LgneNext - 1).Copy
Rows(LgneNext).Insert Shift:=xlDown

Cells(LgneNext, 3).Value = ""
Cells(LgneNext, 2).Value = ""
Cells(2 * LgneNext - Target.Row, 16).FormulaLocal = "=SOMME(P" & Target.Row & ":P" & 2 * LgneNext - Target.Row - 1 & ")"

Flag = False

End Sub

Discussions similaires

comment obtenir pilotes sans connexion internet

Problème téléchargement mega

extraction de données automatique selon critères

Masquer lignes d'un tableau sous conditions de cellules

lire l'avant dernière ligne puis la dernière ligne d'un fichier

Fichier de calcul pour l'optimisation de la découpe d'une barre

Discussions similaires

Newsletters