ecrir sur plusieur feuilles ?

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion MacMac
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

MacMac

XLDnaute Occasionnel
Bonjour le forum

Voila je desirerai copier les valeur d'une combo sur plusieur feuille je me sert de se code pour le realier sachant que je voudrai que sa se copie sur deux feuille identique saut le nom de feuille

With Sheets("cumul ")
.Range("C3") = .Range("C3") + Val(ComboBox82.Value)
End With

que faut il rajouter pour coller sur une autre feuille nome cumul annuel

Merci de vos sugestions
 
Trier par date Trier par votes
Re : ecrir sur plusieur feuilles ?

Bonjour

Sans trop comprendre ptêtre:

With Sheets("cumul")
With Sheets("cumul annuel")
.Range("C3") = .Range("C3") + Val(ComboBox82.Value)
End With
End With

A+

Temjeh
 
Dernière édition:
Vote positif 0 Vote négatif
Re : ecrir sur plusieur feuilles ?

Désolé ..pas testé

sous le même bouton:

With Sheets("cumul")
.Range("C3") = .Range("C3") + Val(ComboBox82.Value)
End With

With Sheets("cumul annuel")
.Range("C3") = .Range("C3") + Val(ComboBox82.Value)
End With

A+

Temjeh
 
Dernière édition:
Vote positif 0 Vote négatif
Re : ecrir sur plusieur feuilles ?

Re Temjeh

Voila je viens de corriger tout mon code mais le hic a la fin du code j'ai
End Sub

et la que je lance sa bloque a se niveaux peut m'eclairer

car je ne comprend pas grand chose la

Voici mon code actuelle

Private Sub CommandButton3_Click()
MsgBox ("N'oubliez pas le materiel avant de Sauvegardez !!! ")
'Correspond au Dates
Sheets("Base").Range("D" & 11) = ComboBox2.Text
Sheets("Base").Range("D" & 9) = ComboBox4.Text
Sheets("Base").Range("E" & 11) = ComboBox3.Text
Sheets("Base").Range("D" & 7) = ComboBox5.Text

'Correspond code Chantier
Sheets("Base").Range("J" & 21) = TextBox6.Text
Sheets("Base").Range("K" & 21) = TextBox7.Text
Sheets("Base").Range("L" & 21) = TextBox8.Text
Sheets("Base").Range("M" & 21) = TextBox9.Text
Sheets("Base").Range("N" & 21) = TextBox10.Text
Sheets("Base").Range("O" & 21) = TextBox11.Text
Sheets("Base").Range("P" & 21) = TextBox12.Text
Sheets("Base").Range("Q" & 21) = TextBox13.Text
Sheets("Base").Range("R" & 21) = TextBox14.Text
Sheets("Base").Range("S" & 21) = TextBox15.Text
Sheets("Base").Range("T" & 21) = TextBox16.Text
Sheets("Base").Range("U" & 21) = TextBox17.Text
Sheets("Base").Range("V" & 21) = TextBox18.Text

'Correspond a Joel Devassine
Sheets("Base").Range("F" & 22) = ComboBox6.Text
Sheets("Base").Range("G" & 22) = ComboBox7.Text
Sheets("Base").Range("H" & 22) = ComboBox8.Text
Sheets("Base").Range("I" & 22) = ComboBox9.Text

Sheets("Base").Range("J" & 22) = ComboBox82.Text
Sheets("Base").Range("K" & 22) = ComboBox83.Text
Sheets("Base").Range("L" & 22) = ComboBox84.Text
Sheets("Base").Range("M" & 22) = ComboBox85.Text
Sheets("Base").Range("N" & 22) = ComboBox86.Text
Sheets("Base").Range("O" & 22) = ComboBox87.Text
Sheets("Base").Range("P" & 22) = ComboBox88.Text
Sheets("Base").Range("Q" & 22) = ComboBox89.Text
Sheets("Base").Range("R" & 22) = ComboBox90.Text
Sheets("Base").Range("S" & 22) = ComboBox91.Text
Sheets("Base").Range("T" & 22) = ComboBox92.Text
Sheets("Base").Range("U" & 22) = ComboBox93.Text
Sheets("Base").Range("V" & 22) = ComboBox94.Text

With Sheets("cumul")

.Range("C3") = .Range("C3") + Val(ComboBox82.Value)
.Range("D3") = .Range("D3") + Val(ComboBox83.Value)
.Range("E3") = .Range("E3") + Val(ComboBox84.Value)
.Range("F3") = .Range("F3") + Val(ComboBox85.Value)
.Range("G3") = .Range("G3") + Val(ComboBox86.Value)
.Range("H3") = .Range("H3") + Val(ComboBox87.Value)
.Range("I3") = .Range("I3") + Val(ComboBox88.Value)
.Range("J3") = .Range("J3") + Val(ComboBox89.Value)
.Range("K3") = .Range("K3") + Val(ComboBox90.Value)
.Range("L3") = .Range("L3") + Val(ComboBox91.Value)
.Range("M3") = .Range("M3") + Val(ComboBox92.Value)
.Range("N3") = .Range("N3") + Val(ComboBox93.Value)
.Range("O3") = .Range("O3") + Val(ComboBox94.Value)
End With
With Sheets("cumul Annuel")

