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 donnes comme ceci :

A B C
D
1 Intervenant 1 Usager 1 Adresse 1 Tlphone 1
2 Usager 2 Adresse 2 Tlphone 2
3 Usager 3 Adresse 3 Tlphone 3
4 Usager 4 Adresse 4 Tlphone 4
5 Usager 5 Adresse 5 Tlphone 5
6 Usager 6 Adresse 6 Tlphone 6
7 Intervenant 2 Usager 7 Adresse 7 Tlphone 7
8 Usager 8 Adresse 8 Tlphone 8
9 Usager 9 Adresse 9 Tlphone 9
10 Usager 10 Adresse 10 Tlphone 10
11 Intervenant 3 Usager 11 Adresse 11 Tlphone 11
12 Usager 12 Adresse 12 Tlphone 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 fusionnes
n'est jamais le mme.

Je voudrais savoir s'il y a une faon simple d'enlever la fusion et
que l'information apparaisse sur chaque ligne. a donnerait ceci comme
rsultat :



A B
C D
1 Intervenant 1 Usager 1 Adresse 1 Tlphone 1
2 Intervenant 1 Usager 2 Adresse 2 Tlphone 2
3 Intervenant 1 Usager 3 Adresse 3 Tlphone 3
4 Intervenant 1 Usager 4 Adresse 4 Tlphone 4
5 Intervenant 1 Usager 5 Adresse 5 Tlphone 5
6 Intervenant 1 Usager 6 Adresse 6 Tlphone 6
7 Intervenant 2 Usager 7 Adresse 7 Tlphone 7
8 Intervenant 2 Usager 8 Adresse 8 Tlphone 8
9 Intervenant 2 Usager 9 Adresse 9 Tlphone 9
10 Intervenant 2 Usager 10 Adresse 10 Tlphone 10
11 Intervenant 3 Usager 11 Adresse 11 Tlphone 11
12 Intervenant 3 Usager 12 Adresse 12 Tlphone 12



Merci beaucoup
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