Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel selection à partir de ...

selection à partir de ...

4 réponses
Avatar
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"=3D"C1"+7

avez vous une id=E9e =E0 me proposer ?

cordialement
YB
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" 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


Avatar
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



Avatar
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
Avatar
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