Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Modife Insertion dans plusieurs pages

Modife Insertion dans plusieurs pages

8 réponses
Avatar
Charly
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et MARS ?
D'avance merci
Signaler un problème avec ce contenu

8 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
garnote
Salut Charly,

Un exemple pouvant peut-être te donner des idées :

Sub Insère()
For i = 1 To 3
Worksheets(i).Range("C5") = 666
Next i
End Sub

Serge

"Charly" a écrit dans le message de news:
43502a9a$0$16965$
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et MARS
?
D'avance merci




Avatar
LSteph
Bonjour,

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets.Select
Range("a1").Select
ActiveCell = TextBox1
End Sub

'lSteph
"Charly" a écrit dans le message de news:
43502a9a$0$16965$
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et MARS
?
D'avance merci




Avatar
michdenis
Bonjour Charley,

Il y a aussi ceci :

'-----------------------------
Sub Insere()

Dim N As String
Application.ScreenUpdating = False
N = ActiveSheet.Name
Worksheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Range("G25").Select
ActiveCell.FormulaR1C1 = 100
Sheets(N).Select

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


Salutations!


"Charly" a écrit dans le message de news: 43502a9a$0$16965$
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et MARS ?
D'avance merci
Avatar
LSteph
...encore loupé un détail

Private Sub CommandButton1_Click()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
If sh.Index < 4 Then
sh.[a1] = TextBox1
End If
Next

End Sub

"LSteph" a écrit dans le message de news:

Bonjour,

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets.Select
Range("a1").Select
ActiveCell = TextBox1
End Sub

'lSteph
"Charly" a écrit dans le message de news:
43502a9a$0$16965$
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et
MARS ?
D'avance merci








Avatar
Charly
LSteph
Merci de t'être penché sur mon probleme
Malheureusement je ne pensais pas que cela soit si complexe et j'aurais du
être plus précis, car cela fonctionne bien sur un classeur vierge mais pas
avec ce que j'entreprends.
Ce classeur est un planning prévisionnel de congés.
Chaque feuille est constitué d'un tableau identique représentant les mois,
avec en colonne A, les personnes insérées via le userform et de B à AF, les
jours du mois.
L'insertion actuelle se fait sur une page avec tri automatique sur les
plages concernées par ordre alphabétique.
Je dois dire que ce code m'a été donné sur les forums, que je suis plus que
débutant et que ca commence à urger avant la prévision annuelle dans 10
jours.
Alors après beaucoup de recherches et documentation, je n'ai plus trop le
choix que de demander directement.
Si tu désires m'aider plus particulièrement:
D'avance merci

Je te présente donc l'ensemble du codage utilisé:
'ici c'est l'initialisation du UserForm
Private Sub UserForm_Initialize()
'Ici je remplis les textbOx de n'importe quoi, "String" ou ....
TextBox1.Value = ""

'Ici je précise ce que je veux d'affiché dans les bouton...
'Au passage la Propriété Défault à True, rend le bouton actif à la touche
Entrée( oui oui !! lol)
With CommandButton1
.Caption = "Validation"
.Default = True
End With
CommandButton2.Caption = "Annuler"


End Sub


'ici c'est ce qui se passe quand on click sur le Bouton "Validation"
Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro


'ici je repère la dernière ligne vide pour la Collections des données
With Worksheets("JANV")
L = .Range("A65536").End(xlUp).Row
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
.Range("A" & L).EntireRow.Select 'ici on sélectionne la dernière ligne
non vide du tableau
Selection.Insert Shift:=xlDown 'on insère une ligne en descendant
la ligne selectionnée
.Range("B17:" & "AF" & L).Select
Selection.borderS.LineStyle = xlContinuous 'ici on formate les
bordures
'ici on recopie les formules de la ligne du dessus dans les cellules de la
nouvelle ligne
.Range("AG" & L - 1 & ":" & "AJ" & L - 1).Select
Selection.AutoFill Destination:=Range("AG" & L - 1 & ":" & "AJ" & L),
Type:=xlFillDefault
.Range("A" & L).Select
'ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!
If TextBox1 = "" Then
MsgBox "Entrez le nom ou Annulez!"
TextBox1.SetFocus
Exit Sub
End If

