Bonjour
J'ai des tableux de taille variable
je voudrais recopier 2 cellules de la colonne A sur la colonne D
je connais leur ligne par des valeurs obtenues par formules en P1 et P2
Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2
A(p1):A(p2). select
selection.copy
D(p1):d(p2).select
ActiveSheet.Paste
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
Garette
Bonjour,
Sub Test1() Cells(Range("P1").Value, 4).Value = Cells(Range("P1").Value, 1).Value Cells(Range("P2").Value, 4).Value = Cells(Range("P2").Value, 1).Value End Sub
ou
Sub Test2() Cells(Range("P1").Value, 1).Copy (Cells(Range("P1").Value, 4)) Cells(Range("P2").Value, 1).Copy (Cells(Range("P2").Value, 4)) End Sub
ou
Sub Test3() Cells([P1], 1).Copy (Cells([P1], 4)) Cells([P2], 1).Copy (Cells([P2], 4)) End Sub
"Patcas" a écrit dans le message de news: rEcLh.67$
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste
j'ai essayé plein de façon et ça donne rien
Merci de votre aide
Patrice C.
Bonjour,
Sub Test1()
Cells(Range("P1").Value, 4).Value = Cells(Range("P1").Value, 1).Value
Cells(Range("P2").Value, 4).Value = Cells(Range("P2").Value, 1).Value
End Sub
ou
Sub Test2()
Cells(Range("P1").Value, 1).Copy (Cells(Range("P1").Value, 4))
Cells(Range("P2").Value, 1).Copy (Cells(Range("P2").Value, 4))
End Sub
ou
Sub Test3()
Cells([P1], 1).Copy (Cells([P1], 4))
Cells([P2], 1).Copy (Cells([P2], 4))
End Sub
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news: rEcLh.67$Zp1.151@nntpserver.swip.net...
Bonjour
J'ai des tableux de taille variable
je voudrais recopier 2 cellules de la colonne A sur la colonne D
je connais leur ligne par des valeurs obtenues par formules en P1 et P2
Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2
A(p1):A(p2). select
selection.copy
D(p1):d(p2).select
ActiveSheet.Paste
Sub Test1() Cells(Range("P1").Value, 4).Value = Cells(Range("P1").Value, 1).Value Cells(Range("P2").Value, 4).Value = Cells(Range("P2").Value, 1).Value End Sub
ou
Sub Test2() Cells(Range("P1").Value, 1).Copy (Cells(Range("P1").Value, 4)) Cells(Range("P2").Value, 1).Copy (Cells(Range("P2").Value, 4)) End Sub
ou
Sub Test3() Cells([P1], 1).Copy (Cells([P1], 4)) Cells([P2], 1).Copy (Cells([P2], 4)) End Sub
"Patcas" a écrit dans le message de news: rEcLh.67$
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste
j'ai essayé plein de façon et ça donne rien
Merci de votre aide
Patrice C.
JB
Bonjour,
P1 = 10 Cells(P1, 1).Copy Cells(P1, 4)
JB
On 18 mar, 16:11, "Patcas" wrote:
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste
j'ai essayé plein de façon et ça donne rien
Merci de votre aide
Patrice C.
Bonjour,
P1 = 10
Cells(P1, 1).Copy Cells(P1, 4)
JB
On 18 mar, 16:11, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Bonjour
J'ai des tableux de taille variable
je voudrais recopier 2 cellules de la colonne A sur la colonne D
je connais leur ligne par des valeurs obtenues par formules en P1 et P2
Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2
A(p1):A(p2). select
selection.copy
D(p1):d(p2).select
ActiveSheet.Paste
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste
j'ai essayé plein de façon et ça donne rien
Merci de votre aide
Patrice C.
Patcas
MERCI c'est tout OK
"Garette" a écrit dans le message de news: u4U%
Bonjour,
Sub Test1() Cells(Range("P1").Value, 4).Value = Cells(Range("P1").Value, 1).Value Cells(Range("P2").Value, 4).Value = Cells(Range("P2").Value, 1).Value End Sub
ou
Sub Test2() Cells(Range("P1").Value, 1).Copy (Cells(Range("P1").Value, 4)) Cells(Range("P2").Value, 1).Copy (Cells(Range("P2").Value, 4)) End Sub
ou
Sub Test3() Cells([P1], 1).Copy (Cells([P1], 4)) Cells([P2], 1).Copy (Cells([P2], 4)) End Sub
"Patcas" a écrit dans le message de news: rEcLh.67$
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste
j'ai essayé plein de façon et ça donne rien
Merci de votre aide
Patrice C.
MERCI c'est tout OK
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
u4U%23sFXaHHA.1400@TK2MSFTNGP06.phx.gbl...
Bonjour,
Sub Test1()
Cells(Range("P1").Value, 4).Value = Cells(Range("P1").Value, 1).Value
Cells(Range("P2").Value, 4).Value = Cells(Range("P2").Value, 1).Value
End Sub
ou
Sub Test2()
Cells(Range("P1").Value, 1).Copy (Cells(Range("P1").Value, 4))
Cells(Range("P2").Value, 1).Copy (Cells(Range("P2").Value, 4))
End Sub
ou
Sub Test3()
Cells([P1], 1).Copy (Cells([P1], 4))
Cells([P2], 1).Copy (Cells([P2], 4))
End Sub
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news: rEcLh.67$Zp1.151@nntpserver.swip.net...
Bonjour
J'ai des tableux de taille variable
je voudrais recopier 2 cellules de la colonne A sur la colonne D
je connais leur ligne par des valeurs obtenues par formules en P1 et P2
Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2
A(p1):A(p2). select
selection.copy
D(p1):d(p2).select
ActiveSheet.Paste
Sub Test1() Cells(Range("P1").Value, 4).Value = Cells(Range("P1").Value, 1).Value Cells(Range("P2").Value, 4).Value = Cells(Range("P2").Value, 1).Value End Sub
ou
Sub Test2() Cells(Range("P1").Value, 1).Copy (Cells(Range("P1").Value, 4)) Cells(Range("P2").Value, 1).Copy (Cells(Range("P2").Value, 4)) End Sub
ou
Sub Test3() Cells([P1], 1).Copy (Cells([P1], 4)) Cells([P2], 1).Copy (Cells([P2], 4)) End Sub
"Patcas" a écrit dans le message de news: rEcLh.67$
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste
j'ai essayé plein de façon et ça donne rien
Merci de votre aide
Patrice C.
Patcas
Merci
"JB" a écrit dans le message de news:
Bonjour,
P1 = 10 Cells(P1, 1).Copy Cells(P1, 4)
JB
On 18 mar, 16:11, "Patcas" wrote:
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste
j'ai essayé plein de façon et ça donne rien
Merci de votre aide
Patrice C.
Merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1174231404.013921.245270@l75g2000hse.googlegroups.com...
Bonjour,
P1 = 10
Cells(P1, 1).Copy Cells(P1, 4)
JB
On 18 mar, 16:11, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Bonjour
J'ai des tableux de taille variable
je voudrais recopier 2 cellules de la colonne A sur la colonne D
je connais leur ligne par des valeurs obtenues par formules en P1 et P2
Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2
A(p1):A(p2). select
selection.copy
D(p1):d(p2).select
ActiveSheet.Paste
Bonjour J'ai des tableux de taille variable je voudrais recopier 2 cellules de la colonne A sur la colonne D je connais leur ligne par des valeurs obtenues par formules en P1 et P2 Comment ecrire quelque chose du genre
si z = valeur P1 et y = valeur P2 A(p1):A(p2). select selection.copy D(p1):d(p2).select ActiveSheet.Paste