Discussion :

[Medde]

Bonjour,

J’ai deux colonnes. La première comporte une référence, la deuxième une description.
J’ai par exemple quatre références au niveau de la première colonne (A1, A2, A3, A4) et deux descriptions dans ma deuxième colonne (B1, B4).
B1 : Description commune (Cellule fusionnée : B1,B2,B3) pour références (A1,A2,A3).
J’aimerais avoir ça : A1/B1, A2/B1.
Mais en exécutant le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub order ()
i = 0
For i = 0 To 187
Worksheets("Sheet1").Range("C1").Offset(i, 0) = Worksheets("Sheet1").Range("B1").Offset(i, 0).Value & "/" & Worksheets("Sheet1").Range("A1").Offset(i, 0).Value
Next i
End Sub

j’aile résultat suivant : A1/B1 A2/B4.

Comment faire en sorte que la cellule fusionnée soit lisible sur B1, B2 et B3 ?

Merci.
Bonne journée.

[Marc-L]

Bonjour !

C'est le problème de fusionner les cellules à tort et à travers ‼

Comme la cellule B1 est en fait égale à B1:B3, l'Offset se positionne logiquement sur B4 !

Donc vaut mieux utiliser .Cells(ligne, colonne).MergeArea(1).Value …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Medde]

Re,

Donc vaut mieux utiliser .Cells(ligne, colonne).MergeArea(1).Value …

Oui ça fonctionne, merci.
À quoi correspond le numéro devant MergeArea ?

[Marc-L]

C'est en fait MergeArea.Cells(1) …