macro répétitive

[verrnums]

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

 

[ROGER2327]

Re : macro répétitive

Bonsoir verrnums

Si j'ai bien compris :

[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

 

[job75]

Re : macro répétitive

Bonsoir verrnums, Roger 🙂

Peut-être ça aussi :

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+

 

[ROGER2327]

Re : macro répétitive

Bonsoir job75

Évidemment !
C'est bien mieux. Bravo !​

ROGER2327
#2133

 

[verrnums]

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

 

[ROGER2327]

Re : macro répétitive

Re...

Je crois bien n'avoir rien compris. A tout hasard :

[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

 

[job75]

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+