VBA Matricielles et &

Le
PST
Bonjour

Pourquoi quand je cherche à metre cette syntaxe en relatif cela ne
marche pas, pour en faire une boucle

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FdeCourt
Le #21029871
Salut,

En attendant qu'un spécialiste te réponde, pour débloquer ta
situation, tu peux utiliser cette formule:
Sub v2_2()
Lig_1 = 1
Lig_2 = 2
[H1:m1].Value = Evaluate("TRANSPOSE(VALEURS.UNIQUES(A" & Lig_1 & ":c"
& Lig_2 & ",1))")
End Sub

Cordialement,

F.
Daniel.C
Le #21029861
Ca peut être ça (pas moyen de tester sans connaître "VALEURS.UNIQUES")
:

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

Tu ne peux pas mettre de variables entre crochets.
Daniel

Bonjour

Pourquoi quand je cherche à metre cette syntaxe en relatif cela ne marche
pas, pour en faire une boucle

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


PST
Le #21031731
Impeccable

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

il me reste maintenant à faire la boucle


Le 22/01/2010 19:25, FdeCourt a écrit :
Salut,

En attendant qu'un spécialiste te réponde, pour débloquer ta
situation, tu peux utiliser cette formule:
Sub v2_2()
Lig_1 = 1
Lig_2 = 2
[H1:m1].Value = Evaluate("TRANSPOSE(VALEURS.UNIQUES(A"& Lig_1& ":c"
& Lig_2& ",1))")
End Sub

Cordialement,

F.



Théodore
Le #21033801
Tiens v'là HOAREAU !


"PST" news:4b59ddc9$0$955$
Bonjour

Pourquoi quand je cherche à metre cette syntaxe en relatif cela ne
marche pas, pour en faire une boucle

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
Publicité
Poster une réponse
Anonyme