Insertion automatique d'une ligne des dates manquantes
Fermé
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
-
14 mars 2013 à 12:52
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 3 avril 2013 à 16:09
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 3 avril 2013 à 16:09
A voir également:
- Activez le renvoi automatique à la ligne pour les cellules de la première ligne. une phrase doit apparaître.
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Ne pas apparaître en ligne sur messenger pour une personne - Guide
7 réponses
scinarf
Messages postés
1119
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
252
14 mars 2013 à 13:27
14 mars 2013 à 13:27
Bonjour,
Voici un code qui devrai vous satisfaire, j'ai fais assez vite alors si vous avez besoin d'un coup de main pour comprendre ne pas hésiter
Sub date_creation()
Dim i As Integer
Dim fin As Integer
For i = 1 To 5000
If Cells(i, 1) = "" Then fin = i: Exit For
Next i
For i = 1 To fin
If Cells(i + 1, 1) <> Cells(i, 1).Value + 1 Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub
Voici un code qui devrai vous satisfaire, j'ai fais assez vite alors si vous avez besoin d'un coup de main pour comprendre ne pas hésiter
Sub date_creation()
Dim i As Integer
Dim fin As Integer
For i = 1 To 5000
If Cells(i, 1) = "" Then fin = i: Exit For
Next i
For i = 1 To fin
If Cells(i + 1, 1) <> Cells(i, 1).Value + 1 Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
1
14 mars 2013 à 13:52
14 mars 2013 à 13:52
Wow scinarf ca marche trop bien
merci
merci
scinarf
Messages postés
1119
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
252
14 mars 2013 à 14:13
14 mars 2013 à 14:13
Pas de soucis, hésitez pas si jamais il y a un soucis
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
1
Modifié par TraderAS le 15/03/2013 à 10:16
Modifié par TraderAS le 15/03/2013 à 10:16
Mr scinarf
en faite vu que j'utilise des dates de jours ouvrables, j'utilise la fonction "=SERIE.JOUR.OUVR (A1;1) pour que quand j'incrémente ca ne m'affiche que les jours jours ouvrables
comment je peux introduire cette condition dans le code que vous m'avez livré
merci
en faite vu que j'utilise des dates de jours ouvrables, j'utilise la fonction "=SERIE.JOUR.OUVR (A1;1) pour que quand j'incrémente ca ne m'affiche que les jours jours ouvrables
comment je peux introduire cette condition dans le code que vous m'avez livré
merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
scinarf
Messages postés
1119
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
252
15 mars 2013 à 10:22
15 mars 2013 à 10:22
Sub date_creation()
Dim i As Integer
Dim fin As Integer
For i = 1 To 5000
If Cells(i, 1) = "" Then fin = i: Exit For
Next i
For i = 1 To fin
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR (Cells(i, 1).Value,1) Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub
Essayer donc ca
Dim i As Integer
Dim fin As Integer
For i = 1 To 5000
If Cells(i, 1) = "" Then fin = i: Exit For
Next i
For i = 1 To fin
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR (Cells(i, 1).Value,1) Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub
Essayer donc ca
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
1
15 mars 2013 à 15:12
15 mars 2013 à 15:12
encore merci ca marche comme par magie ;)
scinarf
Messages postés
1119
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
252
15 mars 2013 à 15:13
15 mars 2013 à 15:13
Logiquement il devrait ne pas marcher pour les jours fériés qui tombe sur un jour ouvré.
Mais au moins l'erreur est connu. Donc faire attention.
Mais au moins l'erreur est connu. Donc faire attention.
TraderAS
Messages postés
110
Date d'inscription
lundi 3 décembre 2012
Statut
Membre
Dernière intervention
26 avril 2018
1
3 avril 2013 à 16:09
3 avril 2013 à 16:09
Salut Scinarf
Je ne sais pas, mais j'ai testé le code que vous m'avez fourni avec le SERIE.JOUR.OUVR et ca marché:
Sub date_creation()
Dim i As Integer
Dim fin As Integer
For i = 1 To 30
If Cells(i, 1) = "" Then fin = i: Exit For
Next i
For i = 1 To fin
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR(Cells(i, 1).Value, 1) Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub
mais je crois que j'ai quelques problèmes en faite pour la ligne
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR(Cells(i, 1).Value, 1) Then il y'a l'erreur d'éxecution '424' objet requis, je ne sais pas pourquoi ca ne marche pas sachant que ma colonne est composée de dates comm JJ/MM/AAAA
MERCI
Je ne sais pas, mais j'ai testé le code que vous m'avez fourni avec le SERIE.JOUR.OUVR et ca marché:
Sub date_creation()
Dim i As Integer
Dim fin As Integer
For i = 1 To 30
If Cells(i, 1) = "" Then fin = i: Exit For
Next i
For i = 1 To fin
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR(Cells(i, 1).Value, 1) Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub
mais je crois que j'ai quelques problèmes en faite pour la ligne
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR(Cells(i, 1).Value, 1) Then il y'a l'erreur d'éxecution '424' objet requis, je ne sais pas pourquoi ca ne marche pas sachant que ma colonne est composée de dates comm JJ/MM/AAAA
MERCI
