Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut à toi
je te propose ce code :
i = 2 Début = i Do While i < Range("A65535").End(xlUp).Row + 1 If Range("A" & i) = Range("A" & i + 1) Then i = i + 1 Else Range("B" & i) = Range("A" & i) Range("B" & Début, "B" & i).Merge Range("B" & Début, "B" & i).HorizontalAlignment = xlCenter Range("B" & Début, "B" & i).VerticalAlignment = xlCenter i = i + 1 Début = i End If Loop
Résultat en colonne B
Pour une autre colonne changes la donnée : "B" de la lettre de la nouvelle colonne
i = 2
Début = i
Do While i < Range("A65535").End(xlUp).Row + 1
If Range("A" & i) = Range("A" & i + 1) Then
i = i + 1
Else
Range("B" & i) = Range("A" & i)
Range("B" & Début, "B" & i).Merge
Range("B" & Début, "B" & i).HorizontalAlignment = xlCenter
Range("B" & Début, "B" & i).VerticalAlignment = xlCenter
i = i + 1
Début = i
End If
Loop
Résultat en colonne B
Pour une autre colonne changes la donnée : "B" de la lettre de la
nouvelle colonne
i = 2 Début = i Do While i < Range("A65535").End(xlUp).Row + 1 If Range("A" & i) = Range("A" & i + 1) Then i = i + 1 Else Range("B" & i) = Range("A" & i) Range("B" & Début, "B" & i).Merge Range("B" & Début, "B" & i).HorizontalAlignment = xlCenter Range("B" & Début, "B" & i).VerticalAlignment = xlCenter i = i + 1 Début = i End If Loop
Résultat en colonne B
Pour une autre colonne changes la donnée : "B" de la lettre de la nouvelle colonne
i = 2 Début = i Do While i < Range("A65535").End(xlUp).Row + 1 If Range("A" & i) = Range("A" & i + 1) Then i = i + 1 Else Range("B" & i) = Range("A" & i) Range("B" & Début, "B" & i).Merge Range("B" & Début, "B" & i).HorizontalAlignment = xlCenter Range("B" & Début, "B" & i).VerticalAlignment = xlCenter i = i + 1 Début = i End If Loop
Salut, Je me suis mal exprimé : je voudrais le résultat en lieu et place des valeurs existantes et non l'obtenir ailleurs et être obligé ensuite de devoir faire un copier/coller par dessus
Merci Norbert
"FFO" <francois.forcet@wanadoo.fr> a écrit dans le message de news:
b072562d-dcce-4b47-aa1d-48a6b9a240b6@d21g2000yqn.googlegroups.com...
i = 2
Début = i
Do While i < Range("A65535").End(xlUp).Row + 1
If Range("A" & i) = Range("A" & i + 1) Then
i = i + 1
Else
Range("B" & i) = Range("A" & i)
Range("B" & Début, "B" & i).Merge
Range("B" & Début, "B" & i).HorizontalAlignment = xlCenter
Range("B" & Début, "B" & i).VerticalAlignment = xlCenter
i = i + 1
Début = i
End If
Loop
Salut,
Je me suis mal exprimé : je voudrais le résultat en lieu et place des valeurs
existantes et non l'obtenir ailleurs et être obligé ensuite de devoir faire un
copier/coller par dessus
i = 2 Début = i Do While i < Range("A65535").End(xlUp).Row + 1 If Range("A" & i) = Range("A" & i + 1) Then i = i + 1 Else Range("B" & i) = Range("A" & i) Range("B" & Début, "B" & i).Merge Range("B" & Début, "B" & i).HorizontalAlignment = xlCenter Range("B" & Début, "B" & i).VerticalAlignment = xlCenter i = i + 1 Début = i End If Loop
Salut, Je me suis mal exprimé : je voudrais le résultat en lieu et place des valeurs existantes et non l'obtenir ailleurs et être obligé ensuite de devoir faire un copier/coller par dessus
C'est presque ça : Problème lorsque les premières cellule sont vides : elles sont quand même fusionnées et problème pour formater (y suis pas arrivé) seulement les cellules fusionnées Voir exemple à obtenir : http://www.cijoint.fr/cjlink.php?file=cj200911/cijX3ZAd8o.xls
Norbert
"FFO" <francois.forcet@wanadoo.fr> a écrit dans le message de news:
946144d5-418d-45c6-8be1-2b126b05d473@w19g2000yqk.googlegroups.com...
Rebonjour à toi
C'est presque ça :
Problème lorsque les premières cellule sont vides : elles sont quand même
fusionnées et problème pour formater (y suis pas arrivé) seulement les cellules
fusionnées
Voir exemple à obtenir
:
http://www.cijoint.fr/cjlink.php?file=cj200911/cijX3ZAd8o.xls
C'est presque ça : Problème lorsque les premières cellule sont vides : elles sont quand même fusionnées et problème pour formater (y suis pas arrivé) seulement les cellules fusionnées Voir exemple à obtenir : http://www.cijoint.fr/cjlink.php?file=cj200911/cijX3ZAd8o.xls
Norbert
FFO
Rebonjour à toi
Problème lorsque les premières cellule sont vides : elles sont quand même fusionnées :
problème pour formater (y suis pas arrivé) seulement les cellules fusionnées :
Peux tu préciser !!!!!
Formatage coloré comme dans l'exemple fourni : http://www.cijoint.fr/cjlink.php?file=cj200911/cijX3ZAd8o.xls
"FFO" <francois.forcet@wanadoo.fr> a écrit dans le message de news:
81183d7a-a618-4dc3-b86e-fd27b6196bd4@s31g2000yqs.googlegroups.com...
Rebonjour à toi
Problème lorsque les premières cellule sont vides : elles sont quand
même fusionnées :