Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion lignes en fonction d'un contenu

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zelgrif
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Z

zelgrif

Guest
Bonjour à tous,

J'ai cherché sur le forum si un post pouvait contenir des éléments de réponse à mon problème sans succès... Je vous pose donc la question.
J'ai un tableau dans lequel je dois insérer des lignes en fonction du contenu des celulles d'un colonne. Manuellement, je fais clic droit et insertion de nombreuses fois.
Une macro est elle capable de faire des insertions répétées dès lors que le contenu de la colonne concernée change ?
Je vous joins le tableau de base à modifier, et le résultat que je souhaiterais obtenir.
En espérant que quelqu'un puisse m'apporter ses lumières !

Merci d'avance

Olivier

PS : les fichiers exemples ont été amputés du fait de leur taille pour que vous puissiez en disposer, tableaux qui contiennent environ 1200 lignes, donc demandant environ une centaine d'insertion chaque fois.
 

Pièces jointes

Trier par date Trier par votes
Re : Insertion lignes en fonction d'un contenu

bonjour zelgrif, peux tu nous dire sur quel critère doit-on se baser pour savoir s'il faut ou non insérer des lignes ?

au temps pour moi, je viens de trouver : dès que la référence change dans la première colonne, tu inséres une ligne pour délimiter ce changement de référence, j'ai bon ?
 
Vote positif 0 Vote négatif
Re : Insertion lignes en fonction d'un contenu

C'est en fonction de la colonne A, qui est un numéro d'agence, et il faut insérer une ligne dès qu'on change de numéro d'agence.

Merci de ton intérêt 🙂
 
Vote positif 0 Vote négatif
Re : Insertion lignes en fonction d'un contenu

Salut Zelgrif et grodep,

grodep ton code bug pour les entrées à la fin de la liste, les séparations ne se font pas au bon endroit et il y en a une de trop.

Voici ma suggestion :
Code: 
Private Sub CommandButton1_Click()
Dim var2 As Integer
Dim var As String
On Error GoTo handler
var2 = [COUNTA(A1:A900)]
var = Range("A" & var2).Value
varorigine = Range("A" & var2).Value
Range("A" & var2).Select
While ActiveCell <> ""
If ActiveCell = var Then
ActiveCell.Offset(-1, 0).Select
var2 = var2 - 1
Else
If var = varorigine Then
var2 = var2 + 1
Else
var2 = var2
End If
Rows(var2 & ":" & var2).Select
Selection.Insert Shift:=xlDown
    Range("A" & var2 & ":" & "I" & var2).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("A" & var2).Value = "N° Ag." & var
    ActiveCell.Offset(-1, 0).Select
var = ActiveCell.Value
End If
Wend
handler: Exit Sub
End Sub

Seule chose est que si tu repasse ce code une deuxième fois, ton tableau sera foutu. Tu devras ajouter des conditions.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
2 K
Alexandrax971
A
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
763
patricktoulon
V
  • Question Question
Microsoft 365 Afficher le contenu d'un tableau en fonction d'une donnée variable
Réponses
4
Affichages
815
VictoriaGreen
V
S
  • Résolu(e)
Microsoft 365 Afficher des lignes issues d'un tableau en fonction d'un critère
Réponses
4
Affichages
869
simsinaty
S
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
A
  • Question Question
XL pour MAC outils tableau, création automatique de ligne à partir d'un autre tableau
Réponses
5
Affichages
1 K
axel211
A
J
  • Question Question
Microsoft 365 Créer des lignes en fonction d'un code
2
Réponses
20
Affichages
2 K
JHA
J
P
  • Résolu(e)
Microsoft 365 En fonction d'une condition, copier plusieurs cellules particulières d'un coup
Réponses
4
Affichages
1 K
PCharlier
P
R
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle / Séparation visuelle entre deux groupes de lignes en fonction des valeurs présentes dans certaines cellules.
Réponses
6
Affichages
1 K
Ratian
R
Z
  • Question Question
XL 2019 Rapatriement de donnée d'un onglet vers un autre onglet en fonction d'une valeur identique
Réponses
2
Affichages
2 K
Zlataa21
Z
B
  • Question Question
XL 2016 Copier plusieurs fois une ligne en fonction de la quantité indiquée dans l'une des colonnes de la ligne.
Réponses
7
Affichages
2 K
BPM
B
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
L
  • Question Question
XL 2016 Modifier mes listes validations de donnée existante en liste dynamique
Réponses
1
Affichages
899
chris
P
  • Question Question
XL 2019 Travail d'un fichier en vue d'une intégration dans un logiciel de comptabilité
Réponses
3
Affichages
1 K
Pouh
P
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
L
  • Résolu(e)
Autres Insertion nombre de lignes variable - VBA
Réponses
7
Affichages
4 K
lilidxb
L
G
  • Résolu(e)
XL 2013 Dupliquer des lignes en fonction d'un nombre de critères
Réponses
2
Affichages
1 K
Genii
G
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
2 K
Yoyo01000
T
  • Question Question
afficher automatiquement des lignes d'une base de donnée en fonction d'un critère
Réponses
0
Affichages
463
TOMAZZURI
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…