A voir également:
- Modification de plusieurs cellule en automatique
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Réponse automatique outlook - Guide
- Sommaire automatique word - Guide
- Message automatique thunderbird - Guide
- Verrouiller cellule excel - Guide
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
15 nov. 2016 à 09:22
15 nov. 2016 à 09:22
Bonjour,
code modifie, mais, probleme pour ecriture: change en C ecrase en K
et que se passe-il si cellule passe a vide ??
code modifie, mais, probleme pour ecriture: change en C ecrase en K
et que se passe-il si cellule passe a vide ??
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Byte
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("K1:K2000")) Is Nothing Then
'Row = Target.Column ??????? Mot reserve EXCEL ????????
Cells(Target.Row, 12) = Format(Date, "mm/dd/yy")
ElseIf Not Intersect(Target, Range("C1:C2000")) Is Nothing Then
'Row = Target.Column ??????? Mot reserve EXCEL ????????????????
Cells(Target.Row, 8) = Format(Date, "mm/dd/yy")
Cells(Target.Row, 10) = "Présent"
Cells(Target.Row, 11) = "Ouverture"
End If
End Sub
Bonjour
Super ça fonctionne.
Je vais tester sur plusieurs lignes pour voir si il n'y a pas d'effet de bord mais pour le moment c'est très bien.
Merci
Super ça fonctionne.
Je vais tester sur plusieurs lignes pour voir si il n'y a pas d'effet de bord mais pour le moment c'est très bien.
Merci
Bonjour,
Finalement il me reste un problème.
Ça fonctionne bien lorsque j’écris dans la colonne C mais je voudrais que ce soit le cas uniquement lorsque cette cellule passe de vide à "X" pas lorsque je modifie la cellule.
pour le reste c'est bon ça fonctionne pour écriture et modification
Finalement il me reste un problème.
Ça fonctionne bien lorsque j’écris dans la colonne C mais je voudrais que ce soit le cas uniquement lorsque cette cellule passe de vide à "X" pas lorsque je modifie la cellule.
pour le reste c'est bon ça fonctionne pour écriture et modification
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
30 déc. 2016 à 12:32
30 déc. 2016 à 12:32
Bonjour,
uniquement lorsque cette cellule passe de vide à "X" pas lorsque je modifie la cellule.
Je regarde la chose tout a l'heure,
uniquement lorsque cette cellule passe de vide à "X" pas lorsque je modifie la cellule.
Je regarde la chose tout a l'heure,
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
Tony1664
30 déc. 2016 à 18:56
30 déc. 2016 à 18:56
Re,
Dim ValCel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As Byte
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("K1:K2000")) Is Nothing Then
'Row = Target.Column ??????? Mot reserve EXCEL ????????
Cells(Target.Row, 12) = Format(Date, "mm/dd/yy")
ElseIf Not Intersect(Target, Range("C1:C2000")) Is Nothing And ValCel = "" Then
'Row = Target.Column ??????? Mot reserve EXCEL ????????????????
Cells(Target.Row, 8) = Format(Date, "mm/dd/yy")
Cells(Target.Row, 10) = "Présent"
Cells(Target.Row, 11) = "Ouverture"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C1:C2000")) Is Nothing Then
ValCel = Target.Value
End If
End Sub
Modifié par Tony1664 le 30/12/2016 à 11:11
Une solution ?