Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème de Dim

Problème de Dim

10 réponses
Avatar
Alain Boucher
Bonjour à tous et merci pour les excellentes informations que je trouve sur
ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi. Qqun a
une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher
EnleverAboucher@videotron.ca
Évidemment, enlever enlever...


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Nicolas B.
Salut Alain,

a est une variable String, pas un bouton et tu ne peux donc pas définir sa
propriété Font.Bold.
Tu peux par contre faire ainsi :
Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
userform1.controls(a).Font.Bold = False
Next
End Sub


A+
--
Nicolas B.


Bonjour à tous et merci pour les excellentes informations que je
trouve sur ce forum, c'est fantastique, j'avance à pas de géant en
VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi.
Qqun a une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09


Avatar
Alain Boucher
Salut Nicolas, on sent que ca approche mais ca ne marche pas, mes boutons ne
sont pas dans un userform mais bien dans une feuille. Après ton message j'ai
bien essayé de changer userform1 par sheets("analyse") mais ca ne marche
toujours pas.
On continue?
Merci déjà

--
Alain Boucher

Évidemment, enlever enlever...
"Nicolas B." a écrit dans le message de
news:
Salut Alain,

a est une variable String, pas un bouton et tu ne peux donc pas définir sa
propriété Font.Bold.
Tu peux par contre faire ainsi :
Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
userform1.controls(a).Font.Bold = False
Next
End Sub


A+
--
Nicolas B.


Bonjour à tous et merci pour les excellentes informations que je
trouve sur ce forum, c'est fantastique, j'avance à pas de géant en
VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi.
Qqun a une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09






---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09


Avatar
isabelle
bonjour Alain,

essaie comme ça pour des boutons issue de la barre d'outils formulaire,

Sub essai()
Dim i As Integer
Dim a As String
For i = 3 To 4
a = "Button " & i
ActiveSheet.Shapes(a).Select
With Selection.Font
.FontStyle = "Gras"
End With
Next
Range("A1").Select
End Sub

isabelle


Bonjour à tous et merci pour les excellentes informations que je trouve sur
ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi. Qqun a
une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...

---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09


Avatar
Michel Pierron
Bonjour Alain;
With ThisWorkbook.Sheets(1)
For Each Btn In .Buttons
Btn.Font.FontStyle = "Normal"
Next Btn
End With

MP

"Alain Boucher" a écrit dans le message de
news:izQfc.32419$
Bonjour à tous et merci pour les excellentes informations que je trouve sur
ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi. Qqun a
une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09




Avatar
Alain Boucher
Bonjour et merci Isabelle mais ca ne marche pas, mes boutons viennent de la
barre d'outils contrôle, y a t-il une modification à enlever à ta procédure?

--
Alain Boucher

Évidemment, enlever enlever...
"isabelle" a écrit dans le message de news:

bonjour Alain,

essaie comme ça pour des boutons issue de la barre d'outils formulaire,

Sub essai()
Dim i As Integer
Dim a As String
For i = 3 To 4
a = "Button " & i
ActiveSheet.Shapes(a).Select
With Selection.Font
.FontStyle = "Gras"
End With
Next
Range("A1").Select
End Sub

isabelle


Bonjour à tous et merci pour les excellentes informations que je trouve
sur


ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi. Qqun
a


une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...

---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09




---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09


Avatar
isabelle
bonjour Alain,

oui, beaucoup à modifier. pour les CommandButton il y a une différence
entre le "caption" et le "nom"

With Worksheets("Feuil1")
For i = 1 To .Shapes.Count
.Shapes("CommandButton" & i).OLEFormat.Object.Object.Font.Bold = True
Next
End With

isabelle


Bonjour et merci Isabelle mais ca ne marche pas, mes boutons viennent de la
barre d'outils contrôle, y a t-il une modification à enlever à ta procédure?

--
Alain Boucher

Évidemment, enlever enlever...
"isabelle" a écrit dans le message de news:

bonjour Alain,

essaie comme ça pour des boutons issue de la barre d'outils formulaire,

Sub essai()
Dim i As Integer
Dim a As String
For i = 3 To 4
a = "Button " & i
ActiveSheet.Shapes(a).Select
With Selection.Font
.FontStyle = "Gras"
End With
Next
Range("A1").Select
End Sub

isabelle


Bonjour à tous et merci pour les excellentes informations que je trouve
sur


ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi. Qqun
a


une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...

---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09



---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09




Avatar
Alain Boucher
Isabelle, je vais passer un très bon week-end un peu grâce à toi, ca marche
de toute beauté. Afin d'aller plus loin, serais-je mieux d'utiliser les
boutons formulaires, y a-t-il des avantages?

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...
"isabelle" a écrit dans le message de news:

bonjour Alain,

