Evaluate

Le
PST
Bonjour

Pourquoi la deuxième macro ne fonctionne pas,il y t il une solution pou=
r
qu'elle tienne compte des lettres.
le but c'est d'appliquer une matricielle sur un tableau sans écrire sur=

le disque.

1)Fonctionne

Sub test_mat_array()
With ActiveWorkbook
.Names.Add Name:="ArrTemp",
RefersToR1C1:="={1,2,3,4,5,6,7,8,9,10}"
.ActiveSheet.Cells(1, 1).Value =
Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=5))")
.Names("ArrTemp").Delete
End With
End Sub


2) Ne foncxtionne pas

With ActiveWorkbook

A = 1
B = 2
C = 3
d = 4
E = 5
F = 6
G = 7
H = 8
I = 9
j = 10

.Names.Add Name:="ArrTemp", RefersToR1C1:="={A,B,C,D,E,F,G,H,I,J}=
"
.ActiveSheet.Cells(1, 1).Value =
Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=6))")
.Names("ArrTemp").Delete
End With

merci
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
Daniel
Le #4799671
Bonjour
Tu ne peux pas mettre des variables entre guillemets. ("A" est considérré
comme la lettre A, pas come la variable de nom A). Esssaie :

.Names.Add Name:="ArrTemp", _
RefersTo:=Array(A, B, c, d, e, f, g, h, i, j)

Cordialement.
Daniel
"PST" 46ccc552$0$25938$
Bonjour

Pourquoi la deuxième macro ne fonctionne pas,il y t il une solution pour
qu'elle tienne compte des lettres.
le but c'est d'appliquer une matricielle sur un tableau sans écrire sur
le disque.

1)Fonctionne

Sub test_mat_array()
With ActiveWorkbook
.Names.Add Name:="ArrTemp",
RefersToR1C1:="={1,2,3,4,5,6,7,8,9,10}"
.ActiveSheet.Cells(1, 1).Value Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=5))")
.Names("ArrTemp").Delete
End With
End Sub


2) Ne foncxtionne pas

With ActiveWorkbook

A = 1
B = 2
C = 3
d = 4
E = 5
F = 6
G = 7
H = 8
I = 9
j = 10

.Names.Add Name:="ArrTemp", RefersToR1C1:="={A,B,C,D,E,F,G,H,I,J}"
.ActiveSheet.Cells(1, 1).Value Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=6))")
.Names("ArrTemp").Delete
End With

merci
PST
Le #4799521
merci pour l'esplication

Bonjour
Tu ne peux pas mettre des variables entre guillemets. ("A" est considé rré
comme la lettre A, pas come la variable de nom A). Esssaie :

.Names.Add Name:="ArrTemp", _
RefersTo:=Array(A, B, c, d, e, f, g, h, i, j)

Cordialement.
Daniel
"PST" 46ccc552$0$25938$
Bonjour

Pourquoi la deuxième macro ne fonctionne pas,il y t il une solution p our
qu'elle tienne compte des lettres.
le but c'est d'appliquer une matricielle sur un tableau sans écrire s ur
le disque.

1)Fonctionne

Sub test_mat_array()
With ActiveWorkbook
.Names.Add Name:="ArrTemp",
RefersToR1C1:="={1,2,3,4,5,6,7,8,9,10}"
.ActiveSheet.Cells(1, 1).Value =
Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=5))")
.Names("ArrTemp").Delete
End With
End Sub


2) Ne foncxtionne pas

With ActiveWorkbook

A = 1
B = 2
C = 3
d = 4
E = 5
F = 6
G = 7
H = 8
I = 9
j = 10

.Names.Add Name:="ArrTemp", RefersToR1C1:="={A,B,C,D,E,F,G,H,I,J} "
.ActiveSheet.Cells(1, 1).Value =
Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=6))")
.Names("ArrTemp").Delete
End With

merci




Publicité
Poster une réponse
Anonyme