Erreur dans le code

Bonjour,

j'ai mon code et il a une erreur à la partie surligner.

Les cellules fusionnées doivent avoir la même taille, hors je n'ai pas de cellule fusionnée.

Dim Arr As Variant

Arr = Array("Récapitulatif", "Audit")

For Each elt In Arr
With Worksheets(elt)

With .Range("A6.A" & .Range("A65536").End(xlUp).Row).CurrentRegion
.Sort Key1:=.Item(2, 1), Header:=xlGuess
End With
End With
Next

Cdlt.

Autant pour moi ! :p

Bonjour

j'ai mon code et il a une erreur à la partie surligner

Où est cette partie surlignée?

cordialement

Re,

Désolé. :p

Cdlt.

Bonjour Mattsly,

Je ne sais pas exactement ce que tu veux rechercher, mais tu as un problème avec le With :

With .Range("A6.A" & .Range("A65536").End(xlUp).Row).CurrentRegion

.Sort Key1:=.Item(2, 1), Header:=xlGuess

End With

Range ne possède pas d'Item mais des Cells, Si c'est l'item d'un tableau, il faut que tu le précises : MonTableau.Item( 2, 1)

Bonjour Benead,

D'accord, merci pour la réponse.

Cdlt.