.Range("C3") = .Range("C3") + Val(ComboBox82.Value)
.Range("D3") = .Range("D3") + Val(ComboBox83.Value)
.Range("E3") = .Range("E3") + Val(ComboBox84.Value)
.Range("F3") = .Range("F3") + Val(ComboBox85.Value)
.Range("G3") = .Range("G3") + Val(ComboBox86.Value)
.Range("H3") = .Range("H3") + Val(ComboBox87.Value)
.Range("I3") = .Range("I3") + Val(ComboBox88.Value)
.Range("J3") = .Range("J3") + Val(ComboBox89.Value)
.Range("K3") = .Range("K3") + Val(ComboBox90.Value)
.Range("L3") = .Range("L3") + Val(ComboBox91.Value)
.Range("M3") = .Range("M3") + Val(ComboBox92.Value)
.Range("N3") = .Range("N3") + Val(ComboBox93.Value)
.Range("O3") = .Range("O3") + Val(ComboBox94.Value)
End With
End Sub
Cliquez pour agrandir...

un peut long mais desoler j'ai preferer le mettre en entier

merci de m'eclairer

MacMac
 
Vote positif 0 Vote négatif
Re : ecrir sur plusieur feuilles ?

Bonjour

Moi aussi je ne suis pas un pros mais as-tu essayé sans With sheets ... et end with

Ptêtre plus simple:

Sheets("cumul").Range("C3") = Sheets("cumul").Range("C3") + Val(ComboBox82.Value)

...etc

A+

Temjeh

PS il y aurais surement aussi une belle boucle à faire avec tout ton code
 
Vote positif 0 Vote négatif
Re : ecrir sur plusieur feuilles ?

Bonjour

Je ne suis pas un pros des boucle mais regarde le principe:

La première serait du genre:

For i = 10 To 22
Sheets("Base").Cells(21, i) = Me.Controls("Textbox" & i - 4).Text
Next i

pour remplacer:

'Correspond code Chantier
Sheets("Base").Range("J" & 21) = TextBox6.Text
Sheets("Base").Range("K" & 21) = TextBox7.Text
Sheets("Base").Range("L" & 21) = TextBox8.Text
Sheets("Base").Range("M" & 21) = TextBox9.Text
Sheets("Base").Range("N" & 21) = TextBox10.Text
Sheets("Base").Range("O" & 21) = TextBox11.Text
Sheets("Base").Range("P" & 21) = TextBox12.Text
Sheets("Base").Range("Q" & 21) = TextBox13.Text
Sheets("Base").Range("R" & 21) = TextBox14.Text
Sheets("Base").Range("S" & 21) = TextBox15.Text
Sheets("Base").Range("T" & 21) = TextBox16.Text
Sheets("Base").Range("U" & 21) = TextBox17.Text
Sheets("Base").Range("V" & 21) = TextBox18.Text


Pour la deuxième:

For i = 6 To 9
Sheets("Base").Cells(22, i) = Me.Controls("Combobox" & i).Text
Next i


...remplace:

'Correspond a Joel Devassine
Sheets("Base").Range("F" & 22) = ComboBox6.Text
Sheets("Base").Range("G" & 22) = ComboBox7.Text
Sheets("Base").Range("H" & 22) = ComboBox8.Text
Sheets("Base").Range("I" & 22) = ComboBox9.Text

Évidemment pour une boucle plus longue il faudrait mettre tes combo en ordre

...etc

A+

Temjeh
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2016 besoin d'aide sur comment créer un bouton pour effacer des données dans des cellules sur plusieurs feuilles
2
Réponses
23
Affichages
3 K
chef-gael
C
M
  • Question Question
VBA et DEVERROUILLAGE DE CELLULES SUR FEUILLES PROTEGEES
Réponses
6
Affichages
1 K
Papou-net
Papou-net
I
  • Question Question
Petit soucis de combinaison d'une macro sur deux feuilles
Réponses
2
Affichages
909
INFINITY100
I
T
  • Question Question
Comparer 2 feuilles et copier une cellule de feuille 2 à feuille1, si égalité de réf.
Réponses
1
Affichages
3 K
Toine45
T
M
  • Question Question
Cherche a simplifiez un code
Réponses
2
Affichages
637
MacMac
M
E
  • Question Question
Copie de cellules sur chaques feuilles du classeur
Réponses
10
Affichages
1 K
excelman
E
maval
  • Question Question
Modifier d'un code
Réponses
4
Affichages
37 K
maval
maval
C
  • Question Question
Macro copie sous condition et sur plusieur feuille
Réponses
2
Affichages
12 K
creolia
C
S
  • Question Question
PB code qui fonctionne sur un pc et pas un autre ???
Réponses
4
Affichages
1 K
sp3ktroom
S
F
  • Question Question
Recapitulatif de 2 feuilles sur une 3è pour une personne
Réponses
9
Affichages
17 K
fredoud
F
C
  • Question Question
probleme de macro tres long pour supresion sur plusieur feuille
Réponses
10
Affichages
1 K
creolia
C
S
  • Question Question
Macro fonctionne en 2007, mais pas en 2003...besoin d'aide
Réponses
11
Affichages
2 K
sim
S
Y
  • Question Question
[VBA]Comparaison sur différentes feuiles excel
Réponses
0
Affichages
1 K
yassoux
Y
D
  • Question Question
récuperer les valeur d'une ligne sur ListBox apres double click
Réponses
3
Affichages
7 K
deado
D
I
  • Question Question
Récupérer des données sur une page web avec accés par mdp
Réponses
11
Affichages
4 K
Icedarts
I
M
  • Question Question
Copier des donnes sur plusieur feuile
Réponses
12
Affichages
1 K
MacMac
M
M
  • Question Question
deplacer des feuilles
Réponses
5
Affichages
1 K
Pierrot93
Pierrot93
Retour