Chercher l'erreur
Bonjour
J'ai cette Macro qui ne fonctionne plus......
Seul le numéro de la ligne s'inscrit et ensuite plus rien .......
Merci pour votre aide (fichier ci joint)
Bonne journée
"Private Sub CommandButton1_Click()
'Sub ajout_action()
Application.ScreenUpdating = False
Dim val_pre As Integer
Dim val As Integer
val_pre = 0
val = 0
Worksheets("Actions").Activate
Columns("A").Cells.Find(What:="Chrono").Select
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.Offset(-1, 0).Select
If ActiveCell.Value = "Chrono" Then
val_pre = 0
Else
val_pre = ActiveCell.Value
End If
val = val_pre + 1
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = val
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Date
'ActiveCell.Offset(0, 1).Select
'ActiveCell.Value = "Core Team Meeting"
ActiveCell.Offset(0, 5).Select
ActiveCell.Value = "Subject : "
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "Action"
ActiveCell.Offset(0, 6).Select
ActiveCell.Value = "Open"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Date & " :"
ActiveCell.Offset(0, -10).Select
End Sub
"
Bonjour ozone83 le forum
bah chez moi cela fonctionne!!!
Mais ta macro est un peu bidon, déjà tout tes select ne servent à rien
a+
Papou
Re Bonjour Ozone83 le forum
voilà ton fichier avec une autre macro fonctionnelle elle!!!
a+
Papou
Bonjour Paritec,
Déjà un grand merci pour ton aide et surtout pour le nouveau codage.
Cependant je n'arrive pas à la faire fonctionner dans mon fichier original......ai copié ta macro mais rien ne se passe
Du coup pourrais tu regarder si y'a pas un autre soucis ?
Attention, je suis débutant en VBA et ai copié du code de différents programmes => je suis conscient que mon code n'est peut être pas le plus propre/simple possible.
Merci pour ton aide.
(fichier ci joint)
Bonjour Ozone83 le forum
Bah oui c'est sur que la macro elle ajoute une ligne au tableau, alors si tu as 1000 lignes vide, bah la macro ajoute à la suite des lignes vide!!!
Le propre de l’utilisation des tableaux c'est que l'on doit ne JAMAIS avoir une tripotée de lignes vide après tes données
Si tu as la curiosité, tu peux aller vérifier sur le fichier que tu as envoyé en dernières ligne du tableau vers la 1300 tu as bien les ajouts
et dans le fichier V2 j'ai viré les lignes vides tu peux tester
a+
Papou
Ah oui en effet, les lignes étaient créees en bas du tableau....
Un grand merci pour ton aide
bonne journée