XL 2010 verif fonctionnement fichier VBA

TooFatBoy

XLDnaute Barbatruc

• 25 Février 2022

• #2

Bonjour,

C'est ce que je disais dans le fil de vérif de fichier précédent : les fusions compliquent la vie.
Regarde comment j'avais contourné le problème sans modifier la mise en page.

J'avais procédé en deux temps :
un premier décalage pour ne plus être embêté par la fusion
Set PlageActu = Sheets("Entrée").Range(RayonActu.Address).Offset(1, 0)
un deuxième décalage avec un resize pour avoir la bonne plage
Set PlageActu = PlageActu.Offset(0, 1).Resize(8, 1)

Ce n'est peut-être pas ce qu'il y a de mieux, mais ça marche. 😁

L'idéal serait de défusionner et aligner sur plusieurs colonnes. 😉

 

Dernière édition: 25 Février 2022

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2022

• #3

Ok Marcel , c'est ce qui va être fait
Moi j'aime bien TOUT comprendre , ce matin il fonctionnait , les données s'effacaient et se déplacaient
et d'un seul coup BUG
Il n'y a pas de cellules fusionnées dans le clear !!!!!!! j'ai fait 1 par 1 le clear et pas de soucis Alors ????
Mystère ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 25 Février 2022

• #4

Effectivement, il n'y a pas de cellules fusionnées dans la plage à effacer, mais ce sont tout de même les en-têtes fusionnés qui génèrent ce problème. 😉

Pour être un peu plus précis, je dirais que je pense que le problème vient de ton Ry, qui est justement une plage fusionnée.
Donc tu défusionnes et tu alignes sur plusieurs colonnes, et ça devrait être bon. 😉

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 26 Février 2022

• #5

herve62 à dit:

A nouveau soucis avec un fichier en VBA , tout fonctionnait , j'ai deplacé 2 lignes au dessous du "clearContents" sub deplacement de l'USF
pour les replacer au dessus , ET Maintenant BUG sur le ClearContents ? voir image
En + l'erreur est incohérente ??

Cliquez pour agrandir...

Désolé, je n'avais pas compris ce que tu voulais dire, donc j'ai répondu complètement à côté de la plaque... 😔
Mais je viens de comprendre le sens de la phrase.



Actuellement tu as ça :

VB:

Call Ray_libre
If Libre = 1 Then Exit Sub

.Range(.Cells(lg, col), .Cells(lg + 7, col)).ClearContents

LocaF = ComboBox2.Value

Donc si j'ai bien compris, avant tu devais avoir ça :

VB:

.Range(.Cells(lg, col), .Cells(lg + 7, col)).ClearContents

LocaF = ComboBox2.Value

Call Ray_libre
If Libre = 1 Then Exit Sub

Dans ce cas, le "souci" est normal, puisque tu n'as pas initialisé la variable globale LocaF avant d'appeler la macro Ray_libre (qui, justement, utilise cette variable).
Donc tu peux déplacer la ligne d'initialisation de la variable LocaF comme ceci :

VB:

LocaF = ComboBox2.Value

Call Ray_libre
If Libre = 1 Then Exit Sub

.Range(.Cells(lg, col), .Cells(lg + 7, col)).ClearContents

Il n'y a donc pas de bug ici, et il n'y a plus de mystère : c'était juste un petit oubli d'initialisation de variable. 😉

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2022

• #6

Marcel !
Regarde , il n'y a plus de PROBLEME !!!!! TOUT fonctionne

Marcel32 à dit:

c'était juste un petit oubli d'initialisation de variable

Cliquez pour agrandir...

Entre autre , mais RAZ combo ( l'oubli) et revenir à l'USF

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Février 2022

• #7

Je voulais juste expliquer que ce n'était pas un bug d'Excel ni de Windows.

Ah, je ne savais pas que tout fonctionnait. Mais tant mieux. Bien joué ! 😉👍

 

Vote positif 0 Vote négatif