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

Macro pour insérer lignes dans fichier complex

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion matt34
  • 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
M

matt34

Guest
Bonjour,

Voilà je souhaite intégrer une ligne dans un fichier qui comporte des sous références:

EX:

REFERENCES SS-REF

ART 081000300093
SART 081000300093 VOLULIFT
ART 072000300038
SART 072000300038 ABSOREPA
ART 072000300039
SART 072000300039 VITASOIN
SART 072000300039 LISSEXTR
ART 081000300070
SART 081000300070 LISSULTI
SART 081000300070 VOLUEXPA
SART 081000300070 SHINCURL
ART 081000300093
SART 081000300093 FULVOLEX
ART 081002600003
SART 081002600003 EXTRFJAU
SART 123000200031 NOIR

Il faut à chaque fois que j'intègre une ligne pour marquer la valeur "ART" mais que la macro puisse reconnaitre les refs identiques ex: 081000300070 il y en a trois donc je veux qu'une seule insertion.

En pièce jointe le fichier, les 17 premières lignes font figure de modèle et je les est faite à la main bien sur mais c'est ce que je veux pour l'ensemble du fichier...

Si une âme charitable peut m'aider....

Merci d'avance
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Macro pour insérer lignes dans fichier complex

Bonsoir,
Si j'ai bien compris
Code: 
Sub zyva()
Dim c As Range, i&
Application.ScreenUpdating = False
Set c = Range("A1:C" & Range("A65000").End(xlUp).Row)
c.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
For i = c.Rows.Count To 2 Step -1
    If Cells(i, 2) <> Cells(i - 1, 2) Then
        Rows(i).Insert
        Cells(i, 1) = "ART"
        Cells(i, 2) = Cells(i + 1, 2)
        Rows(i).Font.Bold = True 'falcutif
    End If
Next
Application.ScreenUpdating = True
End Sub
A+
kjin
 
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

P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
217
pamino
P
  • Question Question
Microsoft 365 RESOLU - Macro - Recherche de lignes identiques et ressortir les lignes uniques
Réponses
8
Affichages
920
Akortys
C
  • Question Question
Autres Recherche dans les colonnes mais aussi dans plusieurs lignes pour un même nom
Réponses
11
Affichages
771
chelle2
C
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
808
arnoldbrice19
A
S
  • Question Question
Microsoft 365 Afficher dans un tableau les noms des feuilles d'un fichier excel ainsi que le nombre de lignes renseignées pour chacune d'elle.
Réponses
2
Affichages
745
chris
Y
  • Question Question
XL 2019 Besoin d'aide pour une Macro pouvant doubler des lignes et remplir des colonnes
Réponses
7
Affichages
975
chris
S
  • Résolu(e)
XL 2016 Macro insérer 2 lignes copiées dans un tableau
Réponses
7
Affichages
999
SMEAGOAL
S
A
  • Question Question
XL 2013 Insérer lignes et liens dans plusieurs tableaux successifs (macros)
Réponses
0
Affichages
754
Arkana54
A
G
  • Question Question
Microsoft 365 filtrer / défiltrer insertion de ligne automatique - macro qui ne fonctionne pas ou de manière aléatoire
Réponses
4
Affichages
2 K
Grelune
G
O
  • Question Question
XL 2013 Macro qui rajoute une ligne dans un tableau pour mettre à jour les informations
Réponses
10
Affichages
1 K
onyirimba
O
O
  • Question Question
Microsoft 365 macro pour agréger différents fichiers CSV dans un fichier XLSM
Réponses
10
Affichages
2 K
dysorthographie
M
  • Question Question
XL 2016 Créer un fichier excel tous les 150 lignes et insérer les valeurs selon valeur entête colonne
Réponses
2
Affichages
937
MiamiVince33
M
C
  • Résolu(e)
Microsoft 365 Extraire dans plusieurs colonnes les données d'une autre feuille en sautant des lignes et sans macro
Réponses
4
Affichages
3 K
Caillou_
C
C
  • Résolu(e)
XL 2016 Macro pour prendre des données dans un autre fichier
Réponses
3
Affichages
933
Carlich
C
B
  • Question Question
XL 2010 Macro pour suppression de lignes sous conditions
Réponses
0
Affichages
905
Bebert29
B
B
  • Résolu(e)
Microsoft 365 Remplacer une valeur saisie après recherche dans une liste sur un autre onglet
Réponses
4
Affichages
2 K
benoitoleron
B
B
  • Question Question
XL 2010 Insérer des lignes au milieu d'un tableau
Réponses
2
Affichages
1 K
bepo08
B
E
  • Question Question
Autres Changer la couleur des caractères compris entre 2 chaînes de caractères sur une ligne dans Excel 2007 avec une Macro
Réponses
6
Affichages
2 K
sylvanu
C
  • Question Question
XL 2016 Lignes vides non affichées après application d'un filtre (macro)
Réponses
7
Affichages
2 K
Cydonia37
C
L
  • Question Question
Autres Une macro pour transposer des onglets dans un seul onglet à la suite
Réponses
14
Affichages
2 K
sousou
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…