'Pour voir se qui se passe je bascule sur la feuille "Janvier"
Sheets("JANV").Activate


'Ici c'est le report de la saisie dans la feuille

.Range("A" & L).Value = TextBox1.Value
L = .Range("A65536").End(xlUp).Row - 1
.Range("A17:AJ" & L).Select
Selection.Sort Key1:=Range("A17"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
.Range("A1").Select
End With
'Ici je vide les trois TextBox
TextBox1.Value = ""


'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub

'ici c'est le Bouton Exit .........
Private Sub CommandButton2_Click()
Unload UserForm1 'on peut écrire aussi "Unload Me"
End Sub

----- Original Message -----
From: "LSteph"
Newsgroups: microsoft.public.fr.excel
Sent: Saturday, October 15, 2005 12:48 AM
Subject: Re: Modife Insertion dans plusieurs pages


...encore loupé un détail

Private Sub CommandButton1_Click()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
If sh.Index < 4 Then
sh.[a1] = TextBox1
End If
Next

End Sub

"LSteph" a écrit dans le message de news:

Bonjour,

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets.Select
Range("a1").Select
ActiveCell = TextBox1
End Sub

'lSteph
"Charly" a écrit dans le message de news:
43502a9a$0$16965$
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et
MARS ?
D'avance merci












Avatar
Pegaze
salut charly
Sur le code de validation tu as
With Worksheets("JANV")
donc ton code ne fonctionneras que sur la feuille "JANV"
Pourquoi ne pas faire un copier coller de ta boucle en indiquant a chaque
fois le non de ta feuille
Ici 3 fois le meme code avec JANV, FEV, MARS....
Ce n'est pas tres optinal mais ca peu t'aide ne voyant pas exactement le
code et ton besoin


LSteph
Merci de t'être penché sur mon probleme
Malheureusement je ne pensais pas que cela soit si complexe et j'aurais du
être plus précis, car cela fonctionne bien sur un classeur vierge mais pas
avec ce que j'entreprends.
Ce classeur est un planning prévisionnel de congés.
Chaque feuille est constitué d'un tableau identique représentant les mois,
avec en colonne A, les personnes insérées via le userform et de B à AF, les
jours du mois.
L'insertion actuelle se fait sur une page avec tri automatique sur les
plages concernées par ordre alphabétique.
Je dois dire que ce code m'a été donné sur les forums, que je suis plus que
débutant et que ca commence à urger avant la prévision annuelle dans 10
jours.
Alors après beaucoup de recherches et documentation, je n'ai plus trop le
choix que de demander directement.
Si tu désires m'aider plus particulièrement:
D'avance merci

Je te présente donc l'ensemble du codage utilisé:
'ici c'est l'initialisation du UserForm
Private Sub UserForm_Initialize()
'Ici je remplis les textbOx de n'importe quoi, "String" ou ....
TextBox1.Value = ""

'Ici je précise ce que je veux d'affiché dans les bouton...
'Au passage la Propriété Défault à True, rend le bouton actif à la touche
Entrée( oui oui !! lol)
With CommandButton1
..Caption = "Validation"
..Default = True
End With
CommandButton2.Caption = "Annuler"


End Sub


'ici c'est ce qui se passe quand on click sur le Bouton "Validation"
Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro


'ici je repère la dernière ligne vide pour la Collections des données
With Worksheets("JANV")
L = .Range("A65536").End(xlUp).Row
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
.Range("A" & L).EntireRow.Select 'ici on sélectionne la dernière ligne
non vide du tableau
Selection.Insert Shift:=xlDown 'on insère une ligne en descendant
la ligne selectionnée
.Range("B17:" & "AF" & L).Select
Selection.borderS.LineStyle = xlContinuous 'ici on formate les
bordures
'ici on recopie les formules de la ligne du dessus dans les cellules de la
nouvelle ligne
.Range("AG" & L - 1 & ":" & "AJ" & L - 1).Select
Selection.AutoFill Destination:=Range("AG" & L - 1 & ":" & "AJ" & L),
Type:=xlFillDefault
.Range("A" & L).Select
'ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!
If TextBox1 = "" Then
MsgBox "Entrez le nom ou Annulez!"
TextBox1.SetFocus
Exit Sub
End If

'Pour voir se qui se passe je bascule sur la feuille "Janvier"
Sheets("JANV").Activate


'Ici c'est le report de la saisie dans la feuille

.Range("A" & L).Value = TextBox1.Value
L = .Range("A65536").End(xlUp).Row - 1
.Range("A17:AJ" & L).Select
Selection.Sort Key1:=Range("A17"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
.Range("A1").Select
End With
'Ici je vide les trois TextBox
TextBox1.Value = ""


'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub

'ici c'est le Bouton Exit .........
Private Sub CommandButton2_Click()
Unload UserForm1 'on peut écrire aussi "Unload Me"
End Sub

----- Original Message -----
From: "LSteph"
Newsgroups: microsoft.public.fr.excel
Sent: Saturday, October 15, 2005 12:48 AM
Subject: Re: Modife Insertion dans plusieurs pages


...encore loupé un détail

Private Sub CommandButton1_Click()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
If sh.Index < 4 Then
sh.[a1] = TextBox1
End If
Next

End Sub

"LSteph" a écrit dans le message de news:

Bonjour,

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets.Select
Range("a1").Select
ActiveCell = TextBox1
End Sub

'lSteph
"Charly" a écrit dans le message de news:
43502a9a$0$16965$
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et
MARS ?
D'avance merci

















Avatar
Pegaze
essai un ca par exemple

Private Sub CommandButton1_Click()

Dim onglet1, onglet2, onglet3 As String
onglet1 = "JANV"
onglet2 = "FEV"
onglet3 = "MARS"

maj (onglet1)
maj (onglet2)
maj (onglet3)
End Sub

Sub maj(feuille As String)


Dim L As Integer
With Worksheets(feuille)
L = .Range("A65536").End(xlUp).Row
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
.Range("A" & L).EntireRow.Select
Selection.Insert Shift:=xlDown
.Range("B17:" & "AF" & L).Select
Selection.Borders.LineStyle = xlContinuous
.Range("AG" & L - 1 & ":" & "AJ" & L - 1).Select
Selection.AutoFill Destination:=Range("AG" & L - 1 & ":" & "AJ" &
),Type:=xlFillDefault
.Range("A" & L).Select

If TextBox1 = "" Then
MsgBox "Entrez le nom ou Annulez!"
TextBox1.SetFocus
Exit Sub
End If

Sheets(feuille).Activate

.Range("A" & L).Value = TextBox1.Value
L = .Range("A65536").End(xlUp).Row - 1
.Range("A17:AJ" & L).Select

Selection.Sort Key1:=Range("A17"), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
.Range("A1").Select
End With

TextBox1.Value = ""

TextBox1.SetFocus
End Sub
Avatar
LSteph
Bonsoir,

Dans le processus qui entre quoi?
à quoi sert le userform?
Si tu veux j'ai un calendrier:
tu entres les noms dans la première feuille
et après tu déploies celles des autres mois par macro
les samedis dimanches et jours fériés sont repèrés par une couleur grâce à
une fonction.
un bouton sert à colorer ou décolorer les absences.
http://cjoint.com/?kktYnp1QR3


lSteph

"Charly" a écrit dans le message de news:
4350e5df$0$15094$
LSteph
Merci de t'être penché sur mon probleme
Malheureusement je ne pensais pas que cela soit si complexe et j'aurais du
être plus précis, car cela fonctionne bien sur un classeur vierge mais pas
avec ce que j'entreprends.
Ce classeur est un planning prévisionnel de congés.
Chaque feuille est constitué d'un tableau identique représentant les mois,
avec en colonne A, les personnes insérées via le userform et de B à AF,
les
jours du mois.
L'insertion actuelle se fait sur une page avec tri automatique sur les
plages concernées par ordre alphabétique.
Je dois dire que ce code m'a été donné sur les forums, que je suis plus
que
débutant et que ca commence à urger avant la prévision annuelle dans 10
jours.
Alors après beaucoup de recherches et documentation, je n'ai plus trop le
choix que de demander directement.
Si tu désires m'aider plus particulièrement:
D'avance merci

Je te présente donc l'ensemble du codage utilisé:
'ici c'est l'initialisation du UserForm
Private Sub UserForm_Initialize()
'Ici je remplis les textbOx de n'importe quoi, "String" ou ....
TextBox1.Value = ""

'Ici je précise ce que je veux d'affiché dans les bouton...
'Au passage la Propriété Défault à True, rend le bouton actif à la touche
Entrée( oui oui !! lol)
With CommandButton1
.Caption = "Validation"
.Default = True
End With
CommandButton2.Caption = "Annuler"


End Sub


'ici c'est ce qui se passe quand on click sur le Bouton "Validation"
Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne
Numéro


'ici je repère la dernière ligne vide pour la Collections des données
With Worksheets("JANV")
L = .Range("A65536").End(xlUp).Row
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
.Range("A" & L).EntireRow.Select 'ici on sélectionne la dernière ligne
non vide du tableau
Selection.Insert Shift:=xlDown 'on insère une ligne en descendant
la ligne selectionnée
.Range("B17:" & "AF" & L).Select
Selection.borderS.LineStyle = xlContinuous 'ici on formate les
bordures
'ici on recopie les formules de la ligne du dessus dans les cellules de
la
nouvelle ligne
.Range("AG" & L - 1 & ":" & "AJ" & L - 1).Select
Selection.AutoFill Destination:=Range("AG" & L - 1 & ":" & "AJ" & L),
Type:=xlFillDefault
.Range("A" & L).Select
'ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!
If TextBox1 = "" Then
MsgBox "Entrez le nom ou Annulez!"
TextBox1.SetFocus
Exit Sub
End If

'Pour voir se qui se passe je bascule sur la feuille "Janvier"
Sheets("JANV").Activate


'Ici c'est le report de la saisie dans la feuille

.Range("A" & L).Value = TextBox1.Value
L = .Range("A65536").End(xlUp).Row - 1
.Range("A17:AJ" & L).Select
Selection.Sort Key1:=Range("A17"), Order1:=xlAscending,
Header:=xlGuess,
_
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
.Range("A1").Select
End With
'Ici je vide les trois TextBox
TextBox1.Value = ""


'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub

'ici c'est le Bouton Exit .........
Private Sub CommandButton2_Click()
Unload UserForm1 'on peut écrire aussi "Unload Me"
End Sub

----- Original Message -----
From: "LSteph"
Newsgroups: microsoft.public.fr.excel
Sent: Saturday, October 15, 2005 12:48 AM
Subject: Re: Modife Insertion dans plusieurs pages


...encore loupé un détail

Private Sub CommandButton1_Click()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
If sh.Index < 4 Then
sh.[a1] = TextBox1
End If
Next

End Sub

"LSteph" a écrit dans le message de news:

Bonjour,

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets.Select
Range("a1").Select
ActiveCell = TextBox1
End Sub

'lSteph
"Charly" a écrit dans le message de news:
43502a9a$0$16965$
Bonjour à Tous

J'utilise un userform afin d'insérer automatiquement des données.
J'aimerai insérer cette donnée dans toute mes page d'un clic.
J'utilise ceci actuellement : With Worksheets("JANV")
Commenet modifier afin de l'insérer également dans la feuille FEVR et
MARS ?
D'avance merci