Discussion :

[chess132]

Bonjour,

Mon problème que j'ai un grand fichier excel, les gens qu ils l'ont crier ils ont pas penser qu il sera exploiter comme une base de donnés, ils ont fusionné beaucoup des cellules ayant les même valeurs, et maintenant que je veux l'exporter vers une table access je cherche une solutions qui fractionne les cellules fusionnes et recopier la valeur dans les cellules crier après, afin de ne pas perdre les informations, quoi que ce soit un macro une option sur excel



Merci en avance

[friends80]

Bonjour,

Regarde du côté de la propriété MergeCells. Cette propriété renvoie la valeur true si une plage contient des cellules fusionnées.
Une fois les cellules identifiées, tu met la propiété MergeCells à false. Tu peux ensuite copier/coller la valeur dans la cellule vide.

[chess132]

Merci je viens de résoudre le problème :


Sub mergeCelConserveVal(col__ As String)
Dim i&, j&, nb&
For i = 1 To Rows.Count
If Cells(i, col__).MergeCells = True Then
nb = Cells(i, col__).MergeArea.Rows.Count
Cells(i, col__).MergeCells = False
For j = i + 1 To nb + i - 1
Cells(j, col__) = Cells(i, col__)
Next
End If
Next
End Sub