Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro répétitive

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion verrnums
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

verrnums

Guest
Bonsoir

je recherche une macro qui répete un

Range("xx").Select
ActiveCell.FormulaR1C1 = "x"

sur une plage de cellule mais aussi sur toutes les onglets d'un classeur voici un fichier exemple de ce que je recherche

voila

merci pour votre aide

julien
 

Pièces jointes

Trier par date Trier par votes
Re : macro répétitive

Bonsoir verrnums
Si j'ai bien compris :
Code: 
[COLOR="DarkSlateGray"][B]Sub Macro2()
Dim s As Worksheet, i As Long
   Application.ScreenUpdating = False
   For Each s In ActiveWorkbook.Sheets
      For i = 1 To 24
         With s.Cells(i + 1, 1)
            .FormulaR1C1 = "" & i & ""
            .Offset(0, 1).FormulaR1C1 = "=""'""&RC[-1]"
            .Offset(0, 2).FormulaR1C1 = "'" & i & ""
         End With
      Next i
   Next s
   Application.ScreenUpdating = True
End Sub[/B][/COLOR]
ROGER2327
#2131
 
Vote positif 0 Vote négatif
Re : macro répétitive

Bonsoir verrnums, Roger 🙂

Peut-être ça aussi :

Code: 
Sub Test()
Dim ws As Worksheet
For Each ws In Worksheets
  With ws
    .Range("A2") = 1
    .Range("A2:A24").DataSeries
    .Range("B2:B24").FormulaR1C1 = "=""'""&RC[-1]"
    .Range("C2:C24") = .Range("B2:B24").Value
  End With
Next
End Sub

A+
 
Vote positif 0 Vote négatif
Re : macro répétitive

bonsoir

Merci à Job75 et ROGER2327

Cependant ce n'est pas tout à fait ce que je voulais faire, je veux juste faire une validation en sélectionnant la case et en faisant un entrée quelque soit la valeur saisie dans la case et bien sur je souhaite que cette action soit faite sur toute les case de l'onglet

je vous mets ce que pense correspondre à ce que je souhaite

Sub Test1() /ok
Dim ws As Worksheet /ok
For Each ws In Worksheets /ok
With ws /ok
.Range("A2😀15").Select /selection d'une plage de cellule
ActiveCell.FormulaR1C1 = "" / validation chaque céllule de la plage

/ y laissant ce que est saisie dedans
End With /ok
Next /ok
End Sub /ok


voila

j'espère ne pas être trop embêtant

merci à vous

julien
 
Vote positif 0 Vote négatif
Re : macro répétitive

Re...
Je crois bien n'avoir rien compris. A tout hasard :
Code: 
[COLOR="DarkSlateGray"][B]Sub Test()
Dim ws As Worksheet
   For Each ws In Worksheets
      ws.Range("D2:D24") = ws.Range("D2:D24").Value
   Next
End Sub[/B][/COLOR]
ROGER2327
#2145
 
Vote positif 0 Vote négatif
Re : macro répétitive

Bonsoir verrnums, Roger,

Il me semble verrnums que vous n'avez pas compris qu'en VBA il est pratiquement toujours inutile d'utiliser Select, même pour "valider" une entrée.

C'est un B A BA en programmation 🙂

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
202
sylvanu
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
389
AlineJ
A
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
691
job75
P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
192
philmaure
P
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
250
Didierpasdoué
D
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
258
Atiom
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
399
mapomme
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
242
vazvaz
V
B
  • Question Question
XL 2016 Macro "Double-clic + Entrée"
2
Réponses
16
Affichages
402
job75
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
367
dysorthographie
D
  • Question Question
XL 2021 Récap excel toutes versions si possible
Réponses
12
Affichages
352
job75
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
272
LaurentVasseur
L
L
  • Question Question
Microsoft 365 macro trop longue a executer
Réponses
10
Affichages
278
patricktoulon
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
598
TooFatBoy
G
  • Question Question
XL pour MAC Ligne suivante
Réponses
4
Affichages
603
Gilles64
G
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
764
Nounours4173
N
D
  • Question Question
XL 2021 Formule avec plusieurs variables
2
Réponses
15
Affichages
1 K
sylvanu
J
  • Question Question
Microsoft 365 Mini macro en VBA
Réponses
1
Affichages
313
jderoque
J
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
357
Raynaud.JF
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…