A voir également:
- VBA Cope de cellules
- Excel additionner des cellules - Guide
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
5 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
3 juin 2009 à 10:36
3 juin 2009 à 10:36
Bonjour,
commande par bouton
Sub suivi()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row + 1
Cells(lig, 1) = Date
Cells(lig, 2) = Range("B2")
End Sub
Si tu veux déclencher par changement dans la cellule B2, fais signe
commande par bouton
Sub suivi()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row + 1
Cells(lig, 1) = Date
Cells(lig, 2) = Range("B2")
End Sub
Si tu veux déclencher par changement dans la cellule B2, fais signe
Dis, tu saurais rajouter une condition, qui ne fais la copie uniquement si les valeurs ne sont pas identiques à celles de la ligne du dessus (par exemple, si on clique deux fois de suite, et bien ce n'est copie qu'une seule fois)
je pense à un truc SI Date = Cells(lig-1, 1) ALORS message d'erreur, je ne sais juste pas le transcrire en VBA
merci
je pense à un truc SI Date = Cells(lig-1, 1) ALORS message d'erreur, je ne sais juste pas le transcrire en VBA
merci
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
3 juin 2009 à 11:15
3 juin 2009 à 11:15
Sub suivi()
Dim lig As Long
lig = Range("A65536").End(xlUp).Row
If Cells(lig, 1) <> Date Then
Cells(lig + 1, 1) = Date
Cells(lig + 1, 2) = Range("B2")
Else
MsgBox "date d'aujourd'hui déjà saisie!... ", vbExclamation
End If
End Sub
Dim lig As Long
lig = Range("A65536").End(xlUp).Row
If Cells(lig, 1) <> Date Then
Cells(lig + 1, 1) = Date
Cells(lig + 1, 2) = Range("B2")
Else
MsgBox "date d'aujourd'hui déjà saisie!... ", vbExclamation
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question