Si la cellule active fond jaune sinon blac..

[Archimed]

bonsoir
j'aimerais écrire un code en VBA << si la cellule est active sa couleur de fond deviens jaune sinon blanche>> mais je plante !!!
quelqu'un pourrais m'aider pour ça . merci Archi.

 

[Compte Supprimé 979]

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+

 

[Archimed]

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

 

[pascal21]

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

 

[Excel-lent]

Re : cellule a1 = onglet EN VBA

Bonsoir Archimed,

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

Voici une solution :

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

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