Incrémentation automatique de la colonne date
Résolu/Fermé
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
-
21 févr. 2013 à 10:07
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 21 févr. 2013 à 13:04
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 21 févr. 2013 à 13:04
A voir également:
- Incrémentation automatique de la colonne date
- Déplacer une colonne excel - Guide
- Message automatique thunderbird - Guide
- Colonne word - Guide
- Réponse automatique outlook - Guide
- Sommaire automatique word - Guide
6 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
21 févr. 2013 à 11:39
21 févr. 2013 à 11:39
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
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
21 févr. 2013 à 10:40
21 févr. 2013 à 10:40
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
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
21 févr. 2013 à 11:13
21 févr. 2013 à 11:13
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
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
1
21 févr. 2013 à 11:43
21 févr. 2013 à 11:43
Merci à vous tous ca marche ;)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
21 févr. 2013 à 13:02
21 févr. 2013 à 13:02
Re,
Si tes attentes sont satisfaites, peut on mettre le statut de la discussion en résolu
Si tes attentes sont satisfaites, peut on mettre le statut de la discussion en résolu
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
1
21 févr. 2013 à 13:04
21 févr. 2013 à 13:04
oui bien sure
