Créer un doublon
Fermé
maurtoss
-
9 déc. 2011 à 12:04
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 9 déc. 2011 à 14:18
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 9 déc. 2011 à 14:18
A voir également:
- Créer un doublon
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Créer un compte instagram - Guide
- Créer un organigramme - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
9 déc. 2011 à 12:14
9 déc. 2011 à 12:14
Bonjour
peux tu expliquer
"doublons d'une ligne" ?
d'avance merci
peux tu expliquer
"doublons d'une ligne" ?
d'avance merci
pépé35530
Messages postés
2942
Date d'inscription
vendredi 1 mai 2009
Statut
Membre
Dernière intervention
19 mars 2016
1 382
9 déc. 2011 à 13:19
9 déc. 2011 à 13:19
Bonjour,
Une manip un peu compliquée mais qui doit pouvoir être automatisée :
Créer une colonne et rentrer la formule suivante :
=SI(TROUVE("&";A2:A23;1)>0;0;1)
A2 contient l'information à tester
A2:A23 les cellules à tester (à adapter). on peut aussi donner un nom.
Les cellules répondant au critère afficheront un 0 ou bien un message d'erreur.
Utiliser ensuite le filtre afin de ne faire apparaître que les lignes contenant un 0
faire un copier de ces lignes
faire à nouveau apparaître toutes les lignes via le filtre
se positionner à la fin du tableau et faire un coller.
utiliser le filtre pour trier à nouveau la liste.
A+
pépé
Une manip un peu compliquée mais qui doit pouvoir être automatisée :
Créer une colonne et rentrer la formule suivante :
=SI(TROUVE("&";A2:A23;1)>0;0;1)
A2 contient l'information à tester
A2:A23 les cellules à tester (à adapter). on peut aussi donner un nom.
Les cellules répondant au critère afficheront un 0 ou bien un message d'erreur.
Utiliser ensuite le filtre afin de ne faire apparaître que les lignes contenant un 0
faire un copier de ces lignes
faire à nouveau apparaître toutes les lignes via le filtre
se positionner à la fin du tableau et faire un coller.
utiliser le filtre pour trier à nouveau la liste.
A+
pépé
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
9 déc. 2011 à 14:18
9 déc. 2011 à 14:18
re,
ci dessous macro avec colonne A et restitution en colonne B à adapter
ci dessous macro avec colonne A et restitution en colonne B à adapter
Option Explicit
Option Base 1
Const col As String = "A"
Sub doubler_ligne_si()
Dim derlig As Integer
Dim T_in, T_out
Dim Cptr_in As Integer, Cptr_out As Integer
'---------initialisations
derlig = Columns(col).Find("*", , , , , xlPrevious).Row
T_in = Application.Transpose(Range(Cells(1, col), Cells(derlig, col)).Value)
ReDim T_out(1)
Cptr_out = 1
'--------- établissement des lignes doublées
For Cptr_in = 1 To UBound(T_in)
ReDim Preserve T_out(Cptr_out)
T_out(Cptr_out) = T_in(Cptr_in)
Cptr_out = Cptr_out + 1
If T_in(Cptr_in) Like "*&*" Then
ReDim Preserve T_out(Cptr_out)
T_out(Cptr_out) = T_in(Cptr_in)
Cptr_out = Cptr_out + 1
End If
Next
'---------restitution
Cells(1, "B").Resize(UBound(T_out), 1) = Application.Transpose(T_out)
End Sub
9 déc. 2011 à 12:21
voici un exemple:
En colonne a j'ai ça:
1 papa
2 papa & maman
3 bebe & papa
4 bebe
et j'aimerai avoir ça:
1 papa
2 papa & maman
3 papa & maman
4 bebe & papa
5 bebe & papa
6 bebe