Problème de Macro Fermé

Question

Bonjour la communauté,

Petit soucis, j'ai un fichier Excel sur lequel j'ai plein de macro, et il y en a une qui ne marche plus (alors qu'elle fonctionnait très bien avant) et je ne comprend pas pourquoi?

Si quelqu'un saurait m'aider, voici le lien vers le fichier:
http://www.cjoint.com/c/FFoiB2yOHVL


La macro qui ne fonctionne plus ce trouve sur le formulaire "Budget".
Quand je sélectionne un champs dans la première ListBox, l'ensemble du formulaire ce met à jour automatiquement.
Quand j'appuie sur le bouton validé, la macro se met en mode débogage et je ne comprend pas pourquoi... :'(

Kuartz · Answer

Bonjour,

J'ai remplacé la ligne qui posait problème :

n_ligne = .Columns("A").Find(ComboBox_choix, xlValues).Row

Par :

n_ligne = .Columns(1).Cells.Find(what:=ComboBox_choix.Value, LookAt:=xlWhole).Row

Du coup, fichier tout neuf :

https://www.cjoint.com/c/FFBo6Hk5hXf

Cordialement.

Kuartz · Answer

Re,

Moi en fait, je vois plutôt les choses comme ça, du coup ça fonctionne parfaitement.

Set Trouve = .Columns(1).Cells.Find(what:=ComboBox_choix.Value, LookAt:=xlWhole)

If Trouve Is Nothing Then
        n_ligne = Sheets("Suivi budgétaire").Range("a50000").End(xlUp).Row + 1
    Else
        n_ligne = Trouve.Row
    End If

En fait le code dit, cherche la valeur, si tu ne la trouve pas, alors tu ajoute la ligne, sinon, tu modifie la ligne concernée.

(En réalité, il dit si tu ne la trouve pas, alors le numéro de ligne est la ligne en dessous la dernière ligne complétée de la feuille "Suivi budgétaire", sinon, le numéro de la ligne est celui de la ligne qui existe déjà)

Ne reste que le problème que lorsqu'une ligne est ajoutée, elle est ajoutée 4 lignes plus bas. Et pour cause, ce qu'il y a sur la feuille est un tableau "objet", il contient donc des lignes considérées comme utilisées par le code. Donc la notion de dernière ligne n'existe plus. Je ne comprend pas l'intérêt réel de la création d'un tableau sur un tableur mais bon...

Bref, voilà le fichier modifié :

https://www.cjoint.com/c/FFCmF6tqZVf

Cordialement.

Frenchie83 · Answer

Bonjour*
Peut-être une réponse à votre problème
Conversion du tableau automatique en table suivi de la recopie des valeurs puis re-création du tableau automatique aux nouvelles dimensions.
https://www.cjoint.com/c/FFCq3FLJaNw
A essayer
Cdlt

Frenchie83 · Answer

Bonjour
Pour recopier vos formules, il y avait la solution d'utiliser l'enregistreur de macro en validant chaque cellule contenant une formule, puis d'appeler cette macro juste après le remplissage d'une ligne. Hélas, vous avez des formules beaucoup trop longues, notamment en colonnes AL et AP(2342 caractères).
Alors, autre solution retenue, on fait un copier/collage spécial formules de la ligne 3 sur la nouvelle ligne. (j'ai pris la ligne 3 parce que c'est la seule qui contient les formules, si vous avez un autre endroit ou elles sont stockées, vous pouvez changer)
https://www.cjoint.com/c/FFDqgi0ZDlw
Cdlt

Frenchie83 · Answer

Bonjour
Voici, avec effacement de toutes les cellules ne contenant pas de formules
https://www.cjoint.com/c/FFEpNNW1avw
Cdlt

Frenchie83 · Answer

Bonjour
Rappel: ne pouvant enregistrer les formules car trop longues, j'ai opté pour une recopie de la ligne 3, cette ligne me sert de modèle,  elle peut être sauvegardée à un autre endroit (dans une autre feuille par exemple).
J'ai supprimé l'effacement des données après recopie
https://www.cjoint.com/c/FGbkkQBkn6k
A tester
Cdlt

Frenchie83 · Answer

Bonjour
Voilà le fichier avec la modification.
Pour une question de sécurité et vu la taille des formules, j'ai préféré conserver une copie de la ligne 3 contenant les fameuses formules dans la feuille "Sauvegarde_formules",pour se prémunir d'un éventuel effacement du tableau de la feuille Suivi budgétaire".
Donc,  si le contenu de la comboBox traitant l'Audit n'existe pas dans la feuille "Suivi budgétaire", alors on recopie cette ligne sauvegardée dans une nouvelle ligne de la feuille "Suivi budgétaire", sinon si l'audit est déjà existant, on remplace les valeurs.
https://www.cjoint.com/c/FGce6HwmZJw
En espérant que cela corresponde à vos attentes
Cdlt

Frenchie83 · Answer

Bonjour
Je vais essayer d'être le plus clair possible.
La feuille "Suivi budgétaire" est faite avec un tableau automatique. Le problème, c'est que lorsque on ajoute une ligne, cette dernière se trouve en dehors du tableau. Pour respecter la construction de votre fichier, j'ai conservé ce tableau, mais à chaque fois que l'on réajuste sa taille, excel incrémente l'index affecter à ce tableau (tableau1 devient tableau2). Avant de sortir du programme je force l'index à 1, comme cela le tableau s'appelle toujours "tableau1", mais auparavant avant de le recréer je supprime ce "tableau1" afin que je puisse renommer le tableau ainsi créer en tableau1 (on ne peut pas renommer un tableau 2 en tableau1 si ce dernier existe déjà).

Principe du déroulement du programme:
-Tableau1 existe
-Conversion du "tableau1" en plage (on perd les caractéristiques du tableau automatique, on se retrouve avec une feuille excel classique)
-Ajout d'une nouvelle ligne
-Création d'un nouveau tableau nommé par excel "tableau2" incluant la nouvelle ligne.
-Renommage de "tableau2" en "tableau1".
-Prêt pour une nouvelle insertion de ligne, on recommence le cycle.

Le problème rencontré dernièrement est que le tableau1 n'a pas été recréé, donc n'ayant pas été trouvé, excel à déclenché une erreur. Pour contourner ce problème, j'ai rajouté une ligne qui ignore cette erreur et laisse continuer le programme si cela se produit.

https://www.cjoint.com/c/FGeqvMaNkPw
En espérant que ce soit la bonne.
Cdlt

Frenchie83 · Answer

Voilà, j'ai dû apporter quelques petites modifications après l'avoir sérieusement torturé. 
Des erreurs sont apparues selon que j'effaçais une ligne ou bien que je la supprimais, les recopies suivantes ne se faisaient pas systématiquement là ou je les attendais (la cause étant liée toujours à ses fameux tableaux automatiques)
J'espère que cette fois-ci sera la bonne!!!
https://www.cjoint.com/c/FGfnoPxnYMk
Cdlt

Frenchie83 · Answer

Bonjour
Comme ceci?
https://www.cjoint.com/c/FGgjuJ8dMIk
Cdlt

Frenchie83 · Answer

Voilà
https://www.cjoint.com/c/FGgm4x8BUBk
J'ai mis le bout de code entre 2  les lignes d'astérisques.
Cdlt

Frenchie83 · Answer

https://www.cjoint.com/c/FGgnzd8quFk
Je ne masque pas la ligne 3, je la réduis à une hauteur de 0,1, ce qui permet de pouvoir la recopier.
    Rows(3).RowHeight = 0.1
Les nouvelles lignes sont réajustées à la hauteur 15
        Rows(n_ligne).RowHeight = 15
Voilà

Problème de Macro

12 réponses

Discussions similaires

Newsletters