Comment aligner verticalment des cases a cocher

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2011

• #2

Re : Comment aligner verticalment des cases a cocher

Bonjour,

manque de précision tout ca... peut être qu'un petit fichier en pièce jointe représentant uniquement le problème posé serait plus facile pour t'aider...

bonne journée
@+

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 11 Octobre 2011

• #3

Re : Comment aligner verticalment des cases a cocher

voila un exemple car les mots ne suffisent pas

 

Pièces jointes

• essai.xlsx

  18 KB · Affichages: 174
• essai.xlsx

  18 KB · Affichages: 180
• essai.xlsx

  18 KB · Affichages: 167

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2011

• #4

Re : Comment aligner verticalment des cases a cocher

Re,

regarde le code ci-dessous :

Code:

Option Explicit
Sub test()
Dim s As Shape
For Each s In ActiveSheet.Shapes
    s.Left = 10
Next s
End Sub

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 11 Octobre 2011

• #5

Re : Comment aligner verticalment des cases a cocher

c est a dire que dois je faire avec ceci?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Octobre 2011

• #6

Re : Comment aligner verticalment des cases a cocher

Bonjour 306255

Salut ami Pierrot 🙂 🙂

A tester;

Code:

Sub Macro1()
For Each ch In ActiveSheet.Shapes
If InStr(ch.Name, "Check Box") <> 0 Then
  ch.Left = 10
End If
Next
End Sub

Edit : a la bourre moi !!!
Il faut creer un module (Developpeur > Visual basic > insertion > Module)
copier/coller la macro et la lancer

 

Dernière édition: 11 Octobre 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2011

• #7

Re : Comment aligner verticalment des cases a cocher

Re,

à placer dans un module standard, ALT F11 pour ouvrir l'éditeur vba, attention sous 2007 il faut enregistrer ton classeur en "xlsm" pour prise en compte des macros... tu peux ensuite associer ce code avec un bouton au autre...

Edition : bonjour PierreJean🙂

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 11 Octobre 2011

• #8

Re : Comment aligner verticalment des cases a cocher

C est radical tout a disparu lol

pierrejean à dit:

Bonjour 306255

Salut ami Pierrot 🙂 🙂

A tester;

Code:

Sub Macro1()
For Each ch In ActiveSheet.Shapes
If InStr(ch.Name, "Check Box") <> 0 Then
  ch.Left = 10
End If
Next
End Sub

Edit : a la bourre moi !!!
Il faut creer un module (Developpeur > Visual basic > insertion > Module)
copier/coller la macro et la lancer

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Octobre 2011

• #9

Re : Comment aligner verticalment des cases a cocher

Re

Le revoila ton fichier

 

Pièces jointes

• 306255_essai.xlsm

  23.8 KB · Affichages: 163

Vote positif 0 Vote négatif