ecrir sur plusieur feuilles ?

MacMac · 28 Juillet 2007

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

Temjeh · 28 Juillet 2007

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

MacMac · 28 Juillet 2007

Re : ecrir sur plusieur feuilles ?

Merci de Ta reponseTemjeh

je viens de tester se code mais le hic tout vas cumule annuel mais rein dans cumul

j'ai essayer plein de solution mais impossible de trouver

Temjeh · 28 Juillet 2007

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

MacMac · 28 Juillet 2007

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

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

merci de m'eclairer

MacMac

Temjeh · 28 Juillet 2007

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

MacMac · 28 Juillet 2007

Re : ecrir sur plusieur feuilles ?

Merci je vais tester pour voir
Parcontre concernant la boucle car je suis novice en la matiere de code

et je pense que sa me simplifirai un peu la tache .

MacMac

MacMac · 28 Juillet 2007

Re : ecrir sur plusieur feuilles ?

je vien de tester sa ne fonctionne pas desoler mais suis un peu perdu

Temjeh · 29 Juillet 2007

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

ecrir sur plusieur feuilles ?

MacMac

XLDnaute Occasionnel

Temjeh

XLDnaute Accro

MacMac

XLDnaute Occasionnel

Temjeh

XLDnaute Accro

MacMac

XLDnaute Occasionnel

Temjeh

XLDnaute Accro

MacMac

XLDnaute Occasionnel

MacMac

XLDnaute Occasionnel

Temjeh

XLDnaute Accro

Discussions similaires

ecrir sur plusieur feuilles ?

XLDnaute Occasionnel

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency