Sub ColonnesIdentiques()
ReDim t(Cells(1, "P").Column)
For col = Cells(1, "C").Column To Cells(1, "P").Column
For j = 2 To 14
Cells(j, col).Select
t(col) = t(col) & Cells(j, col) & " "
Next
Next
For i = Cells(1, "C").Column To Cells(1, "P").Column - 1
Set r = Nothing
For j = i + 1 To Cells(1, "P").Column
If t(i) = t(j) Then
If r Is Nothing Then
Set r = Union(Columns(i), Columns(j))
Else
Set r = Union(r, Columns(i), Columns(j))
End If
End If
Next
If Not r Is Nothing Then
r.Select
MsgBox r.Address
End If
Next
End Sub
=SI(SOMMEPROD(--(PRODUITMAT(TRANSPOSE(LIGNE($C$2:$C$14)/LIGNE($C$2:$C$14));--(D2:D14=$C$2:C14))=NBVAL(D2:D14)))>0; EQUIV(VRAI;PRODUITMAT(TRANSPOSE(LIGNE($C$2:$C$14)/LIGNE($C$2:$C$14));--(D2:D14=$C$2:C14))=NBVAL(D2:D14);0);"")
Formule matricielle: Elle doit être validée par la combinaison des touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée comme une formule classique.
Si la validation matricielle est correcte, alors Excel entoure la formule d'accolades {=.......}.
Chaque fois que cette formule sera modifiée, la validation devra se faire par Ctrl+Maj+Entrée. Les accolades apparaissent à la validation et ne doivent pas être saisies au clavier.