Enlever la fusion et copier la valeur dans toutes les cellules

Le
MEB
Bonjour,

J'ai un rapport qui m'arrive d'un extracteur de données comme ceci :

A B C
D
1 Intervenant 1 Usager 1 Adresse 1 Téléphone 1
2 Usager 2 Adresse 2 Téléphone 2
3 Usager 3 Adresse 3 Téléphone 3
4 Usager 4 Adresse 4 Téléphone 4
5 Usager 5 Adresse 5 Téléphone 5
6 Usager 6 Adresse 6 Téléphone 6
7 Intervenant 2 Usager 7 Adresse 7 Téléphone 7
8 Usager 8 Adresse 8 Téléphone 8
9 Usager 9 Adresse 9 Téléphone 9
10 Usager 10 Adresse 10 Téléphone 10
11 Intervenant 3 Usager 11 Adresse 11 Téléphone 11
12 Usager 12 Adresse 12 Téléphone 12


Vous aurez compris que Intervenant 1 est une fusion des cellules A1 à
A6 correspondant aux usagers 1 à 6 que Intervenant 2 est une fusion
des cellules A7 à A10 correspondant aux usagers 7 à 10 et Intervenant
3 est une fusion des cellules A11 à A12 correspondant aux usagers 11 à
12 et etc la liste est longue et le nombre de cellules fusionnées
n'est jamais le même.

Je voudrais savoir s'il y a une façon simple d'enlever la fusion et
que l'information apparaisse sur chaque ligne. Ça donnerait ceci comme
résultat :



A B
C D
1 Intervenant 1 Usager 1 Adresse 1 Téléphone 1
2 Intervenant 1 Usager 2 Adresse 2 Téléphone 2
3 Intervenant 1 Usager 3 Adresse 3 Téléphone 3
4 Intervenant 1 Usager 4 Adresse 4 Téléphone 4
5 Intervenant 1 Usager 5 Adresse 5 Téléphone 5
6 Intervenant 1 Usager 6 Adresse 6 Téléphone 6
7 Intervenant 2 Usager 7 Adresse 7 Téléphone 7
8 Intervenant 2 Usager 8 Adresse 8 Téléphone 8
9 Intervenant 2 Usager 9 Adresse 9 Téléphone 9
10 Intervenant 2 Usager 10 Adresse 10 Téléphone 10
11 Intervenant 3 Usager 11 Adresse 11 Téléphone 11
12 Intervenant 3 Usager 12 Adresse 12 Téléphone 12



Merci beaucoup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #23148521
Bonjour,

Et ton problème est : ...


MichD
--------------------------------------------
"MEB" a écrit dans le message de groupe de discussion :


Bonjour,

J'ai un rapport qui m'arrive d'un extracteur de données comme ceci :

A B C
D
1 Intervenant 1 Usager 1 Adresse 1 Téléphone 1
2 Usager 2 Adresse 2 Téléphone 2
3 Usager 3 Adresse 3 Téléphone 3
4 Usager 4 Adresse 4 Téléphone 4
5 Usager 5 Adresse 5 Téléphone 5
6 Usager 6 Adresse 6 Téléphone 6
7 Intervenant 2 Usager 7 Adresse 7 Téléphone 7
8 Usager 8 Adresse 8 Téléphone 8
9 Usager 9 Adresse 9 Téléphone 9
10 Usager 10 Adresse 10 Téléphone 10
11 Intervenant 3 Usager 11 Adresse 11 Téléphone 11
12 Usager 12 Adresse 12 Téléphone 12


Vous aurez compris que Intervenant 1 est une fusion des cellules A1 à
A6 correspondant aux usagers 1 à 6 que Intervenant 2 est une fusion
des cellules A7 à A10 correspondant aux usagers 7 à 10 et Intervenant
3 est une fusion des cellules A11 à A12 correspondant aux usagers 11 à
12 et etc la liste est longue et le nombre de cellules fusionnées
n'est jamais le même.

Je voudrais savoir s'il y a une façon simple d'enlever la fusion et
que l'information apparaisse sur chaque ligne. Ça donnerait ceci comme
résultat :



A B
C D
1 Intervenant 1 Usager 1 Adresse 1 Téléphone 1
2 Intervenant 1 Usager 2 Adresse 2 Téléphone 2
3 Intervenant 1 Usager 3 Adresse 3 Téléphone 3
4 Intervenant 1 Usager 4 Adresse 4 Téléphone 4
5 Intervenant 1 Usager 5 Adresse 5 Téléphone 5
6 Intervenant 1 Usager 6 Adresse 6 Téléphone 6
7 Intervenant 2 Usager 7 Adresse 7 Téléphone 7
8 Intervenant 2 Usager 8 Adresse 8 Téléphone 8
9 Intervenant 2 Usager 9 Adresse 9 Téléphone 9
10 Intervenant 2 Usager 10 Adresse 10 Téléphone 10
11 Intervenant 3 Usager 11 Adresse 11 Téléphone 11
12 Intervenant 3 Usager 12 Adresse 12 Téléphone 12



Merci beaucoup
isabelle
Le #23148511
bonjour Meb,

Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
x = Range("A" & i).MergeArea.Rows.Count
If x > 1 Then
Range("A" & i).MergeCells = False
Range("A" & i).AutoFill Destination:=Range("A" & i & ":A" & i + x -
1), Type:=xlFillCopy
i = i + x - 1
End If
Next
End Sub


isabelle



