Simplifier une macro

ruffian19

Posté le 10/10/2014 @ 11:25

Bonjour,

Peut-on simplifier cette macro Sub EcrireP ()

Range ("G3").Select

ActiveCell. FormulaR1C1 = "P"

Range ("G4").Select

ActiveCell.FormulaR1C1 = "P"

End Sub

Parce que cela part de G3 Jusqu'à G30 et de R4 jusqu'à R29.

Merci de m'aider.

ferrand

Posté le 10/10/2014 à 14:59

Bonjour,

Tu peux faire ceci :

Sub EcrireP()
Dim c As Range
For Each c In Application.Union(Range("G3:G30"), Range("R4:R29"))
c.Value = "P"
Next c
End Sub

ruffian19

Posté le 10/10/2014 à 17:36

Merci Ferrand oui c'est encore moi, j'ai essayé ça marche très bien encore merci.

Mytå

Posté le 10/10/2014 à 21:29

Salut le Forum

Une seule ligne de code suffit : Range("G3:G30,R4:R29").Value = "P"

Mytå

Modifié par Mytå le 10/10/2014 21:30

ferrand

Posté le 10/10/2014 à 22:25

Mytå a écrit :

Salut le Forum

Une seule ligne de code suffit : Range("G3:G30,R4:R29").Value = "P"

Mytå

C'est ce que j'avais pensé au départ, mais le résultat pas au rendez-vous, pourquoi j'ai contourné...

Mais je comprends maintenant, j'avais mis chacune des plages entre guillemets !

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

119,99 €

Ecran 23,8 pouces Acer QG241 (1920x1080, 1ms, FreeSync) à 119,99 €
Valable jusqu'au 26 Janvier

Darty fait une promotion sur l'écran 23,8 pouces Acer QG241 qui passe à 119,99 € alors qu'on le trouve ailleurs à partir de 140 €. Cet écran dédié aux joueurs dispose d'une dalle VA Full HD de 1920x1080 pixels. Grâce à sa compatibilité Freesync (75 Hz) et son temps de réponse rapide de 1 ms, ce moniteur Acer offre une excellente fluidité d'affichage. Interfaces : HDMI, VGA, Sortie de ligne audio.

> Voir l'offre

291,96 €

Ecran PC 32 pouces Samsung U32J592 (4K, Freesync) à 291,96 € livré
Valable jusqu'au 27 Janvier

Amazon Espagne fait une promotion sur l'écran PC Samsung 32 pouces U32J592 à 277,68 €. Comptez 14,28 € pour la livraison en France soit un total de 291,96 € livré alors qu'on le trouve ailleurs à partir de 340 €. Cet écran de 32 pouces offre une définition 4K de 3840x2160 pixels et est compatible FreeSync.

Vous pouvez utiliser votre compte Amazon France sur Amazon Espagne et il n'y a pas de douane.

> Voir l'offre

58,99 €

SSD PNY XLR8 CS3030 500 Go (NMVe M.2, 3500 Mo/s) à 58,99 €
Valable jusqu'au 26 Janvier

Amazon fait une promotion sur le SSD PNY XLR8 CS3030 500 Go (NMVe M.2) qui passe à 58,99 € alors qu'on le trouve ailleurs à partir de 80 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 3500 Mo/s en lecture séquentielle et jusqu’à 2000 Mo/s en écriture séquentielle.

Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans.

> Voir l'offre