> Tous les forums > Forum Bureautique
 Simplifier une macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
ruffian19
  Posté le 10/10/2014 @ 11:25 
Aller en bas de la page 
Petit astucien

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.

Publicité
ferrand
 Posté le 10/10/2014 à 14:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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 !

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

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

Sujets relatifs
Macro Excel 4
Macro...Protéger feuille
2 pages par feuille dans macro excel
erreur macro
Recopie cellule par macro
macro pour comparer 2 listes
lancer une macro à partir d'une première macro
Arréter puis relancer une macro là où je l'ai arrétée
Creation d' une boucle macro dans fichier EXCEL pour impression
Fonction Si ou Macro ?
Plus de sujets relatifs à Simplifier une macro
 > Tous les forums > Forum Bureautique