Le 2011-02-22 13:48, MEB a écrit :
Bonjour,

J'ai un rapport qui m'arrive d'un extracteur de données comme ceci :

A B C
D
1 Intervenant 1 Usager 1 Adresse 1 Téléphone 1
2 Usager 2 Adresse 2 Téléphone 2
3 Usager 3 Adresse 3 Téléphone 3
4 Usager 4 Adresse 4 Téléphone 4
5 Usager 5 Adresse 5 Téléphone 5
6 Usager 6 Adresse 6 Téléphone 6
7 Intervenant 2 Usager 7 Adresse 7 Téléphone 7
8 Usager 8 Adresse 8 Téléphone 8
9 Usager 9 Adresse 9 Téléphone 9
10 Usager 10 Adresse 10 Téléphone 10
11 Intervenant 3 Usager 11 Adresse 11 Téléphone 11
12 Usager 12 Adresse 12 Téléphone 12


Vous aurez compris que Intervenant 1 est une fusion des cellules A1 à
A6 correspondant aux usagers 1 à 6 que Intervenant 2 est une fusion
des cellules A7 à A10 correspondant aux usagers 7 à 10 et Intervenant
3 est une fusion des cellules A11 à A12 correspondant aux usagers 11 à
12 et etc la liste est longue et le nombre de cellules fusionnées
n'est jamais le même.

Je voudrais savoir s'il y a une façon simple d'enlever la fusion et
que l'information apparaisse sur chaque ligne. Ça donnerait ceci comme
résultat :



A B
C D
1 Intervenant 1 Usager 1 Adresse 1 Téléphone 1
2 Intervenant 1 Usager 2 Adresse 2 Téléphone 2
3 Intervenant 1 Usager 3 Adresse 3 Téléphone 3
4 Intervenant 1 Usager 4 Adresse 4 Téléphone 4
5 Intervenant 1 Usager 5 Adresse 5 Téléphone 5
6 Intervenant 1 Usager 6 Adresse 6 Téléphone 6
7 Intervenant 2 Usager 7 Adresse 7 Téléphone 7
8 Intervenant 2 Usager 8 Adresse 8 Téléphone 8
9 Intervenant 2 Usager 9 Adresse 9 Téléphone 9
10 Intervenant 2 Usager 10 Adresse 10 Téléphone 10
11 Intervenant 3 Usager 11 Adresse 11 Téléphone 11
12 Intervenant 3 Usager 12 Adresse 12 Téléphone 12



Merci beaucoup

LSteph
Le #23150551
Bonjour,
Il faut 7 secondes et demies:

Sélectionne ta plage de données entière et Dans Format de cellule
enlève la fusion
F5 (atteindre) Cellules Cellules Vides OK
=(sélectionne la cellule juste au dessus de la première vide) Entré e
A nouveau Sélectionne ta plage de données entière, Edition Copier
Collage Spécial valeurs

Et voilà.

--
LSteph

On 22 fév, 19:48, MEB
Bonjour,

J'ai un rapport qui m'arrive d'un extracteur de données comme ceci :

         A                 B                        C
D
1 Intervenant 1    Usager 1     Adresse 1           T éléphone 1
2                Usager 2       Adresse 2           Téléphone 2
3                       Usager 3        Adr esse 3           Téléphone 3
4                Usager 4       Adresse 4           Téléphone 4
5                Usager 5       Adresse 5           Téléphone 5
6                Usager 6       Adresse 6           Téléphone 6
7 Intervenant 2    Usager 7     Adresse 7           T éléphone 7
8                Usager 8       Adresse 8           Téléphone 8
9                Usager 9       Adresse 9           Téléphone 9
10               Usager 10      Adresse 10    T éléphone 10
11 Intervenant 3  Usager 11     Adresse 11    Téléphone 11
12               Usager 12      Adresse 12    T éléphone 12

Vous aurez compris que Intervenant 1 est une fusion des cellules A1 à
A6 correspondant aux usagers 1 à 6 que Intervenant 2 est une fusion
des cellules A7 à A10 correspondant aux usagers 7 à 10 et Intervenant
3 est une fusion des cellules A11 à A12 correspondant aux usagers 11 à
12 et etc la liste est longue et le nombre de cellules fusionnées
n'est jamais le même.

Je voudrais savoir s'il y a une façon simple d'enlever la fusion et
que l'information apparaisse sur chaque ligne. Ça donnerait ceci comme
résultat :

          A                 B
C                  D
1 Intervenant 1    Usager 1     Adresse 1           T éléphone 1
2 Intervenant 1    Usager 2     Adresse 2           T éléphone 2
3 Intervenant 1    Usager 3     Adresse 3           T éléphone 3
4 Intervenant 1    Usager 4     Adresse 4           T éléphone 4
5 Intervenant 1    Usager 5     Adresse 5           T éléphone 5
6 Intervenant 1    Usager 6     Adresse 6           T éléphone 6
7 Intervenant 2    Usager 7     Adresse 7           T éléphone 7
8 Intervenant 2    Usager 8     Adresse 8           T éléphone 8
9 Intervenant 2    Usager 9     Adresse 9           T éléphone 9
10 Intervenant 2  Usager 10     Adresse 10    Téléphone 10
11 Intervenant 3  Usager 11     Adresse 11    Téléphone 11
12 Intervenant 3  Usager 12     Adresse 12    Téléphone 12

Merci beaucoup
Publicité
Poster une réponse
Anonyme