j'essaie de faire une MEFC pour les cellules de la colonne E basée sur
l'existence éventuelle, dans la cellule contiguë de la colonne D, c'est à
dire de la même ligne, du texte suivant : "En cours"
L'application en MEFC de la formule suivante pour les cellules de la colonne
E ne semble malheureusement fonctionner :
=sommeprod((Dligne()="En cours")*1)>0
Je ne sais s'il y a éventuellement une formule plus adaptée à ce cas de
figure ?
pourquoi pas tout simplement dans la MEFC de la cellule E1 p.e Ñ="En cours", puis recopier cette MEFC sur les cellules de la colonne E
A+
Antoine76
bonjour AnonymousA
Disons que ce que je voulais faire était de, soit le faire par cellule avec formule pour une copie incrémentée, soit sinon de le faire par macro. Si je le fais par macro, le seule problème est que, selon les différents fichiers qui auront cette macro, les cellules D considérées ne contiendront une valeur que jusqu'à la cellule D12 , D20 ou peut-être D25 peut-être, mais rarement plus. Ce qui complique un peu la programmation en VBA, vu mon niveau balbutiant en la matière... C'est pourquoi j'essayais plutôt de m'orienter sur une formule en MEFC !
Qu'en penses-tu ?
Merci
Antoine
N.B. Je ne serai pas derrière le PC de 15 h40 env. à 17 h 30 env... "anonymousA" a écrit dans le message de news:
Bonjour,
pourquoi pas tout simplement dans la MEFC de la cellule E1 p.e Ñ="En cours", puis recopier cette MEFC sur les cellules de la colonne E
A+
bonjour AnonymousA
Disons que ce que je voulais faire était de, soit le faire par cellule avec
formule pour une copie incrémentée, soit sinon de le faire par macro. Si je
le fais par macro, le seule problème est que, selon les différents fichiers
qui auront cette macro, les cellules D considérées ne contiendront une
valeur que jusqu'à la cellule D12 , D20 ou peut-être D25 peut-être, mais
rarement plus. Ce qui complique un peu la programmation en VBA, vu mon
niveau balbutiant en la matière... C'est pourquoi j'essayais plutôt de
m'orienter sur une formule en MEFC !
Qu'en penses-tu ?
Merci
Antoine
N.B. Je ne serai pas derrière le PC de 15 h40 env. à 17 h 30 env...
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1135346403.830963.141950@g43g2000cwa.googlegroups.com...
Bonjour,
pourquoi pas tout simplement dans la MEFC de la cellule E1
p.e Ñ="En cours", puis recopier cette MEFC sur les cellules de la
colonne E
Disons que ce que je voulais faire était de, soit le faire par cellule avec formule pour une copie incrémentée, soit sinon de le faire par macro. Si je le fais par macro, le seule problème est que, selon les différents fichiers qui auront cette macro, les cellules D considérées ne contiendront une valeur que jusqu'à la cellule D12 , D20 ou peut-être D25 peut-être, mais rarement plus. Ce qui complique un peu la programmation en VBA, vu mon niveau balbutiant en la matière... C'est pourquoi j'essayais plutôt de m'orienter sur une formule en MEFC !
Qu'en penses-tu ?
Merci
Antoine
N.B. Je ne serai pas derrière le PC de 15 h40 env. à 17 h 30 env... "anonymousA" a écrit dans le message de news:
Bonjour,
pourquoi pas tout simplement dans la MEFC de la cellule E1 p.e Ñ="En cours", puis recopier cette MEFC sur les cellules de la colonne E
A+
anonymousA
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai compris que tu veux que toutes cellules de la colonne D qui vont de D1 à Dx , x étant le N° de ligne où apparait la dernière cellule non vide de la colonne D , répondent à une MFEC liée à la valeur dans les cellules contigues de la colonne E pour chacune de ces cellules de la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais si je veux que les cellules de la colonne D reçoivent les mêmes conditions de format ( donc de MEFC) que la cellule D1 p.e., j'écrirais avec une macro
With Range("D1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne D, je lui confère la même MEFC que la cellule D1.
Mais ce n'est peut-être pas ce que tu souhaitais.
A+
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai
compris que tu veux que toutes cellules de la colonne D qui vont de D1
à Dx , x étant le N° de ligne où apparait la dernière cellule non
vide de la colonne D , répondent à une MFEC liée à la valeur dans
les cellules contigues de la colonne E pour chacune de ces cellules de
la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais
si je veux que les cellules de la colonne D reçoivent les mêmes
conditions de format ( donc de MEFC) que la cellule D1 p.e.,
j'écrirais avec une macro
With Range("D1")
.Copy
.Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats
End With
Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne
D, je lui confère la même MEFC que la cellule D1.
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai compris que tu veux que toutes cellules de la colonne D qui vont de D1 à Dx , x étant le N° de ligne où apparait la dernière cellule non vide de la colonne D , répondent à une MFEC liée à la valeur dans les cellules contigues de la colonne E pour chacune de ces cellules de la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais si je veux que les cellules de la colonne D reçoivent les mêmes conditions de format ( donc de MEFC) que la cellule D1 p.e., j'écrirais avec une macro
With Range("D1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne D, je lui confère la même MEFC que la cellule D1.
Mais ce n'est peut-être pas ce que tu souhaitais.
A+
Antoine76
Je l'ai copié; mais en fait, il me fait une erreur d'exécution 1024 : "Erreur définie par l'application ou par l'objet" Peut-être cela est-il dû à la version Excel 2000 que j'ai ?
Mais, je peux appliquer contourner le problème avec la ligne : Selection.AutoFill Destination:=Range("E2:E200"), Type:=xlFillDefault la ligne 200 me laissant une marge suffisante...
Merci à toi
Antoine
"anonymousA" a écrit dans le message de news:
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai compris que tu veux que toutes cellules de la colonne D qui vont de D1 à Dx , x étant le N° de ligne où apparait la dernière cellule non vide de la colonne D , répondent à une MFEC liée à la valeur dans les cellules contigues de la colonne E pour chacune de ces cellules de la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais si je veux que les cellules de la colonne D reçoivent les mêmes conditions de format ( donc de MEFC) que la cellule D1 p.e., j'écrirais avec une macro
With Range("D1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne D, je lui confère la même MEFC que la cellule D1.
Mais ce n'est peut-être pas ce que tu souhaitais.
A+
Je l'ai copié; mais en fait, il me fait une erreur d'exécution 1024 :
"Erreur définie par l'application ou par l'objet"
Peut-être cela est-il dû à la version Excel 2000 que j'ai ?
Mais, je peux appliquer contourner le problème avec la ligne :
Selection.AutoFill Destination:=Range("E2:E200"), Type:=xlFillDefault
la ligne 200 me laissant une marge suffisante...
Merci à toi
Antoine
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1135349198.201004.216860@o13g2000cwo.googlegroups.com...
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai
compris que tu veux que toutes cellules de la colonne D qui vont de D1
à Dx , x étant le N° de ligne où apparait la dernière cellule non
vide de la colonne D , répondent à une MFEC liée à la valeur dans
les cellules contigues de la colonne E pour chacune de ces cellules de
la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais
si je veux que les cellules de la colonne D reçoivent les mêmes
conditions de format ( donc de MEFC) que la cellule D1 p.e.,
j'écrirais avec une macro
With Range("D1")
.Copy
.Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats
End With
Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne
D, je lui confère la même MEFC que la cellule D1.
Je l'ai copié; mais en fait, il me fait une erreur d'exécution 1024 : "Erreur définie par l'application ou par l'objet" Peut-être cela est-il dû à la version Excel 2000 que j'ai ?
Mais, je peux appliquer contourner le problème avec la ligne : Selection.AutoFill Destination:=Range("E2:E200"), Type:=xlFillDefault la ligne 200 me laissant une marge suffisante...
Merci à toi
Antoine
"anonymousA" a écrit dans le message de news:
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai compris que tu veux que toutes cellules de la colonne D qui vont de D1 à Dx , x étant le N° de ligne où apparait la dernière cellule non vide de la colonne D , répondent à une MFEC liée à la valeur dans les cellules contigues de la colonne E pour chacune de ces cellules de la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais si je veux que les cellules de la colonne D reçoivent les mêmes conditions de format ( donc de MEFC) que la cellule D1 p.e., j'écrirais avec une macro
With Range("D1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne D, je lui confère la même MEFC que la cellule D1.
Mais ce n'est peut-être pas ce que tu souhaitais.
A+
anonymousA
Erreur de la banque en votre faveur ce sont les MEFC de la colonne E que tu veux recopier.Je ne vois pas pourquoi ca se planterait
With Range("E1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
Ceci dit en fonction de ce que tu saouhaites, Autofill peut aussi fonctionner.
Joyeuses fêtes
A+
Je l'ai copié; mais en fait, il me fait une erreur d'exécution 1024 : "Erreur définie par l'application ou par l'objet" Peut-être cela est-il dû à la version Excel 2000 que j'ai ?
Mais, je peux appliquer contourner le problème avec la ligne : Selection.AutoFill Destination:=Range("E2:E200"), Type:=xlFillDefault la ligne 200 me laissant une marge suffisante...
Merci à toi
Antoine
"anonymousA" a écrit dans le message de news:
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai compris que tu veux que toutes cellules de la colonne D qui vont de D1 à Dx , x étant le N° de ligne où apparait la dernière cellule non vide de la colonne D , répondent à une MFEC liée à la valeur dans les cellules contigues de la colonne E pour chacune de ces cellules de la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais si je veux que les cellules de la colonne D reçoivent les mêmes conditions de format ( donc de MEFC) que la cellule D1 p.e., j'écrirais avec une macro
With Range("D1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne D, je lui confère la même MEFC que la cellule D1.
Mais ce n'est peut-être pas ce que tu souhaitais.
A+
Erreur de la banque en votre faveur
ce sont les MEFC de la colonne E que tu veux recopier.Je ne vois pas
pourquoi ca se planterait
With Range("E1")
.Copy
.Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats
End With
Application.CutCopyMode = False
Ceci dit en fonction de ce que tu saouhaites, Autofill peut aussi
fonctionner.
Joyeuses fêtes
A+
Je l'ai copié; mais en fait, il me fait une erreur d'exécution 1024 :
"Erreur définie par l'application ou par l'objet"
Peut-être cela est-il dû à la version Excel 2000 que j'ai ?
Mais, je peux appliquer contourner le problème avec la ligne :
Selection.AutoFill Destination:=Range("E2:E200"), Type:=xlFillDefault
la ligne 200 me laissant une marge suffisante...
Merci à toi
Antoine
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1135349198.201004.216860@o13g2000cwo.googlegroups.com...
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai
compris que tu veux que toutes cellules de la colonne D qui vont de D1
à Dx , x étant le N° de ligne où apparait la dernière cellule non
vide de la colonne D , répondent à une MFEC liée à la valeur dans
les cellules contigues de la colonne E pour chacune de ces cellules de
la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais
si je veux que les cellules de la colonne D reçoivent les mêmes
conditions de format ( donc de MEFC) que la cellule D1 p.e.,
j'écrirais avec une macro
With Range("D1")
.Copy
.Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats
End With
Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne
D, je lui confère la même MEFC que la cellule D1.
Erreur de la banque en votre faveur ce sont les MEFC de la colonne E que tu veux recopier.Je ne vois pas pourquoi ca se planterait
With Range("E1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
Ceci dit en fonction de ce que tu saouhaites, Autofill peut aussi fonctionner.
Joyeuses fêtes
A+
Je l'ai copié; mais en fait, il me fait une erreur d'exécution 1024 : "Erreur définie par l'application ou par l'objet" Peut-être cela est-il dû à la version Excel 2000 que j'ai ?
Mais, je peux appliquer contourner le problème avec la ligne : Selection.AutoFill Destination:=Range("E2:E200"), Type:=xlFillDefault la ligne 200 me laissant une marge suffisante...
Merci à toi
Antoine
"anonymousA" a écrit dans le message de news:
Je ne suis pas certain d'avoir bien compris tes explications. Moi, j'ai compris que tu veux que toutes cellules de la colonne D qui vont de D1 à Dx , x étant le N° de ligne où apparait la dernière cellule non vide de la colonne D , répondent à une MFEC liée à la valeur dans les cellules contigues de la colonne E pour chacune de ces cellules de la colonne D.
Donc, si je suis ce raisonnement, je n'ai guère besoin de macro. Mais si je veux que les cellules de la colonne D reçoivent les mêmes conditions de format ( donc de MEFC) que la cellule D1 p.e., j'écrirais avec une macro
With Range("D1") .Copy .Range("A2:A" & .Range("A65536").End(xlUp).Row).PasteSpecial xlFormats End With Application.CutCopyMode = False
ce faisant, quelle que soit la dernière cellule remplie de la colonne D, je lui confère la même MEFC que la cellule D1.
