Incrémentation automatique de la colonne date
Résolu
TraderAS
Messages postés
110
Date d'inscription
Statut
Membre
Dernière intervention
-
TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention -
TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Incrémentation automatique de la colonne date
- Déplacer colonne excel - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
6 réponses
Re,
Avec le bouble clic et pour éviter que le code ne s'active à partir de n'importe quelle cellule de la colonne A il serait judicieux de le brider sur une cellule à condition que l'insertion se fasse toujours au dessus de la même ligne exemple A2 à part que l'insertion soit variable
code à tester, clic droit sur l'onglet de feuille/Visualiser le code et coller ce code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [A2]) Is Nothing Then
Target.EntireRow.Insert
[A2] = [A3] + 1
[A1].Activate
End If
End Sub
Avec le bouble clic et pour éviter que le code ne s'active à partir de n'importe quelle cellule de la colonne A il serait judicieux de le brider sur une cellule à condition que l'insertion se fasse toujours au dessus de la même ligne exemple A2 à part que l'insertion soit variable
code à tester, clic droit sur l'onglet de feuille/Visualiser le code et coller ce code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [A2]) Is Nothing Then
Target.EntireRow.Insert
[A2] = [A3] + 1
[A1].Activate
End If
End Sub
Salut,
Exemple sur la première ligne tu as tes en tête de colonne et tes dates ont en colonne A à partir de A2, ce code insérera une ligne après la ligne d'en tête et copiera la date qui est passée en A3 + 1 jour
Sub test()
[A2].EntireRow.Insert
[A2] = [A3] + 1
End Sub
Exemple sur la première ligne tu as tes en tête de colonne et tes dates ont en colonne A à partir de A2, ce code insérera une ligne après la ligne d'en tête et copiera la date qui est passée en A3 + 1 jour
Sub test()
[A2].EntireRow.Insert
[A2] = [A3] + 1
End Sub
Bonjour tous
j'allais donné celle là, Mike qui n'est pas mal non plus et que je tire de tes excellents enseignements (pour rendre à césar..)
Elle ajoute la ligne et incrémente la date par simple double clic sur la date en haut de la colonne A
a coller dans le code de la feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As Long
If Target.Column <> 1 Then Exit Sub
Cancel = True
d = ActiveCell.Value
Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Value = d + 1
End Sub
crdlmnt
j'allais donné celle là, Mike qui n'est pas mal non plus et que je tire de tes excellents enseignements (pour rendre à césar..)
Elle ajoute la ligne et incrémente la date par simple double clic sur la date en haut de la colonne A
a coller dans le code de la feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As Long
If Target.Column <> 1 Then Exit Sub
Cancel = True
d = ActiveCell.Value
Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Value = d + 1
End Sub
crdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question