Mon code s'arrête après un Rows(i).insert Résolu/Fermé

Question

Bonjour, 

Je rencontre un problème que je ne comprend et donc je ne  trouve pas la solution sur internet. Je me tourne donc vers vous en espérant que quelqu'un puisse m'apporter une solution. Je vous explique

Je suis entrain de coder une macro qui est capable d'ajouter une ligne dans un tableau et qui ensuite doit mettre a jour la suite du tableau en incrémentant les chiffre de la suite du tableau. Seulement voila mon code s’arrête juste après la ligne : Rows(i).Insert

Après avoir tester plusieurs solutions, toutes inefficaces je me dit que je vais tester les bases en testant un enregistrement de macro je fait donc un enregistrement qui insert une ligne  et qui ajoute juste une nombre  dans un cellule après et la pareil mon code s’arrête  Je pense donc que le problème est lié a la feuille excel mais je ne voit pas quoi 

Voici le code de la macro enregistrer qui s’arrête après le Insert : 

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("48:48").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C49").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("C50").Select
End Sub

Merci d'avance

Configuration: Windows / Chrome 59.0.3071.115

ccm81 · Answer

Bonjour

Ton code (un peu simplifié) fonctionne
Public Sub OK()Rows(48).InsertRange("C49").Value = 2Range("C50").SelectEnd Sub
http://www.cjoint.com/c/GGrjJS0onRB

Cdlmnt

Pierre · Answer

Bonjour, 

Merci pour ta réponse

Je viens de tester le code mais j'ai toujours le même problème : la macro s'arrête après le Rows(48).Insert et n'effectue pas la suite du code 

Cdlmnt,

Pierre

ccm81 · Answer

Je viens de tester le code mais j'ai toujours le même problème : la macro s'arrête après le Rows(48).Insert et n'effectue pas la suite du code 
Sur ton fichier ou sur le mien ?

Pierre · Answer

Sur ton fichier la macro fonctionne, sur le mien elle ne fonctionne pas :/ Je suppose que c'est du a un problème sur mon fichier mais je ne voit pas lequel :/

ccm81 · Answer

Je suppose que c'est du a un problème sur mon fichier mais je ne voit pas lequel 
Moi non plus ;-)
Peux tu envoyer un bout de ton fichier anonymisé, mais avec la même structure que l'original,sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller". 

Cdlmnt

Pierre · Answer

Bonjour,

Je viens de créer un fichier "similaire" au fichier qui me pose problème et le problème disparu dans ce nouveau fichier. Je ne peux pas donner le fichier original car il est confidentiel :/

Je te remercie pour ton aide mais je vais devoir essayer de résoudre le problème seul dans le fichier original 

Cordialement,

 Pierre

ccm81 · Answer

Une question : ta macro est elle dans le module de la feuille concernées ou dans un module général (Module 1 par exemple)
Si elle est dans un module général essaies  comme ceci
Public Sub OK()With ActiveSheet  .Rows(48).Insert  .Range("C49").Value = 2  .Range("C50").SelectEnd WithEnd Sub

Pierre · Answer

Merci pour ta réponse. Ma macro est dans un fichier XLA a part (Module a part). Je vais essayer ta solution et je te tiens au courant

Pierre · Answer

Je viens d'essayer la solution que m'a proposé mais ça n'est toujours pas concluant. Je vais continuer de chercher

Patrice33740 · Answer

Re,

Le code du formulaire semble correct mais celui de Add_Line_Table ne l'est pas.

Comme je t'ai dit dans un xla : 
1) Pas de déclaration implicite :
C-à-d. pas de Rows(..., pas de Cells(...
Mais Worbooks("xxx").Worksheets("yyy").Rows(.... 

Parce que le xla est un classeur indépendant du classeur sur lequel la macro doit agir, il est donc indispensable d'écrire un code propre et complet.

2) Pas de .Select (sauf si c'est vraiment indispensable et donc seulement pour la dernière instruction), pas d'ActiveCell (pour la même raison)

PS: Il est fortement conseillé d'utiliser des variables objets

Cordialement
Patrice

jean · Answer

Rebonjour Pierre, Essaye ce code VBA (à adapter) : Option Explicit Function CheckNumberInput(windowInput) As Boolean CheckNumberInput = False ' to set default value If Not IsNumeric(windowInput) Then MsgBox "The input is not a number" Add_Line_window.Show Exit Function End If If windowInput > 19 And windowInput < 50 Then CheckNumberInput = True ' if number between 20 and 49 Else MsgBox "It's not possible to add a line at this line" End If End Function Sub Add_Line_Table(lineNumber As Long) ' Ligne de débogage pour vérifier la valeur de lineNumber : MsgBox "lineNumber = " & lineNumber: Exit Sub ' Attention : ci-dessous, remplacer les 2 noms par leur nom réel ! With Workbooks("Nom du Classeur").Worksheets("Nom de la Feuille") .Unprotect .Rows(lineNumber).Insert .Cells(lineNumber, 3) = .Cells(lineNumber - 1, 3) + 1 .Cells(lineNumber, 3).Select While .ActiveCell.Row <> 50 .ActiveCell = .ActiveCell.Offset(-1, 0) + 1 .ActiveCell.Offset(1, 0).Select Wend .Protect End With End Sub Private Sub Button_OK_Click() Dim numberLine As Long Add_Line_window.Hide ' Bizarre : d'où provient ce NumberOfLine_Input ? ' (il devra avoir une valeur entre 20 et 49) If CheckNumberInput(NumberOfLine_Input.Value) Then numberLine = CLng(NumberOfLine_Input.Value) Add_Line_Table numberLine End If End Sub Private Sub Button_Cancel_Click() Add_Line_window.Hide End Sub ⚠ Ton code doit normalement contenir cette variable publique : Public NumberOfLine_Input As Long Si la feuille est toujours déprotégée, .Unprotect et .Protect sont inutiles ; mais en cas de doute (car ça dépend des utilisateurs), à laisser ! Comme les .ActiveCell dépendent du Classeur et de la Feuille définis bien clairement par l'instruction With, je pense que ça ira. À te lire.

Pierre · Answer

Bonjour a tous, 

Je ne vous avais pas oublié mais je me devais de tester la solution jusqu'au bout avant de confirmer qu'elle fonctionnait. Pour rappel, mon problème était un arrêt intempestif de mon code VBA, qui était exécuter dans un fichier XLA.

La solution qui m'a permit de résoudre ce problème a été de retravailler tout mon code afin transférer des objets Workbook et Worksheet a mon XLA et retravailler mes instructions.(Amélioration de l'adressage)

Par exemple : 
Sub MacroValeurCellule()    cells(3,4).value = 4End Sub

est devenue

Sub MacroValeurCellule(feuille as Worksheet)    feuille.cells(3,4).value = 4End Sub

Merci encore a tout ceux qui m'ont aider a m'améliorer en VBA

Mon code s'arrête après un Rows(i).insert

12 réponses

Discussions similaires