Ajout de lignes vides sous certaines conditions.

Question

Bonjour,

Avant toutes choses ma base de données est trié par rapport aux données de la colonne A puis B puis C puis D. J'obtiens donc des groupes de données. Je voudrais rajouter une ligne vide sous la dernière ligne d'un groupe de données dès que  le nombre change dans la colonne C

Merci de votre aide.

Configuration: Android / Chrome 71.0.3578.98

via55 · Answer

Bonjour Boby

T+F11 pour pour ouvrir éditeur VBA puis Insertion et Module -copier coller la macro et fermer l'éditeur )
Sub ajout()

Dim Ligne As Long
Ligne = Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row
For n = Ligne To 1 Step -1
If Range("C" & n) <> Range("C" & n + 1) Then
Rows(n + 1 & ":" & n + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 End If
Next
End Sub
Lancer ensuite la amcro dans la page depuis onglet Developpeur - Macros

Cdlmnt
Via

via55 · Answer

Sans connaitre la structure du fichier impossible de dire
Poste un exemple de ton fichier sir cjoint.com, fais créer un lien que tu copies et reviens coller ici

via55 · Answer

Ton fichier en retour
https://mon-partage.fr/f/JfdrH9Df/

via55 · Answer

Dans ce cas il convient de créer une seconde macro :
Sub supprime()

Dim Ligne As Long
Ligne = Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row
For n = Ligne To 1 Step -1
If Range("G" & n) = "" Then
Rows(n & ":" & n).Select
Selection.Delete Shift:=xlUp
 End If
Next
End Sub

Ajout de lignes vides sous certaines conditions.

4 réponses

Discussions similaires

Newsletters