Modifier code VBA

yannec -  
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   -

Bonjour, yannec

***@***

'Veuillez ajouter une routine SVP à ce code pour que les 10 premières saisies la police soit en bleu.les 10 suivants (21 à 30) en rouge et le reste en noir. merci

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "epargne"
If Target.Count <> 1 Then Exit Sub

If Target.Address = "$C$1" Then
Set valeurs = Union(Range("A3:A27"), Range("D3:D27"), Range("G3:G27"), Range("J3:J27"), Range("M3:M27"), Range("P3:P27"), Range("S3:S27"), Range("V3:V27"), Range("Y3:Y27"), Range("AB3:AB27"))
For Each cel In valeurs
If cel.Value = Target.Value Then
ActiveWindow.ScrollRow = cel.Row
ActiveWindow.ScrollColumn = cel.Column
cel.Offset(0, 1).Select
Exit Sub
End If
Next
End If
Set casiers = Union(Range("B3:B27"), Range("E3:E27"), Range("H3:H27"), Range("K3:K27"), Range("N3:N27"), Range("Q3:Q27"), Range("T3:T27"), Range("W3:W27"), Range("Z3:Z27"), Range("AC3:AC27"))
If Not Intersect(casiers, Target) Is Nothing Then
Range("C1") = ""
Range("A1").Select
ActiveWindow.ScrollRow = Selection.Row
ActiveWindow.ScrollColumn = Selection.Column
Range("C1").Select
Set lignech = Sheets("Versements").Columns("e").Find(Target.Offset(0, -1), LookIn:=xlValues, lookat:=xlWhole)
For n = 6 To 17
If Sheets("Versements").Cells(3, n) = CDate("01/" & Month(Date) & "/" & Year(Date)) Then 'Month(Date) + 1 erreur ?
col = n
End If
Next
If Not lignech Is Nothing Then
If Target.Value <> "" Then
Sheets("versements").Unprotect "epargne"
Sheets("Versements").Cells(lignech.Row, col) = Target.Value
End If
End If


End If
End Sub


Windows / Firefox 109.0

A voir également:

2 réponses

Réponse 1 / 2
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 

Bonjour,

Tu as du te tromper de site .....

Ici .. on ne fait pas le travail à la place des autres !

Si tu as des difficultés, explique clairement tes points de blocage...  et là... peut-être que quelqu'un t'expliquera comment faire...
0
Réponse 2 / 2
yannec Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 

Bonjour, apparement oui, donc je vais en chercher un autre.Je suis un ancien mineur de

charbon, j'ai 75 ans et je n'ai jamais appris l'anglais. Oui pour moi c'est compliqué, mais j'y arrivera

sans ton aide.
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 

Tu as mal compris je pense.

De l'aide... on peut t'en donner ( et pas que moi.. )

Mais par contre, nous le  coderons pas à ta place.

Comme je te l'ai expliqué, si tu as des soucis, décris les précisément qu'on puisse essayer de t'orienter vers la meilleur façon de faire.

Bien entendu, si tu veux que quelqu'un te fournisse le code tout cuit, en effet, il vaut mieux chercher ailleurs.

0