Sujet Précédent Sujet Suivant

Ajout de lignes vides sous certaines conditions.

Fermé
Boby - 18 déc. 2018 à 09:13
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 - 18 déc. 2018 à 13:49
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

4 réponses

Réponse 1 / 4
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
18 déc. 2018 à 10:26
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
0
Boby
18 déc. 2018 à 10:49
J'ai un message qui m'indique "dépassement de capacité " pourtant j'ai que 200 lignes et je filtre en fonction de la donnée de la colonne 7. Où est mon problème ?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
18 déc. 2018 à 11:31
Bonjour Boby, Via

ton message apparaît il sans filtrer sur la colonne 7 ?
0
Réponse 2 / 4
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
18 déc. 2018 à 11:32
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

0
Boby
18 déc. 2018 à 11:50
https://www.cjoint.com/c/HLskWCIeIEX
Voici mon fichier. Je veux ajouter une ligne à chaque changement de données de la colonne G.
0
Réponse 3 / 4
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
18 déc. 2018 à 12:35
Ton fichier en retour
https://mon-partage.fr/f/JfdrH9Df/
0
Boby
18 déc. 2018 à 13:16
Merciii vous m'avez sauvé la vie. Et pour les supprimer ?
0
Réponse 4 / 4
via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
18 déc. 2018 à 13:49
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
0

Discussions similaires

Qui sont les personnes dans mon ajout rapide de Snapchat ?
lobino68 -
m_manolo25 -

21 réponses
Comment savoir comment on nous a ajouté sur Snap
Laura -
Lob6 -

15 réponses
Retrouver l'image originale après avoir fait des modifications ?
Raven -
Tainavictor -

9 réponses
EXCEL : Supprimer des lignes vides à la fin
plagoutte -
MCLow -

8 réponses
Afficher toutes les lignes masquées excel
livlarsen -
esicom -

26 réponses