Discussion :

[Uranne-jimmy]

Bonjour,
Je pinailles depuis quelques temps sur un problème assez typique : ce que j'ai testé en enregistreur ne se comporte pas de la même façon que quand j'exécute la dite macro.
J'ai une liste avec en première colonne une checkbox, quand je fais une insertion de cellule manuelle, la CB bouge, quand je fais la même action en VBA, le control ne bouge pas. J'ai pas vraiment envie de me casser la tête à faire bouger la CB à part, parce qu'elle ne sera pas évidente à récupérer (trouver toutes les CB à cette ligne et en dessous ... pas simple à moins de pouvoir retrouver une CB à partir de ça cellule cible ?) Alors, est-ce que j'ai loupé un truc, un paramètre, pour faire bouger le control en même temps que le reste ?

en gros (j'ai pas le code sous les yeux, l'ordi internet n'est pas le même que mon ordi de travail, ils ne sont même pas dans la même pièce), j'ai :
blablabla.insert xldown xlFormatFromLeftOrAbove

Merci d'avance

[Philippe Tulliez]

Bonjour,
Je suis étonné de ce que tu décris mais n'ayant pas ton code sous les yeux, je ne peux pas affirmer non plus que ce n'est pas possible.
En tous les cas manuellement ou en VBA avec le code ci-dessous, un contrôle ActiveX ou formulaire placé par exemple au-dessus de la cellule B2 se déplacera.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(2).Insert

Sauf si on modifie la propriété de positionnement de l'objet.
1) Clic droit sur le contrôle et sélectionner Format de contrôle... dans le menu contextuel.
2) Sélection de l'onglet [Propriétés] dans la boîte de dialogue Format de contrôle et sélectionner l'option Ne pas déplacer ou dimensionner avec les cellules
Le contrôle ne bougera plus.

[Uranne-jimmy]

Bonjour, merci de venir t'intéresser à mon cas

C'est une insertion de ligne, mais j'imagine que ça ne change pas grand chose ^^
Je vais voir si quand je crée mon objet checkbox par code, la valeur de l'option dont tu m'as parlé est sur "ne pas déplacer", si c'est le cas, ça règle tout. Mais j'ai pas bon espoir, j'ai déjà essayé d'insérer manuellement une ligne sur une ligne comportant une CB mise par macro, et ça marchait.

C'est un objet de type checkbox, au début je le faisais avec OleObjects mais maintenant j'ai simplifié en créant un objet comme ceci :
Dim cb as checkbox
cb = worksheet.add(...)

J'ai pas cherché (encore une fois parce que j'ai un accès limité au net) mais je pense que c'est de l'activeX.

[Philippe Tulliez]

Bonjour,
Je n'avais pas compris que la création du contrôle était faite par le code VBA.
Dans ce cas, la propriété Placement de l'objet Shape doit avoir comme la valeur de la constante xlFreeFloating
Exemple pour l'ensemble des contrôles (Formulaire et ActiveX) de la feuille active.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Dim sh As Shape
 For Each sh In ActiveSheet.Shapes
  sh.Placement = xlFreeFloating
 Next

[Uranne-jimmy]

J'ai tenté le coup mais ça ne marche pas.
Voici le code de création du control :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim cb As CheckBox
        Set cb = .CheckBoxes.Add(Left:=.Cells(Ligne, 1).Left, Top:=.Cells(Ligne, 1).Top, Height:=10, Width:=10)
        cb.Name = "CB_" & ID
        ID = ID + 1
        cb.Text = ""
        cb.LinkedCell = .Cells(Ligne, 1).Address
        cb.Value = False
        cb.Placement = xlFreeFloating

Et l'insertion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets(1).Cells(i, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

...
J'ai testé en enlevant la fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Worksheets(1).Cells(i, 2).Insert

Et ça marche ...
Je pense qu'il fallait bien changer le placement et insert ensuite, mais avec les valeurs par défaut. :/
Merci bien ^^'

[Philippe Tulliez]

Bonjour,
Avec des contrôles placés sur plusieurs lignes des colonnes A, B et C et cette ligne de code pas de problèmes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil2.Range("A4:C5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Je n'ai pas encore testé avec Cells mais je pense que ce sera pareil

[EDIT]
Je confirme que cela fonctionne aussi avec Cells, les contrôles ne bougent pas et je n'ai pas d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With Feuil2
 .Range(.Cells(4, 1), .Cells(4, 3)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 End With

[Uranne-jimmy]

Merci pour ton aide, en effet sauf erreur, ça marche très bien sur ce que j'ai testé ^^
Je mets le sujet en résolu