Microsoft 365 Ajouter nom et date automatiquement sur cellule

[odohe]

Bonjour,
J'avais ce code VBA sur un de mes fichier qui me permettais d'ajouté le nom et la date automatiquement sur mes cellules, par contre j'aimerai l'utiliser sur un autre classeur mais qui est divisé en 4 tableau

comment adapté le code ci-joint afin qu'il s'adapte uniquement aux cellules de A4 à I38 et de A4 à I38

Merci d'avance

Private Sub Worksheet_Change(ByVal T As Range)

'Cellule de A4 à I38
If T.Column = 3 Then
T(1, 3) = Environ("username")
End If
If T.Column = 1 Then
T(1, 4) = Date
End If

'Cellule de A40 à I80
If T.Column = 4 Then
T(1, 3) = Environ("username")
End If
If T.Column = 2 Then
T(1, 4) = Date
End If

End Sub

 

[sylvanu]

Bonjour Odohe,
Essayez :

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row >= 4 And T.Row <= 38 Then      ' Si clic en lignes 4 à 38
    'Cellule de A4 à I38
    If T.Column = 3 Then
        T(1, 3) = Environ("username")
    End If
    If T.Column = 1 Then
        T(1, 4) = Date
    End If
ElseIf T.Row >= 40 And T.Row <= 80 Then  ' Si clic en lignes 40 à 80
    'Cellule de A40 à I80
    If T.Column = 4 Then
        T(1, 3) = Environ("username")
    End If
    If T.Column = 2 Then
        T(1, 4) = Date
    End If
End If
End Sub

La première partie est exécutée entre les lignes 4 à 38, la seconde entre 40 et 80.
Mais je n'ai pas touché, évidemment à ce qu'il y a dans votre macro, ne sachant pas ce qu'elle est censée faire.

 

[odohe]

Super merci sylvanu
Je pense avoir compris, je vais essayé de modifié le code afin qu'il s'adapte sur mes différents tableaux et feuilles

 

[odohe]

Bonjour,
maintenant je suis confronté à un autres soucis, dans mon classeur j'ai voulu protégé les cellules ou se trouve les nom et date, par contre lorsque je rempli les cellules qui devrait complété automatiquement les autres cellules de date et nom, j'ai un message d'erreur qui apparait
si je déprotège les cellules le code fonctionne
comment je peux résoudre ce problème

Merci
ci-joint le message d'erreur + le code que j'ai placé sur la feuille visual basic

Private Sub Worksheet_Change(ByVal T As Range)

If T.Row >= 4 And T.Row <= 38 Then
If T.Column = 3 Then
T(1, 3) = Environ("username")
End If

If T.Column = 1 Then
T(1, 4) = Date
End If

If T.Column = 8 Then
T(1, 2) = Environ("username")
End If

If T.Column = 13 Then
T(1, 3) = Environ("username")
End If

If T.Column = 16 Then
T(1, 2) = Environ("username")
End If

ElseIf T.Row >= 40 And T.Row <= 80 Then
If T.Column = 3 Then
T(1, 3) = Environ("username")
End If

If T.Column = 1 Then
T(1, 4) = Date
End If

If T.Column = 8 Then
T(1, 2) = Environ("username")
End If
End If
End Sub

 

[sylvanu]

Re,
Déprotéger la feuille au début, et reprotéger la à la fin avec :

ActiveSheet.Unprotect ("mot de passe")
ActiveSheet.Protect Password:="mot de passe"

 

[odohe]

Merci sylvanu
Le Unprotect et Protect lorsque je les places au début de code ils ne fonctionnent pas, mais si je place le Unprotect en début de code et le Protect en fin de code alors je constate que la feuille est bien déverrouillé mais je sais rentré dans les cellules qui sont protégé.
Je pense que je mis prend pas comme il le faudrait.

 

[sylvanu]

C'est bien ce que j'ai dit.

Déprotéger la feuille au début, et reprotéger la à la fin avec :

 

[odohe]

en début cela veut dire entre
Private Sub Worksheet_Change(ByVal T As Range)

If T.Row >= 4 And T.Row <= 38 Then

En fin c'est bien entre
End If

End Sub

 

[odohe]

ok je pense que c'est bon

 

[sylvanu]

Private Sub Worksheet_Change(ByVal T As Range)
ActiveSheet.Unprotect ("mot de passe")
...
...
ActiveSheet.Protect Password:="mot de passe"
End Sub

 

[odohe]

Au départ je l'avais placé juste avant End if mais après t'on commentaire je me suis rendu compte de mon erreur il devait plutôt être entre End if et End Sub
Merci

 

[sylvanu]

En fait c'est simple, vous déprotéger dès le début de la macro pour être tranquille, et vous reprotéger juste avant de sortir.
Cependant, attention si vous aviez une erreur pendant l'exécution alors vous sortiriez non protéger.
On peut alors s'en prémunir en faisant :

Private Sub Worksheet_Change(ByVal T As Range)
On error goto Fin
ActiveSheet.Unprotect ("mot de passe")
...
...
Fin:
ActiveSheet.Protect Password:="mot de passe"
End Sub

Comme ça, vous êtes tranquille.

 

[odohe]

J'avance doucement mais surement, maintenant j'ai de nouveau une autre erreur lorsque je clic sur la macro de sauvegarde de la feuille et cela est apparu depuis le rajout de dé protection en debut de code et reprotection en fin de code nom et date
voici mon message d'erreur

 

[sylvanu]

Est ce la même macro ?
A ce moment là la feuille est protégée ou non ?
Difficile de se prononcer juste sur une image.
Essayez de déprotéger et reprotéger s'il ne s'agit pas de la même macro.

 

[odohe]

Il ne s'agit pas de la même macro
j'ai essayé en retirant les deux ligne de code de deprotection, reprotection et je n'ai plus cette erreur mais alors je n'aurais plus la possibilité de protégé les cellules de date et nom