Pb sur une macro perso

Bonjour,

J'ai créé une macro qui me permet d'ajouter 20 lignes dans un tableau à partir de la cellule choisie mais pour une raison que j'ignore cela ajoute quelques fois, de façon anarchique, plus de 20 lignes.

Merci de m'aider à résoudre ce problème.

Sub Releve()
'
Dim ValeurEntree As String
Dim Entree1 As Integer
Dim Entree2 As Integer
Dim Msg1 As String
'
' Invite à entrer le n° de la ligne où insérer le relevé
Do
Msg1 = "Noter le n° de la cellule A... à partir de laquelle vous voulez ajouter le relevé"
ValeurEntree = InputBox(Msg1)
'
' Vérifier que l'entrée est bien un nombre
Loop Until IsNumeric(ValeurEntree)
'
' Attribution des valeurs aux variables
Entree1 = 0
Entree2 = 0
Entree1 = ValeurEntree
Entree2 = Entree1 + 19
'
' Insersion de 20 lignes et copie du relevé préparé dans la feuille "Constantes"
    Rows(Entree1 & ":" & Entree2).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Constantes").Select
    Range("A1:A20").Select
    Selection.Copy
    Sheets("paleo en cours").Select
    Range("a" & Entree1).Select
    ActiveSheet.Paste
End Sub

Conil26

Bonjour

A 1ère vue elle fonctionne

Il faudrait le fichier anonymisé et connaitre les conditions pour obtenir le dysfonctionnement

Voilà un classeur à 2 feuilles dans lequel il faut recopier la macro.

Merci

NB : Je répète que cette macro n'ajoute jamais moins des 20 lignes attendues mais souvent jusqu'à 9 de plus de façon aléatoire. Impossible à reproduire systématiquement tant pour la fréquence que pour le nbr de lignes supplémentaires ajoutées.

Comme je suis le seul à m'en servir, je n'ai pas ajouté de sortie en cas d'erreur lors du remplissage du Msgbox => c'est uniquement un nombre qui est attendu.

Conil26

Bonjour

Désolé mais malgré plusieurs essais , je n'ai pas vu de problème

Il faut arriver à trouver l'enchainement des actions qui amène au bug

Dés que tu constates le défaut notes ce que tu as fait, pour voir si cela vient de la

A surveiller

Le pb c'est que je fais toujours la seule et unique chose dépendant de moi : compléter le Msg.

Pour le reste c'est la macro qui traite tout en arrière plan.

Même après avoir ajouté une sortie de boucle en cas d'erreur, ça se produit quand même de façon tout à fait anarchique : tantôt oui tantôt non et jamais avec le même nbr de lignes.

Tant pis.

' Vérifier que l'entrée est bien un nombre
If IsNumeric(ValeurEntree) = False Then Exit Sub
Loop Until IsNumeric(ValeurEntree)

Bonjour

je persiste

Il doit y avoir une condition qui modifie la macro

Je ne crois pas qu'en fonction de l'heure ou du temps elle te rajoute des lignes

Wait & See