Pb d'offset sur cellules fusionnées

[Greutof]

Bonjour à toutes et à tous,

Je suis confronté à un problème qui doit être très connu, mais que je ne trouve pas dans l'historique des posts.
Voilà de quoi il s'agit. J'ai une feuille Excel avec :
- les cellules A1, B1 et C1 fusionnées ensemble et nommées A1 par Excel
- les cellules D1 et E1 fusionnées ensemble et nommées D1 par Excel
- les cellules F1, G1 et H1 fusionnées ensemble et nommées F1 par Excel

J'ai, d'autre part, un module VBA dans ce classeur avec une procédure du type :

Sub CaMarchePas()
For i = 0 To 3
Range('A1').Offset(0, i).Value = i
Next
End Sub

Et bien, à mon grand étonnement :
- 'A1' reçoit 0
- 'D1' reçoit 1 (donc là, l'offset de 1 vers la droite fonctionne)
- la cellule situé encore à droite et considérée comme 'F1' par Excel et qui regroupe F1, G1 et H1 reçoit 3 !! Ce qui veut dire que l'offset fonctionne au premier groupe de cellules fusionnées mais plus après !!

J'aurai voulu obtenir 0 dans 'A1', 1 dans 'D1' et 2 dans 'F1' !

 

[Gruick]

Salut Greutof,
essaies ceci, j'ai poussé l'exemple à 6 pour vérifier.

Sub CaMarche()
Range('A1').Select
For i = 0 To 5
ActiveCell.Value = i
ActiveCell.Offset(0, 1).Select
Next i
End Sub

Pas très élégant les Select, mais ça fonctionne.
Bonne soirée

 

[AV]

Ave,

Le mieux est évidemment de pas utiliser de cellule fusionnées....

Pour ne parcourir que les cellule fusionées (?) et renvoyer l'adresse du 1° item de chaque cellule fusionnée :

Sub InfoFusion()
For Each c In [A1:H1]
If c.MergeCells Then
If x différentde c.MergeArea.Item(1).Address Then MsgBox c.MergeArea.Item(1).Address
x = c.MergeArea.Item(1).Address
End If
Next
End Sub

PS : remplacer ''différentde'' parle signe qui va bien

AV [aaa]

 

[Greutof]

Merci pour vos réponses.

En fait, cette utilisation des cellules fusionnées tient au fait que j'ai une grosse macro d'analyse de données qui tourne et qui est censée cracher les résultats sur une feuille pré-formattée avec .... des cellules fusionnées ! Alors je galèrais un peu pour mettre tous les résultats au bon endroit !

Merci encore et bonne continuation !