B2=B3

[Didier]

Bonjour le forum
Voià on m'a demandé à ce que l'orque l'on tape s4 en B2
il faut afficher 1:00 en b3 et ce du 1' au 30 du mois en cours
comme il faut additionner le tout je me suis servie de cette fonction

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b2").Value = "s4" Then Range("b3") = "1:00"
ça marche mais y aurait-il un moyen d'eviter de taper 30 fois la ligne if range
ps(je ne sais pas du tout à quoi ça va servir)

Si quelqu'un connait un truc ?
Bonne journée à tous et toutes
A plus tard
Didier

 

[Jean-Marie]

Bonjour didier,
il faut réaliser une boucle, pour la déclarer il faut la placer après Dim et lui donner un type Integer, Long

Dim I as Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b2").Value = "s4" Then
for I = 3 to 33
Worksheets("Sheet1").Cells(I, 2)= "1:00"
next I
End if
End Sub

 

[Jean-Marie]

J'ai cliqué par mégarde sur le bouton "envoyer".

Je ne connais pas grand chose de ton projet. Mais si sa s'arrête à mettre dans les cellules de B3:B33 une heure si en b2 tu saisi s4. Tu n'as pas besoin d'une macro pour le faire.
La fonction =si(B$2="s4";1/24;""), mettre cette formule dans la cellule B3 puis par glisser déposer sur les autres lignes, tu auras la même chose.

@+jean-Marie

 

[Didier]

Bonjour Jean-marie
Je vais essayer la 1' solution , avec la deuxième ce n'est pas possible car la personne qui m'a demandé ce truc veut pouvoir compter les heures et je ne sais tourjours pas à quoi ça va lui servir ?
Merci pour la boucle je ne connait pas encore cette fonction
A plus tard
Didier

 

[Didier]

Désolé Jean marie ça ne marche pas à la ligne worksheets
Merci quand même
A plus
Didier