Si la cellule active fond jaune sinon blac..

C

Compte Supprimé 979

Guest

• 18 Juin 2008

• #2

Re : Si la cellule active fond jaune sinon blac..

Salut Archimed,

Pas aussi simple qu'il n'y paraît 😉

Voilà un fichier avec un petit bout de code que j'espère te conviendra

A+

 

Pièces jointes

• Archimed_Colorier Cellule Active.xls

  28 KB · Affichages: 143

Vote positif 0 Vote négatif

A

Archimed

Guest

• 4 Mars 2009

• #3

cellule a1 = onglet EN VBA

Bonsoir;
quelqu'un peut-il m'aider à résoudre ce petit problème en VBA:
rajouter une instruction a ce code pour obtenir ma cellule a1 = onglet

Sub CopieBulletin()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Elève").Copy After:=Sheets(i+1)
ActiveSheet.Name = "Elève " & i
Next i
End Sub
merci
Archi

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 4 Mars 2009

• #4

Re : Si la cellule active fond jaune sinon blac..

bonsoir archimed
tu aurais du recréer un autre post plutôt que de rajouter une autre question
et en passant, Bruno attends toujours de savoir si la solution qu'il t'as proposée te convient ou pas
un ptit merci lui aurait surement fait plaisir

 

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 4 Mars 2009

• #5

Re : cellule a1 = onglet EN VBA

Bonsoir Archimed,

Archimed à dit:

une instruction (...) pour obtenir ma cellule a1 = onglet

Cliquez pour agrandir...

Voici une solution :

Code:

Range("A1") = ActiveSheet.Name

Sinon, si tu pouvais présenter ton code de manière plus sympa, tu y gagneras beaucoup en lisibilité et en compréhension 😉

Exemple de présentation

Code:

Sub CopieBulletin()

Dim i, z
z = InputBox("Nombre de copies ", "Copie")

  For i = 1 To z
      Sheets("Elève").Copy After:=Sheets(i+1)
      ActiveSheet.Name = "Elève " & i
      [COLOR="Blue"]Range("A1") = ActiveSheet.Name[/COLOR]
  Next i

End Sub

Bonne soirée

 

Dernière édition: 4 Mars 2009

Vote positif 0 Vote négatif