Remplacement formule VBA

Résolu/Fermé
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 - 11 févr. 2010 à 13:52
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 - 11 févr. 2010 à 14:10
Bonjour, est ce que je peux remplacer mon c/c par une formule du type range("quelque chose").value=range("autrechose").value dans cette macro

Range("C1:N31").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste

pour donner quelque chose comme ca ?
Sheets("P1").Range("N35").Value = Sheets("Stats").Range("B15").Value

Merci
A voir également:

4 réponses

enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
11 févr. 2010 à 14:10
C'est bon, j'ai tout simplement essayer ca

Sheets("P1").Range("B1").Value = Sheets("P1").Range("C1:N31").Value

et ca marche. Ca me parassait trop simple mais non, merci.
1
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
11 févr. 2010 à 13:58
Bonjour,
As tu essayé?
Si oui : cela fonctionne?
Si oui : pourquoi poser la question?
Si non : Ou cela bugge t'il?
Si non : pourquoi n'essaye tu pas?
0
enark78 Messages postés 417 Date d'inscription mardi 2 février 2010 Statut Membre Dernière intervention 12 juillet 2012 17
11 févr. 2010 à 14:02
Je suis dans le cas du "non". Je n'ai pas essayé car je ne vois pas comment adapter la synthaxe pour selectionner plusieurs lignes et colonnes.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
11 févr. 2010 à 14:09
Alors essaye quelque chose comme ceci (à adapter à ton cas bien sur) :

Sheets("P1").Range("A1:N35").Value = Sheets("Stats").Range("B1:O35").Value 

0