Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format identique.
Sur la première feuille, j'ai figé les lignes 1-5 de telles sortes à les
avoir tout en déroulant et j'ai crée 2 boutons pour lancer des macros.
Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne marche
pas.
Merci de votre aide.
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format identique.
Sur la première feuille, j'ai figé les lignes 1-5 de telles sortes à les
avoir tout en déroulant et j'ai crée 2 boutons pour lancer des macros.
Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne marche
pas.
Merci de votre aide.
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format identique.
Sur la première feuille, j'ai figé les lignes 1-5 de telles sortes à les
avoir tout en déroulant et j'ai crée 2 boutons pour lancer des macros.
Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne marche
pas.
Merci de votre aide.
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de telles
sortes à les avoir tout en déroulant et j'ai crée 2 boutons pour
lancer des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode
? j'ai essayé de grouper les feuilles mais avec copier coller ça ne
marche pas.
Merci de votre aide.
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de telles
sortes à les avoir tout en déroulant et j'ai crée 2 boutons pour
lancer des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode
? j'ai essayé de grouper les feuilles mais avec copier coller ça ne
marche pas.
Merci de votre aide.
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de telles
sortes à les avoir tout en déroulant et j'ai crée 2 boutons pour
lancer des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode
? j'ai essayé de grouper les feuilles mais avec copier coller ça ne
marche pas.
Merci de votre aide.
bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top, c.Width,
c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format identique.
Sur la première feuille, j'ai figé les lignes 1-5 de telles sortes à les
avoir tout en déroulant et j'ai crée 2 boutons pour lancer des macros.
Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne marche
pas.
Merci de votre aide.
bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top, c.Width,
c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format identique.
Sur la première feuille, j'ai figé les lignes 1-5 de telles sortes à les
avoir tout en déroulant et j'ai crée 2 boutons pour lancer des macros.
Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne marche
pas.
Merci de votre aide.
bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top, c.Width,
c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format identique.
Sur la première feuille, j'ai figé les lignes 1-5 de telles sortes à les
avoir tout en déroulant et j'ai crée 2 boutons pour lancer des macros.
Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne marche
pas.
Merci de votre aide.
Merci beaucoup, un petit copier/coller et voilà tous mes boutons en
bonne place. Juste comme on dit pour ma culture personnelle !! on puis
je trouver la correspondance des valeurs numériques et des couleurs
correspondantes.
"isabelle" a écrit dans le message de
news:bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top,
c.Width, c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de
telles sortes à les avoir tout en déroulant et j'ai crée 2 boutons
pour lancer des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11
feuilles restantes. Dois je le faire une par une ou utiliser une
autre méthode ? j'ai essayé de grouper les feuilles mais avec copier
coller ça ne marche pas.
Merci de votre aide.
Merci beaucoup, un petit copier/coller et voilà tous mes boutons en
bonne place. Juste comme on dit pour ma culture personnelle !! on puis
je trouver la correspondance des valeurs numériques et des couleurs
correspondantes.
"isabelle" <i@v> a écrit dans le message de
news:ujfB0bvWKHA.5208@TK2MSFTNGP05.phx.gbl...
bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top,
c.Width, c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de
telles sortes à les avoir tout en déroulant et j'ai crée 2 boutons
pour lancer des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11
feuilles restantes. Dois je le faire une par une ou utiliser une
autre méthode ? j'ai essayé de grouper les feuilles mais avec copier
coller ça ne marche pas.
Merci de votre aide.
Merci beaucoup, un petit copier/coller et voilà tous mes boutons en
bonne place. Juste comme on dit pour ma culture personnelle !! on puis
je trouver la correspondance des valeurs numériques et des couleurs
correspondantes.
"isabelle" a écrit dans le message de
news:bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top,
c.Width, c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de
telles sortes à les avoir tout en déroulant et j'ai crée 2 boutons
pour lancer des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11
feuilles restantes. Dois je le faire une par une ou utiliser une
autre méthode ? j'ai essayé de grouper les feuilles mais avec copier
coller ça ne marche pas.
Merci de votre aide.
bonjour Dyj,
pour connaitre le numéro d'une couleur
met les cellules de la colonne A à la couleur de ton choix et utilise
cette fonction pour en connaitre le numéro,
Function couleur(cellule As Range)
couleur = cellule.Interior.ColorIndex
End Function
en colonne B la formule
=couleur(A1)
isabelle
Dyj a écrit :Merci beaucoup, un petit copier/coller et voilà tous mes boutons en bonne
place. Juste comme on dit pour ma culture personnelle !! on puis je
trouver la correspondance des valeurs numériques et des couleurs
correspondantes.
"isabelle" a écrit dans le message de
news:bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top,
c.Width, c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de telles
sortes à les avoir tout en déroulant et j'ai crée 2 boutons pour lancer
des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne
marche pas.
Merci de votre aide.
bonjour Dyj,
pour connaitre le numéro d'une couleur
met les cellules de la colonne A à la couleur de ton choix et utilise
cette fonction pour en connaitre le numéro,
Function couleur(cellule As Range)
couleur = cellule.Interior.ColorIndex
End Function
en colonne B la formule
=couleur(A1)
isabelle
Dyj a écrit :
Merci beaucoup, un petit copier/coller et voilà tous mes boutons en bonne
place. Juste comme on dit pour ma culture personnelle !! on puis je
trouver la correspondance des valeurs numériques et des couleurs
correspondantes.
"isabelle" <i@v> a écrit dans le message de
news:ujfB0bvWKHA.5208@TK2MSFTNGP05.phx.gbl...
bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top,
c.Width, c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :
Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de telles
sortes à les avoir tout en déroulant et j'ai crée 2 boutons pour lancer
des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne
marche pas.
Merci de votre aide.
bonjour Dyj,
pour connaitre le numéro d'une couleur
met les cellules de la colonne A à la couleur de ton choix et utilise
cette fonction pour en connaitre le numéro,
Function couleur(cellule As Range)
couleur = cellule.Interior.ColorIndex
End Function
en colonne B la formule
=couleur(A1)
isabelle
Dyj a écrit :Merci beaucoup, un petit copier/coller et voilà tous mes boutons en bonne
place. Juste comme on dit pour ma culture personnelle !! on puis je
trouver la correspondance des valeurs numériques et des couleurs
correspondantes.
"isabelle" a écrit dans le message de
news:bonjour Dyj,
Sub CréationBouton()
Dim c As Range
For i = 2 To 12
Sheets(i).Activate
Range("A6").Select
ActiveWindow.FreezePanes = True
With ActiveSheet
With Union(.Range("B1"), .Range("D1")) ' à adapter
Application.ScreenUpdating = False
For Each c In .Cells
x = x + 1
With .Parent.Shapes.AddShape(msoShapeBevel, c.Left, c.Top,
c.Width, c.Height)
.Fill.ForeColor.SchemeColor = 7
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = "MonBouton" & x
.OLEFormat.Object.OnAction = "Bouton_Click" & x
End With
Next
End With
End With
x = 0
Next i
End Sub
Sub Bouton_Click1()
MsgBox "essai 1"
End Sub
Sub Bouton_Click2()
MsgBox "essai 2"
End Sub
isabelle
Dyj a écrit :Bonjour,
Mon système, Vista Home premium et Office 2007.
J'ai un classeur xlsm qui est composé de 12 feuilles au format
identique. Sur la première feuille, j'ai figé les lignes 1-5 de telles
sortes à les avoir tout en déroulant et j'ai crée 2 boutons pour lancer
des macros. Tout fonctionne comme je l'espérai.
Maintenant, je voudrai appliquer ces caractéristiques aux 11 feuilles
restantes. Dois je le faire une par une ou utiliser une autre méthode ?
j'ai essayé de grouper les feuilles mais avec copier coller ça ne
marche pas.
Merci de votre aide.
Salut à toi
Soit Feuil1 la feuille à recopier
Tu peux utiliser ce code :
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil1" Then
Nom = Sheets(i).Name
Sheets("Feuil1").Copy Sheets(i)
Application.DisplayAlerts = False
Sheets(Nom).Delete
ActiveSheet.Name = Nom
End If
Next
Il recopie la Feuil1 autant fois qu'il y a d'autres feuilles (11 pour ton
cas) sur des nouvelles feuilles en récupérant le nom de chaque feuille
existante qu'il supprime ensuite
Fais des essais et dis moi !!!!!
Salut à toi
Soit Feuil1 la feuille à recopier
Tu peux utiliser ce code :
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil1" Then
Nom = Sheets(i).Name
Sheets("Feuil1").Copy Sheets(i)
Application.DisplayAlerts = False
Sheets(Nom).Delete
ActiveSheet.Name = Nom
End If
Next
Il recopie la Feuil1 autant fois qu'il y a d'autres feuilles (11 pour ton
cas) sur des nouvelles feuilles en récupérant le nom de chaque feuille
existante qu'il supprime ensuite
Fais des essais et dis moi !!!!!
Salut à toi
Soit Feuil1 la feuille à recopier
Tu peux utiliser ce code :
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Feuil1" Then
Nom = Sheets(i).Name
Sheets("Feuil1").Copy Sheets(i)
Application.DisplayAlerts = False
Sheets(Nom).Delete
ActiveSheet.Name = Nom
End If
Next
Il recopie la Feuil1 autant fois qu'il y a d'autres feuilles (11 pour ton
cas) sur des nouvelles feuilles en récupérant le nom de chaque feuille
existante qu'il supprime ensuite
Fais des essais et dis moi !!!!!