Dans un classeur, j'ai d=E9fini deux plages nomm=E9e.
bEntr=E9esS, dans l'onglet "B"
mEntr=E9eS, dans l'onglet "M"
Pour utiliser, l'une ou l'autre plage, j'ai cod=E9 :
'-------------
With ActiveSheet
x =3D .Name
.Range("E4").Formula =3D "=3DSUMPRODUCT((sR=E9f=E9rence=3D$A4)*(sEtat=
=3D""x"")*(sMouvement=3D""Sortie"")*(sQuantit=E9))"
.Range("F4").AutoFill Destination:=3D[x & "Entr=E9eS"], Type:=3DxlFillD=
efault
End With
'--------------
A prioiri sans vérifier le reste ceci saute aux yeux:
x=lcase(.Name)
BEntréeS ou bEntréesS ... majuscule minuscule et S ou sS, mais pour les s l'erreur n'est sans doute que dans la transcription du post Pour la casse,donc si minuscule dans le nomde plage, attention on a en Maj celui de la feuille
x=lcase(.Name)
-- lSteph
"Apitos" a écrit dans le message de news: Bonsoir à tous,
Dans un classeur, j'ai défini deux plages nommée.
bEntréesS, dans l'onglet "B"
mEntréeS, dans l'onglet "M"
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'------------- With ActiveSheet x = .Name .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))" .Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault End With '--------------
A prioiri sans vérifier le reste ceci saute aux yeux:
x=lcase(.Name)
BEntréeS ou bEntréesS ... majuscule minuscule et S ou sS,
mais pour les s l'erreur n'est sans doute que dans la transcription du post
Pour la casse,donc si minuscule dans le nomde plage, attention on a en Maj
celui de la feuille
x=lcase(.Name)
--
lSteph
"Apitos" <apitos@gmail.com> a écrit dans le message de
news:4afd60b6-04fc-4f0b-81d7-888569d7fe56@googlegroups.com...
Bonsoir à tous,
Dans un classeur, j'ai défini deux plages nommée.
bEntréesS, dans l'onglet "B"
mEntréeS, dans l'onglet "M"
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'-------------
With ActiveSheet
x = .Name
.Range("E4").Formula =
"=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))"
.Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault
End With
'--------------
A prioiri sans vérifier le reste ceci saute aux yeux:
x=lcase(.Name)
BEntréeS ou bEntréesS ... majuscule minuscule et S ou sS, mais pour les s l'erreur n'est sans doute que dans la transcription du post Pour la casse,donc si minuscule dans le nomde plage, attention on a en Maj celui de la feuille
x=lcase(.Name)
-- lSteph
"Apitos" a écrit dans le message de news: Bonsoir à tous,
Dans un classeur, j'ai défini deux plages nommée.
bEntréesS, dans l'onglet "B"
mEntréeS, dans l'onglet "M"
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'------------- With ActiveSheet x = .Name .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))" .Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault End With '--------------
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'------------- With ActiveSheet x = .Name .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))" .Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault End With '--------------
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
4afd60b6-04fc-4f0b-81d7-888569d7fe56@googlegroups.com...
Bonsoir à tous,
Dans un classeur, j'ai défini deux plages nommée.
bEntréesS, dans l'onglet "B"
mEntréeS, dans l'onglet "M"
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'-------------
With ActiveSheet
x = .Name
.Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))"
.Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault
End With
'--------------
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'------------- With ActiveSheet x = .Name .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))" .Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault End With '--------------
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'------------- With ActiveSheet x = .Name .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))" .Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault End With '--------------
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
4afd60b6-04fc-4f0b-81d7-888569d7fe56@googlegroups.com...
Bonsoir à tous,
Dans un classeur, j'ai défini deux plages nommée.
bEntréesS, dans l'onglet "B"
mEntréeS, dans l'onglet "M"
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'-------------
With ActiveSheet
x = .Name
.Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))"
.Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault
End With
'--------------
Pour utiliser, l'une ou l'autre plage, j'ai codé :
'------------- With ActiveSheet x = .Name .Range("E4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""x"")*(sMouvement=""Sortie"")*(sQuantité))" .Range("F4").AutoFill Destination:=[x & "EntréeS"], Type:=xlFillDefault End With '--------------
Oui Stéphane, il faut rendre en minuscule les lettres "B" et "M".
Pour Jacky, si par exemple la plage [bEntréesS] est égale à D4:D6, la ligne :
Evaluate(x & "EntréeS").Copy .[D4]
Ne copie la formule en [D4] que pour D4:D5 et laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Jacky
Re...
...laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Bien qu'un range serait suffisant Range(x & "EntréeS").Copy .[D4] Je n'éprouve aucune difficulté pour afficher la plage complète Ceci, (x & "EntréeS) étant le nom de la plage, je ne vois pas comment la dernière cellule serait tronquée. A voir..... -- Salutations JJ
"Apitos" a écrit dans le message de news:
Bonsoir LSteph, Jacky,
Oui Stéphane, il faut rendre en minuscule les lettres "B" et "M".
Pour Jacky, si par exemple la plage [bEntréesS] est égale à D4:D6, la ligne :
Evaluate(x & "EntréeS").Copy .[D4]
Ne copie la formule en [D4] que pour D4:D5 et laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Re...
...laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Bien qu'un range serait suffisant
Range(x & "EntréeS").Copy .[D4]
Je n'éprouve aucune difficulté pour afficher la plage complète
Ceci, (x & "EntréeS) étant le nom de la plage, je ne vois pas comment la dernière cellule serait tronquée.
A voir.....
--
Salutations
JJ
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
7160b500-f91c-4269-b9c0-c7f3d6b2f5cc@googlegroups.com...
Bonsoir LSteph, Jacky,
Oui Stéphane, il faut rendre en minuscule les lettres "B" et "M".
Pour Jacky, si par exemple la plage [bEntréesS] est égale à D4:D6, la ligne :
Evaluate(x & "EntréeS").Copy .[D4]
Ne copie la formule en [D4] que pour D4:D5 et laisse la dernière cellule de la plage nommée, à savoir [D6]
vide !
...laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Bien qu'un range serait suffisant Range(x & "EntréeS").Copy .[D4] Je n'éprouve aucune difficulté pour afficher la plage complète Ceci, (x & "EntréeS) étant le nom de la plage, je ne vois pas comment la dernière cellule serait tronquée. A voir..... -- Salutations JJ
"Apitos" a écrit dans le message de news:
Bonsoir LSteph, Jacky,
Oui Stéphane, il faut rendre en minuscule les lettres "B" et "M".
Pour Jacky, si par exemple la plage [bEntréesS] est égale à D4:D6, la ligne :
Evaluate(x & "EntréeS").Copy .[D4]
Ne copie la formule en [D4] que pour D4:D5 et laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Jacky
Pour vérifier place ceci dans la macro MsgBox Range(x & "EntréeS").Address
-- Salutations JJ
"Jacky" a écrit dans le message de news: k5rvs5$dob$
Re...
...laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Bien qu'un range serait suffisant Range(x & "EntréeS").Copy .[D4] Je n'éprouve aucune difficulté pour afficher la plage complète Ceci, (x & "EntréeS) étant le nom de la plage, je ne vois pas comment la dernière cellule serait tronquée. A voir..... -- Salutations JJ
"Apitos" a écrit dans le message de news:
Bonsoir LSteph, Jacky,
Oui Stéphane, il faut rendre en minuscule les lettres "B" et "M".
Pour Jacky, si par exemple la plage [bEntréesS] est égale à D4:D6, la ligne :
Evaluate(x & "EntréeS").Copy .[D4]
Ne copie la formule en [D4] que pour D4:D5 et laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Pour vérifier place ceci dans la macro
MsgBox Range(x & "EntréeS").Address
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: k5rvs5$dob$1@speranza.aioe.org...
Re...
...laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Bien qu'un range serait suffisant
Range(x & "EntréeS").Copy .[D4]
Je n'éprouve aucune difficulté pour afficher la plage complète
Ceci, (x & "EntréeS) étant le nom de la plage, je ne vois pas comment la dernière cellule serait tronquée.
A voir.....
--
Salutations
JJ
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
7160b500-f91c-4269-b9c0-c7f3d6b2f5cc@googlegroups.com...
Bonsoir LSteph, Jacky,
Oui Stéphane, il faut rendre en minuscule les lettres "B" et "M".
Pour Jacky, si par exemple la plage [bEntréesS] est égale à D4:D6, la ligne :
Evaluate(x & "EntréeS").Copy .[D4]
Ne copie la formule en [D4] que pour D4:D5 et laisse la dernière cellule de la plage nommée, à savoir [D6]
vide !
Pour vérifier place ceci dans la macro MsgBox Range(x & "EntréeS").Address
-- Salutations JJ
"Jacky" a écrit dans le message de news: k5rvs5$dob$
Re...
...laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Bien qu'un range serait suffisant Range(x & "EntréeS").Copy .[D4] Je n'éprouve aucune difficulté pour afficher la plage complète Ceci, (x & "EntréeS) étant le nom de la plage, je ne vois pas comment la dernière cellule serait tronquée. A voir..... -- Salutations JJ
"Apitos" a écrit dans le message de news:
Bonsoir LSteph, Jacky,
Oui Stéphane, il faut rendre en minuscule les lettres "B" et "M".
Pour Jacky, si par exemple la plage [bEntréesS] est égale à D4:D6, la ligne :
Evaluate(x & "EntréeS").Copy .[D4]
Ne copie la formule en [D4] que pour D4:D5 et laisse la dernière cellule de la plage nommée, à savoir [D6] vide !
Apitos
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière li gne, ça c'est la question ?
En PJ un exemple complet :
http://cjoint.com/?BJtu5e5wCXN
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière li gne, ça c'est la question ?
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière li gne, ça c'est la question ?
En PJ un exemple complet :
http://cjoint.com/?BJtu5e5wCXN
Jacky
re.. ...ça c'est la question ?
Il y a certainement quelque chose qui m'échappe ????? "------------- With Sheets("M") sDerLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("D4:D" & sDerLig).Name = "mEntréeS" '--------------- La plage nommée fait référence à "M!$D$4:$D$6" La plage "d4:d6" de la feuille "M" est vide La copie doit copier une plage et la coller au même endroit ????? ????? -- Salutations JJ
"Apitos" a écrit dans le message de news:
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
En PJ un exemple complet :
http://cjoint.com/?BJtu5e5wCXN
re..
...ça c'est la question ?
Il y a certainement quelque chose qui m'échappe
?????
"-------------
With Sheets("M")
sDerLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("D4:D" & sDerLig).Name = "mEntréeS"
'---------------
La plage nommée fait référence à "M!$D$4:$D$6"
La plage "d4:d6" de la feuille "M" est vide
La copie doit copier une plage et la coller au même endroit ?????
?????
--
Salutations
JJ
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1a750500-63a2-4ad1-9064-fc851e445017@googlegroups.com...
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
Il y a certainement quelque chose qui m'échappe ????? "------------- With Sheets("M") sDerLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("D4:D" & sDerLig).Name = "mEntréeS" '--------------- La plage nommée fait référence à "M!$D$4:$D$6" La plage "d4:d6" de la feuille "M" est vide La copie doit copier une plage et la coller au même endroit ????? ????? -- Salutations JJ
"Apitos" a écrit dans le message de news:
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
En PJ un exemple complet :
http://cjoint.com/?BJtu5e5wCXN
Jacky
Ok Oublie le message précédant J'ai étudié ton code d'un peu plus près Remplace ceci .Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))" Par .Range(x & "EntréeS").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))"
Idem pour les autres...en dessous
-- Salutations JJ
"Apitos" a écrit dans le message de news:
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
En PJ un exemple complet :
http://cjoint.com/?BJtu5e5wCXN
Ok
Oublie le message précédant
J'ai étudié ton code d'un peu plus près
Remplace ceci
.Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom &
""")*(sMouvement=""Entrée"")*(sQuantité))"
Par
.Range(x & "EntréeS").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom &
""")*(sMouvement=""Entrée"")*(sQuantité))"
Idem pour les autres...en dessous
--
Salutations
JJ
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1a750500-63a2-4ad1-9064-fc851e445017@googlegroups.com...
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
Ok Oublie le message précédant J'ai étudié ton code d'un peu plus près Remplace ceci .Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))" Par .Range(x & "EntréeS").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))"
Idem pour les autres...en dessous
-- Salutations JJ
"Apitos" a écrit dans le message de news:
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
En PJ un exemple complet :
http://cjoint.com/?BJtu5e5wCXN
Jacky
Re... Evaluate(x & "EntréeS").Copy .[D4] est a supprimer, bien évidement Mais cela tu le sais certainement -- Salutations JJ
"Jacky" a écrit dans le message de news: k5sdmj$g8t$
Ok Oublie le message précédant J'ai étudié ton code d'un peu plus près Remplace ceci .Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))" Par .Range(x & "EntréeS").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))"
Idem pour les autres...en dessous
-- Salutations JJ
"Apitos" a écrit dans le message de news:
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
En PJ un exemple complet :
http://cjoint.com/?BJtu5e5wCXN
Re...
Evaluate(x & "EntréeS").Copy .[D4]
est a supprimer, bien évidement
Mais cela tu le sais certainement
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: k5sdmj$g8t$1@speranza.aioe.org...
Ok
Oublie le message précédant
J'ai étudié ton code d'un peu plus près
Remplace ceci
.Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom &
""")*(sMouvement=""Entrée"")*(sQuantité))"
Par
.Range(x & "EntréeS").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom &
""")*(sMouvement=""Entrée"")*(sQuantité))"
Idem pour les autres...en dessous
--
Salutations
JJ
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1a750500-63a2-4ad1-9064-fc851e445017@googlegroups.com...
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?
Re... Evaluate(x & "EntréeS").Copy .[D4] est a supprimer, bien évidement Mais cela tu le sais certainement -- Salutations JJ
"Jacky" a écrit dans le message de news: k5sdmj$g8t$
Ok Oublie le message précédant J'ai étudié ton code d'un peu plus près Remplace ceci .Range("D4").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))" Par .Range(x & "EntréeS").Formula = "=SUMPRODUCT((sRéférence=$A4)*(sEtat=""" & Nom & """)*(sMouvement=""Entrée"")*(sQuantité))"
Idem pour les autres...en dessous
-- Salutations JJ
"Apitos" a écrit dans le message de news:
Re,
Les plages nommées vont bien de la ligne 4 jusqu'à la ligne 6.
Mais pourquoi les formules ne sont pas copiées jusqu'à la dernière ligne, ça c'est la question ?