oui, beaucoup à modifier. pour les CommandButton il y a une différence
entre le "caption" et le "nom"

With Worksheets("Feuil1")
For i = 1 To .Shapes.Count
.Shapes("CommandButton" & i).OLEFormat.Object.Object.Font.Bold = True
Next
End With

isabelle


Bonjour et merci Isabelle mais ca ne marche pas, mes boutons viennent de
la


barre d'outils contrôle, y a t-il une modification à enlever à ta
procédure?



--
Alain Boucher

Évidemment, enlever enlever...
"isabelle" a écrit dans le message de
news:



bonjour Alain,

essaie comme ça pour des boutons issue de la barre d'outils
formulaire,




Sub essai()
Dim i As Integer
Dim a As String
For i = 3 To 4
a = "Button " & i
ActiveSheet.Shapes(a).Select
With Selection.Font
.FontStyle = "Gras"
End With
Next
Range("A1").Select
End Sub

isabelle


Bonjour à tous et merci pour les excellentes informations que je
trouve




sur
ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi.
Qqun




a
une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...

---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09



---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09




---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09




Avatar
Alain CROS
bonjour

Sub essai()
Dim Ctrl As OLEObject
For Each Ctrl In ActiveSheet.OLEObjects
If TypeName(Ctrl.Object) = "CommandButton" Then
With Ctrl.Object
.BackColor = vbMagenta
With .Font
.Underline = xlUnderlineStyleSingle
.Bold = True
End With
End With
End If
Next Ctrl
Set Ctrl = Nothing
End Sub'AC

Alain CROS
Avatar
isabelle
j'avoue ne pas connaitre très bien les "shapes" de la barre
"Formulaire",
personnelement je trouve plus facile de manipulé les controls de la
barre d'outils Controls.
et ce sont ces controls qui sont utilisé sur un userform (boite de
dialog personnalisé).
bon w.e.
isabelle


Isabelle, je vais passer un très bon week-end un peu grâce à toi, ca marche
de toute beauté. Afin d'aller plus loin, serais-je mieux d'utiliser les
boutons formulaires, y a-t-il des avantages?

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...
"isabelle" a écrit dans le message de news:

bonjour Alain,

oui, beaucoup à modifier. pour les CommandButton il y a une différence
entre le "caption" et le "nom"

With Worksheets("Feuil1")
For i = 1 To .Shapes.Count
.Shapes("CommandButton" & i).OLEFormat.Object.Object.Font.Bold = True
Next
End With

isabelle


Bonjour et merci Isabelle mais ca ne marche pas, mes boutons viennent de
la


barre d'outils contrôle, y a t-il une modification à enlever à ta
procédure?



--
Alain Boucher

Évidemment, enlever enlever...
"isabelle" a écrit dans le message de
news:



bonjour Alain,

essaie comme ça pour des boutons issue de la barre d'outils
formulaire,




Sub essai()
Dim i As Integer
Dim a As String
For i = 3 To 4
a = "Button " & i
ActiveSheet.Shapes(a).Select
With Selection.Font
.FontStyle = "Gras"
End With
Next
Range("A1").Select
End Sub

isabelle


Bonjour à tous et merci pour les excellentes informations que je
trouve




sur
ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi.
Qqun




a
une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...

---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09



---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09



---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09






Avatar
michdenis
Bonjour Alain,

2 façons de faire selon la provenance de ton bouton de commande :


'-----------------------
Sub BoucleBoutonDeCommandeBarreOutilsControle()

Dim A As OLEObject, C As Object

With Worksheets(1)
For Each A In .OLEObjects
Set C = A.Object
If TypeOf C Is MSForms.CommandButton Then
C.Font.Bold = True
End If
Next
End With
Set A = Nothing: Set C = Nothing

End Sub
'-----------------------

'-----------------------
Sub BoucleBoutonDeCommandeBarreOutilsformulaire()

With Worksheets(1)
For Each b In .Buttons
b.Font.Bold = True
Next
End With

End Sub
'-----------------------


Salutations!



"Alain Boucher" a écrit dans le message de
news:izQfc.32419$
Bonjour à tous et merci pour les excellentes informations que je trouve sur
ce forum, c'est fantastique, j'avance à pas de géant en VBA.

Petit problème, j'ai 6 boutons nommées bouton1, 2 etc.
Je désire changer leur format et j'ai écrit ceci:

Sub essai()
Dim i As Integer
Dim a As String
For i = 1 To 6
a = "bouton" & i
a.Font.Bold = False
Next
End Sub

Ca bloque au niveau de la commande et je ne comprend pas pourquoi. Qqun a
une idée ou encore une autre facon de procéder.

Merci encore

--
Alain Boucher

Évidemment, enlever enlever...


---

Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.656 / Virus Database: 421 - Release Date: 2004/04/09