activecell 2 feuilles

[gscv]

bonjour,

comme je sais que vous allez me demander un fichier exemple (je le met en pieces jointes)

voila j'ai fait une mini micro macro (Control + i) qui demande un texte

puis l'insert dans la cellule active

jusqu'a la rien de sorcier puisque jy suis arrivé lol

mais je souhaiterais qui place le texte egalement au meme endroit en page 02

exemple :

cellule B15 de la page 01 active / il place bien le texte en B15 / mais je souhaite que le texte se mette egalement en B15 de la Page 02

merci

j'espere etre claire

merci par avance de votre efficacité

 

[Dranreb]

Bonsoir.
Ajoutez cette instruction :

Feuil2.Cells(ActiveCell.Row, ActiveCell.Column).Value = titi

 

[ROGER2327]

Bonsoir gscv.

Au choix :​

Option Explicit

Sub toto()
Dim titi$
  titi = InputBox("text", "test")
  ActiveCell.Value = titi
  Feuil2.Range(ActiveCell.Address).Value = titi
End Sub

Sub tata()
Dim titi$
  titi = InputBox("text", "test")
  ActiveCell.Value = titi
  Worksheets("PAGE 02").Range(ActiveCell.Address).Value = titi
End Sub

Sub tutu()
Dim titi$
  titi = InputBox("text", "test")
  With ActiveCell
    .Value = titi
    Worksheets("PAGE 02").Range(.Address).Value = titi
  End With
End Sub

et probablement bien d'autres choses encore...​

ℝOGER2327
#8518

Samedi 28 Pédale 144 (Dédicace du Tripode - Vacuation)
2 Germinal An CCXXV, 9,6742h - platane
2017-W12-3T23:13:05Z