selection à partir de ...

Le
lauxeti
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
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
Jacky
Le #5460721
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"
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
Le #5460201
On 18 avr, 16:13, "Jacky"
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"
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
Le #5460141
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
Le #5460091
On 19 avr, 08:14, "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


Merci c'est exactement cela que je cherchais
Cordialement

YB

Publicité
Poster une réponse
Anonyme