Discussion :

[amerex]

Bonjour!
J'ai une impasse que je dois régler. Je vous explique.

Dans la colone C, si j'inscrit une valeur (qui est un numéro à 7 chiffres), il faudrait que dans la cellule qui est juste à droite, que VBA inscrive:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

Ucase(Environ("USERNAME"))

Mais il faut que ce code s'exécute lorsque je sort de la cellule de la colone C.
Auriez-vous une idée de code?

[diude54]

En plaçant ça dans ta feuille ça devrait le faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_change(ByVal target As Range)
 
If target.column = 3 Then
cells(target.row,4).value=Ucase(Environ("USERNAME"))
end if
 
end sub

Ya peut etre un s a la fin de row je ne sais plus

[amerex]

Merci beaucoup!!
Tout fonctionne!!!

[laetitia]

bonjour amerex diude54 le forum un autre code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c:c")) Is Nothing Then
If Target Like "#######" Then Target.Offset(0, 1) = UCase(Environ("USERNAME"))
End If
End Sub

[amerex]

Humm... mais le code de Diude54 n'est pas plus simple d'utilisation?

[diude54]

Celui de Laetitia permet tout de même de lancer la macro uniquement si tu entres un code à 7 chiffres ce qui n'est pas plus mal je pense. Si tu entre "blabla" ça ne marchera pas alors qu'avec le miens la macro va se mettre en route.

[amerex]

Génial, je ne l'avais pas analysé de cette manière!
Avec son code, ça me permet de faire un test de validation If...Then.....

Merci!!
Je vais faire des tests...!!

Edit: Simplement fantastique!