VBA Matricielles et &

[Hoareau]

Bonjour

Pourquoi quand je cherche à metre cette syntaxe en relatif cela ne marche pas

message erreur #VALEUR!

merci



Fonctionne

Sub v2()
[H1:m1].Value = [TRANSPOSE(VALEURS.UNIQUES(A1:C2,1))]
End Sub

Ne fonctionne pas

Sub v2_2()
Lig_1 = 1
Lig_2 = 2

[H1:m1].Value = [TRANSPOSE(VALEURS.UNIQUES("A" & Lig_1 & ":c" & Lig_2,1))]


End Sub

 

[JCGL]

Re : VBA Matricielles et &

Bonjour à tous,

Utilise .FormulaArray à la place de .Value pour passer en matricielle

A+ à tous

 

[Hoareau]

Re : VBA Matricielles et &

Merci

mais dans ce cas rien de changé

 

[JCGL]

Re : VBA Matricielles et &

Bonjour à tous,

OK mais ta formule me semble bizarre :

[TRANSPOSE(VALEURS.UNIQUES(A1:C2,1))]

Lance l'enregistreur de macro
Tape la formule dans la barre de formule

Tu auras la syntaxe exacte

A+ à tous

 

[Hoareau]

Re : VBA Matricielles et &

Range("H1:M1").Select

Selection.FormulaArray = "=TRANSPOSE(VALEURS.UNIQUES(RC[-7]:R[1]C[-5],1))"

le problème c'est les & , si cest ecrit (A1:C2,1) ça fonctionne mais si je mets des & afin de lincorporer dans une boucle, cela ne marche plus.

 

[JCGL]

Re : VBA Matricielles et &

Bonjour à tous,

Je pense qu'un fichier exemple nous aiderait à optimiser ton code

A+ à tous

 

[Hoareau]

Re : VBA Matricielles et & [resolu]

Je ne savais pas qu'on n'utilisai pas de variables entre les []

il me reste maintenant à faire la boucle

merci

Lig_1 = 1
Lig_2 = 2
Range("H" & Lig_1 & ":M" & Lig_1).Value = Evaluate("TRANSPOSE(VALEURS.UNIQUES(A" & Lig_1 & ":c" & Lig_2 & ",1))")