Discussion :

[jujbjh]

Bonjour, je dois résoudre un problème et la solution est dans les macros

le macro en dessous me donne les selections que j'ai besoin mais copie la formule alors que je voulais seulement la copie de la valeur.

j'ai essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1).value
 
  ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1)
  Selection.PasteSpecial Paste:=xlPasteValues

mais ca n'a pas marche.
En plus, je voudrais que les resultats soient copies dans la feuil2, cellues B1, B2, B3, B4.
Je vous remercie d'avance pour votre aide

Le macro est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
 
    ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=Range("Q4")
    ActiveCell.Offset(26, 6).Resize(1).Copy Destination:=Range("R4")
    ActiveCell.Offset(40, 6).Resize(1).Copy Destination:=Range("S4")
    ActiveCell.Offset(54, 6).Resize(1).Copy Destination:=Range("T4")
 
End Sub

[Docmarti]

Bonjour

Si tu ne veux que la valeur, tu pourrais simplement utiliser le signe =

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil2").Range("Q4").Value = ActiveCell.Offset(12, 6).Resize(1).Value

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1).value
 
ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1)
Selection.PasteSpecial Paste:=xlPasteValues

Dans ce code, tu fais trois copie vers la même destination.

La première ligne est fausse : la destination de la méthode copy appliquée à Range doit être un Range et non pas une valeur.

Si l'on compte faire un PasteSpecial après un Copy, il ne faut pas donner de destination après Copy.

De plus, si tu veux copier dans la cellule ActiveCell.Offset(6, 1), il ne faut pas mettre Selection comme parent de ton PasteSpecial, à moins d'avoir sélectionner cette cellule auparavant ce que ton code ne fait pas.

La bonne syntaxe est donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveCell.Offset(12, 6).Resize(1).Copy 
ActiveCell.Offset(6, 1).PasteSpecial Paste:=xlPasteValues

Ou bien, plus simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Offset(6, 1).Value = ActiveCell.Offset(12, 6).Resize(1).Value

En plus, je voudrais que les resultats soient copies dans la feuil2

Si tu veux accéder à la cellule d'un autre onglet (par exemple "feuil2"), il faut précéder ta référence Range de Worksheets("feuil2")

Regarde dans l'aide intégrée à VBA les explications sur les objets suivants : Range, Worksheet, Worksheets.

[jujbjh]

Bonjour,
je tiens a remercier beaucoup ceux qui ont donnes des réponses a ma question.
Les deux codes ont bien fonctionnes et je vous en suis très reconnaissant.