recopier cellule toujours differentes

Le
Patcas
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.
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
Garette
Le #4324991
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" 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
Le #4324981
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.


Patcas
Le #4324921
MERCI c'est tout OK

"Garette" 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" 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
Le #4324911
Merci


"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.


Publicité
Poster une réponse
Anonyme