'-------- Sub jj() If [e1] = "" And [a1] = [c1] + 7 Then [a1:b4].Copy [e1] End Sub '----------
-- Salutations JJ
"lauxeti" a écrit dans le message de news:
Bonjour,
Je souhaiterais, par vba,
Calcul A B C D E F 1 14/04/2008 07/04/2008 2 96.57% 0.23% 96.54% 0.26% 3 90.32% -1.02% 90.25% -0.95% 4 99.24% -0.04% 99.24% 0.01%
selectionner ("A1:B4") , et copier cette selection en colonne C +2 (colonne E ) en E1 si "E1" est vide et si "A1"="C1"+7
avez vous une idée à me proposer ?
cordialement YB
lauxeti
On 18 avr, 16:13, "Jacky" wrote:
Bonjour,
avez vous une idée à me proposer ?
'-------- Sub jj() If [e1] = "" And [a1] = [c1] + 7 Then [a1:b4].Copy [e1] End Sub '----------
-- Salutations JJ
"lauxeti" a écrit dans le message de news:
Bonjour,
Je souhaiterais, par vba,
Calcul A B C D E F 1 14/04/2008 07/04/2008 2 96.57% 0.23% 96.54% 0.26% 3 90.32% -1.02% 90.25% -0.95% 4 99.24% -0.04% 99.24% 0.01%
selectionner ("A1:B4") , et copier cette selection en colonne C +2 (colonne E ) en E1 si "E1" est vide et si "A1"="C1"+7
avez vous une idée à me proposer ?
cordialement YB
Merci pour cette reponse , en fait il me manque quelque chose : le decalage de c en c+2 comment l'inclure? j'ai donné colonne E dans l'exemple mais je voudrais determiner 1) par rapport à A1 la premiere colonne vide à droite (X) 2) verifier que "A1" .value = colonne(X-2).value +7 et si OK selectionner "X1" pour effectuer la copie de "A1:B4" merci pour vos suggestions
YB
On 18 avr, 16:13, "Jacky" <Dup...@marcel.fr> wrote:
Bonjour,
avez vous une idée à me proposer ?
'--------
Sub jj()
If [e1] = "" And [a1] = [c1] + 7 Then [a1:b4].Copy [e1]
End Sub
'----------
--
Salutations
JJ
"lauxeti" <ybru...@wanadoo.fr> a écrit dans le message de news:
5f0faa1d-a585-4ad1-8318-fd51e9cbe...@2g2000hsn.googlegroups.com...
Bonjour,
Je souhaiterais, par vba,
Calcul
A B C D
E F
1 14/04/2008 07/04/2008
2 96.57% 0.23% 96.54% 0.26%
3 90.32% -1.02% 90.25% -0.95%
4 99.24% -0.04% 99.24% 0.01%
selectionner ("A1:B4") , et copier cette selection en colonne C +2
(colonne E ) en E1 si "E1" est vide et si "A1"="C1"+7
avez vous une idée à me proposer ?
cordialement
YB
Merci pour cette reponse , en fait il me manque quelque chose :
le decalage de c en c+2 comment l'inclure?
j'ai donné colonne E dans l'exemple mais je voudrais determiner
1) par rapport à A1 la premiere colonne vide à droite (X)
2) verifier que "A1" .value = colonne(X-2).value +7
et si OK selectionner "X1" pour effectuer la copie de "A1:B4"
merci pour vos suggestions
'-------- Sub jj() If [e1] = "" And [a1] = [c1] + 7 Then [a1:b4].Copy [e1] End Sub '----------
-- Salutations JJ
"lauxeti" a écrit dans le message de news:
Bonjour,
Je souhaiterais, par vba,
Calcul A B C D E F 1 14/04/2008 07/04/2008 2 96.57% 0.23% 96.54% 0.26% 3 90.32% -1.02% 90.25% -0.95% 4 99.24% -0.04% 99.24% 0.01%
selectionner ("A1:B4") , et copier cette selection en colonne C +2 (colonne E ) en E1 si "E1" est vide et si "A1"="C1"+7
avez vous une idée à me proposer ?
cordialement YB
Merci pour cette reponse , en fait il me manque quelque chose : le decalage de c en c+2 comment l'inclure? j'ai donné colonne E dans l'exemple mais je voudrais determiner 1) par rapport à A1 la premiere colonne vide à droite (X) 2) verifier que "A1" .value = colonne(X-2).value +7 et si OK selectionner "X1" pour effectuer la copie de "A1:B4" merci pour vos suggestions
YB
Jacky
Re... Si j'ai bien compris.... '------------ Sub jj() derCol = [iv1].End(1).Column + 1 If [a1] = Cells(1, derCol - 2) + 7 Then [a1:b4].Copy Cells(1, derCol) End Sub '-------------- -- Salutations JJ
Merci pour cette reponse , en fait il me manque quelque chose : le decalage de c en c+2 comment l'inclure? j'ai donné colonne E dans l'exemple mais je voudrais determiner 1) par rapport à A1 la premiere colonne vide à droite (X) 2) verifier que "A1" .value = colonne(X-2).value +7 et si OK selectionner "X1" pour effectuer la copie de "A1:B4" merci pour vos suggestions
YB
Re...
Si j'ai bien compris....
'------------
Sub jj()
derCol = [iv1].End(1).Column + 1
If [a1] = Cells(1, derCol - 2) + 7 Then [a1:b4].Copy Cells(1, derCol)
End Sub
'--------------
--
Salutations
JJ
Merci pour cette reponse , en fait il me manque quelque chose :
le decalage de c en c+2 comment l'inclure?
j'ai donné colonne E dans l'exemple mais je voudrais determiner
1) par rapport à A1 la premiere colonne vide à droite (X)
2) verifier que "A1" .value = colonne(X-2).value +7
et si OK selectionner "X1" pour effectuer la copie de "A1:B4"
merci pour vos suggestions
Re... Si j'ai bien compris.... '------------ Sub jj() derCol = [iv1].End(1).Column + 1 If [a1] = Cells(1, derCol - 2) + 7 Then [a1:b4].Copy Cells(1, derCol) End Sub '-------------- -- Salutations JJ
Merci pour cette reponse , en fait il me manque quelque chose : le decalage de c en c+2 comment l'inclure? j'ai donné colonne E dans l'exemple mais je voudrais determiner 1) par rapport à A1 la premiere colonne vide à droite (X) 2) verifier que "A1" .value = colonne(X-2).value +7 et si OK selectionner "X1" pour effectuer la copie de "A1:B4" merci pour vos suggestions
YB
lauxeti
On 19 avr, 08:14, "Jacky" wrote:
Re... Si j'ai bien compris.... '------------ Sub jj() derCol = [iv1].End(1).Column + 1 If [a1] = Cells(1, derCol - 2) + 7 Then [a1:b4].Copy Cells(1, derCol) End Sub '-------------- -- Salutations JJ
Merci pour cette reponse , en fait il me manque quelque chose : le decalage de c en c+2 comment l'inclure? j'ai donné colonne E dans l'exemple mais je voudrais determiner 1) par rapport à A1 la premiere colonne vide à droite (X) 2) verifier que "A1" .value = colonne(X-2).value +7 et si OK selectionner "X1" pour effectuer la copie de "A1:B4" merci pour vos suggestions
YB
Merci c'est exactement cela que je cherchais Cordialement
YB
On 19 avr, 08:14, "Jacky" <Dup...@marcel.fr> wrote:
Re...
Si j'ai bien compris....
'------------
Sub jj()
derCol = [iv1].End(1).Column + 1
If [a1] = Cells(1, derCol - 2) + 7 Then [a1:b4].Copy Cells(1, derCol)
End Sub
'--------------
--
Salutations
JJ
Merci pour cette reponse , en fait il me manque quelque chose :
le decalage de c en c+2 comment l'inclure?
j'ai donné colonne E dans l'exemple mais je voudrais determiner
1) par rapport à A1 la premiere colonne vide à droite (X)
2) verifier que "A1" .value = colonne(X-2).value +7
et si OK selectionner "X1" pour effectuer la copie de "A1:B4"
merci pour vos suggestions
YB
Merci c'est exactement cela que je cherchais
Cordialement
Re... Si j'ai bien compris.... '------------ Sub jj() derCol = [iv1].End(1).Column + 1 If [a1] = Cells(1, derCol - 2) + 7 Then [a1:b4].Copy Cells(1, derCol) End Sub '-------------- -- Salutations JJ
Merci pour cette reponse , en fait il me manque quelque chose : le decalage de c en c+2 comment l'inclure? j'ai donné colonne E dans l'exemple mais je voudrais determiner 1) par rapport à A1 la premiere colonne vide à droite (X) 2) verifier que "A1" .value = colonne(X-2).value +7 et si OK selectionner "X1" pour effectuer la copie de "A1:B4" merci pour vos suggestions
YB
Merci c'est exactement cela que je cherchais Cordialement