Trop grand...

H

Hollowman06

XLDnaute Nouveau
Bonjour,

Pourriez-vous me donner un conseil pour couper mon écriture :

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Sheets("Janvier 2012").Range("c8").Value = TextBox13.Value
Sheets("Janvier 2012").Range("b8").Value = TextBox10.Value
Sheets("Janvier 2012").Range("d8").Value = TextBox12.Value
Sheets("Janvier 2012").Range("f8").Value = TextBox21.Value
Sheets("Janvier 2012").Range("e8").Value = TextBox22.Value
Sheets("Janvier 2012").Range("g8").Value = TextBox23.Value
Sheets("Janvier 2012").Range("m8").Value = TextBox30.Value
Sheets("Janvier 2012").Range("n8").Value = TextBox31.Value
Sheets("Janvier 2012").Range("s8").Value = TextBox32.Value
Sheets("Janvier 2012").Range("l8").Value = TextBox36.Value
Sheets("Janvier 2012").Range("r8").Value = TextBox38.Value
Sheets("Janvier 2012").Range("t8").Value = TextBox39.Value
Sheets("Janvier 2012").Range("x8").Value = TextBox40.Value
Sheets("Janvier 2012").Range("v8").Value = TextBox41.Value
Sheets("Janvier 2012").Range("w8").Value = TextBox45.Value
Sheets("Janvier 2012").Range("u8").Value = TextBox46.Value
Sheets("Janvier 2012").Range("y8").Value = TextBox42.Value
Sheets("Janvier 2012").Range("ac8").Value = TextBox43.Value
Sheets("Janvier 2012").Range("aa8").Value = TextBox44.Value
Sheets("Janvier 2012").Range("ab8").Value = TextBox47.Value
Sheets("Janvier 2012").Range("z8").Value = TextBox48.Value
Sheets("Janvier 2012").Range("ad8").Value = TextBox49.Value
Sheets("Janvier 2012").Range("aj8").Value = TextBox50.Value
Sheets("Janvier 2012").Range("ah8").Value = TextBox51.Value
Sheets("Janvier 2012").Range("ag8").Value = TextBox52.Value
Sheets("Janvier 2012").Range("ay8").Value = TextBox79.Value
Sheets("Janvier 2012").Range("p8").Value = TextBox81.Value
Sheets("Janvier 2012").Range("az8").Value = TextBox83.Value
Sheets("Janvier 2012").Range("ba8").Value = TextBox85.Value
Sheets("Janvier 2012").Range("bb8").Value = TextBox87.Value
Sheets("Janvier 2012").Range("bc8").Value = TextBox91.Value
Sheets("Janvier 2012").Range("bd8").Value = TextBox93.Value
Sheets("Janvier 2012").Range("be8").Value = TextBox95.Value
Sheets("Janvier 2012").Range("bf8").Value = TextBox89.Value
Sheets("Janvier 2012").Range("bg8").Value = TextBox99.Value
Sheets("Janvier 2012").Range("bi8").Value = TextBox97.Value
Sheets("Janvier 2012").Range("ah43").Value = TextBox100.Value
Sheets("Janvier 2012").Range("cn8").Value = TextBox78.Value
Sheets("Janvier 2012").Range("co8").Value = TextBox80.Value
Sheets("Janvier 2012").Range("bo8").Value = TextBox82.Value
Sheets("Janvier 2012").Range("br8").Value = TextBox84.Value
Sheets("Janvier 2012").Range("cp8").Value = TextBox86.Value
Sheets("Janvier 2012").Range("cq8").Value = TextBox90.Value
Sheets("Janvier 2012").Range("bx8").Value = TextBox92.Value
Sheets("Janvier 2012").Range("ca8").Value = TextBox94.Value
Sheets("Janvier 2012").Range("cd8").Value = TextBox88.Value
Sheets("Janvier 2012").Range("cg8").Value = TextBox98.Value
Sheets("Janvier 2012").Range("cj8").Value = TextBox96.Value
End If

If OptionButton2 = True Then
Sheets("Janvier 2012").Range("c9").Value = TextBox13.Value
Sheets("Janvier 2012").Range("b9").Value = TextBox10.Value
Sheets("Janvier 2012").Range("d9").Value = TextBox12.Value
Sheets("Janvier 2012").Range("f9").Value = TextBox21.Value
Sheets("Janvier 2012").Range("e9").Value = TextBox22.Value
Sheets("Janvier 2012").Range("g9").Value = TextBox23.Value
Sheets("Janvier 2012").Range("m9").Value = TextBox30.Value
Sheets("Janvier 2012").Range("n9").Value = TextBox31.Value
Sheets("Janvier 2012").Range("s9").Value = TextBox32.Value
Sheets("Janvier 2012").Range("l9").Value = TextBox36.Value
Sheets("Janvier 2012").Range("r9").Value = TextBox38.Value
Sheets("Janvier 2012").Range("t9").Value = TextBox39.Value
Sheets("Janvier 2012").Range("x9").Value = TextBox40.Value
Sheets("Janvier 2012").Range("v9").Value = TextBox41.Value
Sheets("Janvier 2012").Range("w9").Value = TextBox45.Value
Sheets("Janvier 2012").Range("u9").Value = TextBox46.Value
Sheets("Janvier 2012").Range("y9").Value = TextBox42.Value
Sheets("Janvier 2012").Range("ac9").Value = TextBox43.Value
Sheets("Janvier 2012").Range("aa9").Value = TextBox44.Value
Sheets("Janvier 2012").Range("ab9").Value = TextBox47.Value
Sheets("Janvier 2012").Range("z9").Value = TextBox48.Value
Sheets("Janvier 2012").Range("ad9").Value = TextBox49.Value
Sheets("Janvier 2012").Range("aj9").Value = TextBox50.Value
Sheets("Janvier 2012").Range("ah9").Value = TextBox51.Value
Sheets("Janvier 2012").Range("ag9").Value = TextBox52.Value
Sheets("Janvier 2012").Range("ay9").Value = TextBox79.Value
Sheets("Janvier 2012").Range("p9").Value = TextBox81.Value
Sheets("Janvier 2012").Range("az9").Value = TextBox83.Value
Sheets("Janvier 2012").Range("ba9").Value = TextBox85.Value
Sheets("Janvier 2012").Range("bb9").Value = TextBox87.Value
Sheets("Janvier 2012").Range("bc9").Value = TextBox91.Value
Sheets("Janvier 2012").Range("bd9").Value = TextBox93.Value
Sheets("Janvier 2012").Range("be9").Value = TextBox95.Value
Sheets("Janvier 2012").Range("bf9").Value = TextBox89.Value
Sheets("Janvier 2012").Range("bg9").Value = TextBox99.Value
Sheets("Janvier 2012").Range("bi9").Value = TextBox97.Value
Sheets("Janvier 2012").Range("ah43").Value = TextBox100.Value
Sheets("Janvier 2012").Range("cn9").Value = TextBox78.Value
Sheets("Janvier 2012").Range("co9").Value = TextBox80.Value
Sheets("Janvier 2012").Range("bo9").Value = TextBox82.Value
Sheets("Janvier 2012").Range("br9").Value = TextBox84.Value
Sheets("Janvier 2012").Range("cp9").Value = TextBox86.Value
Sheets("Janvier 2012").Range("cq8").Value = TextBox90.Value
Sheets("Janvier 2012").Range("bx9").Value = TextBox92.Value
Sheets("Janvier 2012").Range("ca9").Value = TextBox94.Value
Sheets("Janvier 2012").Range("cd9").Value = TextBox88.Value
Sheets("Janvier 2012").Range("cg9").Value = TextBox98.Value
Sheets("Janvier 2012").Range("cj9").Value = TextBox96.Value
End If

If OptionButton3 = True Then
Sheets("Janvier 2012").Range("c10").Value = TextBox13.Value
Sheets("Janvier 2012").Range("b10").Value = TextBox10.Value
Sheets("Janvier 2012").Range("d10").Value = TextBox12.Value
Sheets("Janvier 2012").Range("f10").Value = TextBox21.Value
Sheets("Janvier 2012").Range("e10").Value = TextBox22.Value
Sheets("Janvier 2012").Range("g10").Value = TextBox23.Value
Sheets("Janvier 2012").Range("m10").Value = TextBox30.Value
Sheets("Janvier 2012").Range("n10").Value = TextBox31.Value
Sheets("Janvier 2012").Range("s10").Value = TextBox32.Value
Sheets("Janvier 2012").Range("l10").Value = TextBox36.Value
Sheets("Janvier 2012").Range("r10").Value = TextBox38.Value
Sheets("Janvier 2012").Range("t10").Value = TextBox39.Value
Sheets("Janvier 2012").Range("x10").Value = TextBox40.Value
Sheets("Janvier 2012").Range("v10").Value = TextBox41.Value
Sheets("Janvier 2012").Range("w10").Value = TextBox45.Value
Sheets("Janvier 2012").Range("u10").Value = TextBox46.Value
Sheets("Janvier 2012").Range("y10").Value = TextBox42.Value
Sheets("Janvier 2012").Range("ac10").Value = TextBox43.Value
Sheets("Janvier 2012").Range("aa10").Value = TextBox44.Value
Sheets("Janvier 2012").Range("ab10").Value = TextBox47.Value
Sheets("Janvier 2012").Range("z10").Value = TextBox48.Value
Sheets("Janvier 2012").Range("ad10").Value = TextBox49.Value
Sheets("Janvier 2012").Range("aj10").Value = TextBox50.Value
Sheets("Janvier 2012").Range("ah10").Value = TextBox51.Value
Sheets("Janvier 2012").Range("ag10").Value = TextBox52.Value
Sheets("Janvier 2012").Range("ay10").Value = TextBox79.Value
Sheets("Janvier 2012").Range("p10").Value = TextBox81.Value
Sheets("Janvier 2012").Range("az10").Value = TextBox83.Value
Sheets("Janvier 2012").Range("ba10").Value = TextBox85.Value
Sheets("Janvier 2012").Range("bb10").Value = TextBox87.Value
Sheets("Janvier 2012").Range("bc10").Value = TextBox91.Value
Sheets("Janvier 2012").Range("bd10").Value = TextBox93.Value
Sheets("Janvier 2012").Range("be10").Value = TextBox95.Value
Sheets("Janvier 2012").Range("bf10").Value = TextBox89.Value
Sheets("Janvier 2012").Range("bg10").Value = TextBox99.Value
Sheets("Janvier 2012").Range("bi10").Value = TextBox97.Value
Sheets("Janvier 2012").Range("ah43").Value = TextBox100.Value
Sheets("Janvier 2012").Range("cn10").Value = TextBox78.Value
Sheets("Janvier 2012").Range("co10").Value = TextBox80.Value
Sheets("Janvier 2012").Range("bo10").Value = TextBox82.Value
Sheets("Janvier 2012").Range("br10").Value = TextBox84.Value
Sheets("Janvier 2012").Range("cp10").Value = TextBox86.Value
Sheets("Janvier 2012").Range("cq10").Value = TextBox90.Value
Sheets("Janvier 2012").Range("bx10").Value = TextBox92.Value
Sheets("Janvier 2012").Range("ca10").Value = TextBox94.Value
Sheets("Janvier 2012").Range("cd10").Value = TextBox88.Value
Sheets("Janvier 2012").Range("cg10").Value = TextBox98.Value
Sheets("Janvier 2012").Range("cj10").Value = TextBox96.Value
End If

.../... (je ne peu pas mettre tout le texte car trop long, mais il y a 31 paragraphe comme ce du haut et bas)

If OptionButton29 = True Then
Sheets("Janvier 2012").Range("c36").Value = TextBox13.Value
Sheets("Janvier 2012").Range("b36").Value = TextBox10.Value
Sheets("Janvier 2012").Range("d36").Value = TextBox12.Value
Sheets("Janvier 2012").Range("f36").Value = TextBox21.Value
Sheets("Janvier 2012").Range("e36").Value = TextBox22.Value
Sheets("Janvier 2012").Range("g36").Value = TextBox23.Value
Sheets("Janvier 2012").Range("m36").Value = TextBox30.Value
Sheets("Janvier 2012").Range("n36").Value = TextBox31.Value
Sheets("Janvier 2012").Range("s36").Value = TextBox32.Value
Sheets("Janvier 2012").Range("l36").Value = TextBox36.Value
Sheets("Janvier 2012").Range("r36").Value = TextBox38.Value
Sheets("Janvier 2012").Range("t36").Value = TextBox39.Value
Sheets("Janvier 2012").Range("x36").Value = TextBox40.Value
Sheets("Janvier 2012").Range("v36").Value = TextBox41.Value
Sheets("Janvier 2012").Range("w36").Value = TextBox45.Value
Sheets("Janvier 2012").Range("u36").Value = TextBox46.Value
Sheets("Janvier 2012").Range("y36").Value = TextBox42.Value
Sheets("Janvier 2012").Range("ac36").Value = TextBox43.Value
Sheets("Janvier 2012").Range("aa36").Value = TextBox44.Value
Sheets("Janvier 2012").Range("ab36").Value = TextBox47.Value
Sheets("Janvier 2012").Range("z36").Value = TextBox48.Value
Sheets("Janvier 2012").Range("ad36").Value = TextBox49.Value
Sheets("Janvier 2012").Range("aj36").Value = TextBox50.Value
Sheets("Janvier 2012").Range("ah36").Value = TextBox51.Value
Sheets("Janvier 2012").Range("ag36").Value = TextBox52.Value
Sheets("Janvier 2012").Range("ay36").Value = TextBox79.Value
Sheets("Janvier 2012").Range("p36").Value = TextBox81.Value
Sheets("Janvier 2012").Range("az36").Value = TextBox83.Value
Sheets("Janvier 2012").Range("ba36").Value = TextBox85.Value
Sheets("Janvier 2012").Range("bb36").Value = TextBox87.Value
Sheets("Janvier 2012").Range("bc36").Value = TextBox91.Value
Sheets("Janvier 2012").Range("bd36").Value = TextBox93.Value
Sheets("Janvier 2012").Range("be36").Value = TextBox95.Value
Sheets("Janvier 2012").Range("bf36").Value = TextBox89.Value
Sheets("Janvier 2012").Range("bg36").Value = TextBox99.Value
Sheets("Janvier 2012").Range("bi36").Value = TextBox97.Value
Sheets("Janvier 2012").Range("ah43").Value = TextBox100.Value
Sheets("Janvier 2012").Range("cn36").Value = TextBox78.Value
Sheets("Janvier 2012").Range("co36").Value = TextBox80.Value
Sheets("Janvier 2012").Range("bo36").Value = TextBox82.Value
Sheets("Janvier 2012").Range("br36").Value = TextBox84.Value
Sheets("Janvier 2012").Range("cp36").Value = TextBox86.Value
Sheets("Janvier 2012").Range("cq36").Value = TextBox90.Value
Sheets("Janvier 2012").Range("bx36").Value = TextBox92.Value
Sheets("Janvier 2012").Range("ca36").Value = TextBox94.Value
Sheets("Janvier 2012").Range("cd36").Value = TextBox88.Value
Sheets("Janvier 2012").Range("cg36").Value = TextBox98.Value
Sheets("Janvier 2012").Range("cj36").Value = TextBox96.Value
End If

If OptionButton30 = True Then
Sheets("Janvier 2012").Range("c37").Value = TextBox13.Value
Sheets("Janvier 2012").Range("b37").Value = TextBox10.Value
Sheets("Janvier 2012").Range("d37").Value = TextBox12.Value
Sheets("Janvier 2012").Range("f37").Value = TextBox21.Value
Sheets("Janvier 2012").Range("e37").Value = TextBox22.Value
Sheets("Janvier 2012").Range("g37").Value = TextBox23.Value
Sheets("Janvier 2012").Range("m37").Value = TextBox30.Value
Sheets("Janvier 2012").Range("n37").Value = TextBox31.Value
Sheets("Janvier 2012").Range("s37").Value = TextBox32.Value
Sheets("Janvier 2012").Range("l37").Value = TextBox36.Value
Sheets("Janvier 2012").Range("r37").Value = TextBox38.Value
Sheets("Janvier 2012").Range("t37").Value = TextBox39.Value
Sheets("Janvier 2012").Range("x37").Value = TextBox40.Value
Sheets("Janvier 2012").Range("v37").Value = TextBox41.Value
Sheets("Janvier 2012").Range("w37").Value = TextBox45.Value
Sheets("Janvier 2012").Range("u37").Value = TextBox46.Value
Sheets("Janvier 2012").Range("y37").Value = TextBox42.Value
Sheets("Janvier 2012").Range("ac37").Value = TextBox43.Value
Sheets("Janvier 2012").Range("aa37").Value = TextBox44.Value
Sheets("Janvier 2012").Range("ab37").Value = TextBox47.Value
Sheets("Janvier 2012").Range("z37").Value = TextBox48.Value
Sheets("Janvier 2012").Range("ad37").Value = TextBox49.Value
Sheets("Janvier 2012").Range("aj37").Value = TextBox50.Value
Sheets("Janvier 2012").Range("ah37").Value = TextBox51.Value
Sheets("Janvier 2012").Range("ag37").Value = TextBox52.Value
Sheets("Janvier 2012").Range("ay37").Value = TextBox79.Value
Sheets("Janvier 2012").Range("p37").Value = TextBox81.Value
Sheets("Janvier 2012").Range("az37").Value = TextBox83.Value
Sheets("Janvier 2012").Range("ba37").Value = TextBox85.Value
Sheets("Janvier 2012").Range("bb37").Value = TextBox87.Value
Sheets("Janvier 2012").Range("bc37").Value = TextBox91.Value
Sheets("Janvier 2012").Range("bd37").Value = TextBox93.Value
Sheets("Janvier 2012").Range("be37").Value = TextBox95.Value
Sheets("Janvier 2012").Range("bf37").Value = TextBox89.Value
Sheets("Janvier 2012").Range("bg37").Value = TextBox99.Value
Sheets("Janvier 2012").Range("bi37").Value = TextBox97.Value
Sheets("Janvier 2012").Range("ah43").Value = TextBox100.Value
Sheets("Janvier 2012").Range("cn37").Value = TextBox78.Value
Sheets("Janvier 2012").Range("co37").Value = TextBox80.Value
Sheets("Janvier 2012").Range("bo37").Value = TextBox82.Value
Sheets("Janvier 2012").Range("br37").Value = TextBox84.Value
Sheets("Janvier 2012").Range("cp37").Value = TextBox86.Value
Sheets("Janvier 2012").Range("cq37").Value = TextBox90.Value
Sheets("Janvier 2012").Range("bx37").Value = TextBox92.Value
Sheets("Janvier 2012").Range("ca37").Value = TextBox94.Value
Sheets("Janvier 2012").Range("cd37").Value = TextBox88.Value
Sheets("Janvier 2012").Range("cg37").Value = TextBox98.Value
Sheets("Janvier 2012").Range("cj37").Value = TextBox96.Value
End If

If OptionButton31 = True Then
Sheets("Janvier 2012").Range("c38").Value = TextBox13.Value
Sheets("Janvier 2012").Range("b38").Value = TextBox10.Value
Sheets("Janvier 2012").Range("d38").Value = TextBox12.Value
Sheets("Janvier 2012").Range("f38").Value = TextBox21.Value
Sheets("Janvier 2012").Range("e38").Value = TextBox22.Value
Sheets("Janvier 2012").Range("g38").Value = TextBox23.Value
Sheets("Janvier 2012").Range("m38").Value = TextBox30.Value
Sheets("Janvier 2012").Range("n38").Value = TextBox31.Value
Sheets("Janvier 2012").Range("s38").Value = TextBox32.Value
Sheets("Janvier 2012").Range("l38").Value = TextBox36.Value
Sheets("Janvier 2012").Range("r38").Value = TextBox38.Value
Sheets("Janvier 2012").Range("t38").Value = TextBox39.Value
Sheets("Janvier 2012").Range("x38").Value = TextBox40.Value
Sheets("Janvier 2012").Range("v38").Value = TextBox41.Value
Sheets("Janvier 2012").Range("w38").Value = TextBox45.Value
Sheets("Janvier 2012").Range("u38").Value = TextBox46.Value
Sheets("Janvier 2012").Range("y38").Value = TextBox42.Value
Sheets("Janvier 2012").Range("ac38").Value = TextBox43.Value
Sheets("Janvier 2012").Range("aa38").Value = TextBox44.Value
Sheets("Janvier 2012").Range("ab38").Value = TextBox47.Value
Sheets("Janvier 2012").Range("z38").Value = TextBox48.Value
Sheets("Janvier 2012").Range("ad38").Value = TextBox49.Value
Sheets("Janvier 2012").Range("aj38").Value = TextBox50.Value
Sheets("Janvier 2012").Range("ah38").Value = TextBox51.Value
Sheets("Janvier 2012").Range("ag38").Value = TextBox52.Value
Sheets("Janvier 2012").Range("ay38").Value = TextBox79.Value
Sheets("Janvier 2012").Range("p38").Value = TextBox81.Value
Sheets("Janvier 2012").Range("az38").Value = TextBox83.Value
Sheets("Janvier 2012").Range("ba38").Value = TextBox85.Value
Sheets("Janvier 2012").Range("bb38").Value = TextBox87.Value
Sheets("Janvier 2012").Range("bc38").Value = TextBox91.Value
Sheets("Janvier 2012").Range("bd38").Value = TextBox93.Value
Sheets("Janvier 2012").Range("be38").Value = TextBox95.Value
Sheets("Janvier 2012").Range("bf38").Value = TextBox89.Value
Sheets("Janvier 2012").Range("bg38").Value = TextBox99.Value
Sheets("Janvier 2012").Range("bi38").Value = TextBox97.Value
Sheets("Janvier 2012").Range("ah43").Value = TextBox100.Value
Sheets("Janvier 2012").Range("cn38").Value = TextBox78.Value
Sheets("Janvier 2012").Range("co38").Value = TextBox80.Value
Sheets("Janvier 2012").Range("bo38").Value = TextBox82.Value
Sheets("Janvier 2012").Range("br38").Value = TextBox84.Value
Sheets("Janvier 2012").Range("cp38").Value = TextBox86.Value
Sheets("Janvier 2012").Range("cq38").Value = TextBox90.Value
Sheets("Janvier 2012").Range("bx38").Value = TextBox92.Value
Sheets("Janvier 2012").Range("ca38").Value = TextBox94.Value
Sheets("Janvier 2012").Range("cd38").Value = TextBox88.Value
Sheets("Janvier 2012").Range("cg38").Value = TextBox98.Value
Sheets("Janvier 2012").Range("cj38").Value = TextBox96.Value
End If
Unload Me
End Sub
Cliquez pour agrandir...

Car quand je veux exécuter l'userform il me dit :

Erreur de compilation :
Procédure trop grande

Merci à tous pour votre aide.

Cordialement
 
Trier par date Trier par votes
Papou-net

Papou-net

XLDnaute Barbatruc
Re : Trop grand...

Bonjour JM,

A tous mes petits camarades de jeux, on fait quoi devant les cas de multipostage ???
Cliquez pour agrandir...

A cela, je répondrai : ????????????? et encore ???????????

Car si j'avais su qu'il y avait déjà une solution similaire sur l'autre forum, j'aurai pas perdu mon temps à rédiger (et tester) une ébauche de macro qui se trouvait déjà finalisée sur l'autre forum
Cliquez pour agrandir...

Sur ce point, je te comprends mais de mon côté, et comme je l'ai dit, je me suis fait plaisir. Etant à la retraite, je n'ai plus guère l'occasion de trouver des applications Excel utiles à ma nouvelle vie, alors je m'attarde sur celles des autres. Ca me permet de passer de bons moments et de conserver un usage rationnel de mes neurones survivants. Et tant pis si mon travail n'est pas retenu, je me réserve l'exclusivité de mon estime.

Enfin, pour abonder dans ton sens, il m'arrive de consulter d'autres forums mais en toute passivité. Je réserve ma participation au meilleur de tous, je veux dire XLD.

Bon week-end.
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Trop grand...

Re

Papou-net
Cela ne mange pas de pain pour celui qui poste une question de signaler (en mettant les liens) qu'il a posté sa question sur différents forums. (Pour être plus précis voir ici)
Et cela est plus raccord avec la netiquette qui jadis était plus respectée que de nos jours.

Faut pas s'étonner ensuite si cela participe au départ de gens comme kjin ou Hasco...


PS1: heureusement, je vois que je ne suis pas le seul à être irrité par le multipostage non signalé n'est-ce pas , Bruno ;)

PS2: Savoir qu'une question est multipostée permets aussi :
-de découvrir d'autres sites dédiés à Excel
-de s'inspirer/compléter librement la solution sur laquelle on travaille
-d'éviter de publier un solution qui aura été publiée ailleurs (a quoi bon avoir 3 fois la même macro sur différents sites pour une même question ?)
 
Dernière édition:
Vote positif 0 Vote négatif
Papou-net

Papou-net

XLDnaute Barbatruc
Re : Trop grand...

RE : JM

Effectivement, je n'ai rien à rajouter à tes arguments, si ce n'est que je les approuve entièrement. D'ailleurs, je n'aurais jamais entrepris moi-même cette double démarche.

Il ne reste qu'à souhaiter que notre ami du 06 passe par là et en tire lui-même ses propres conclusions.

Amicalement.
 
Vote positif 0 Vote négatif
H

Hollowman06

XLDnaute Nouveau
Re : Trop grand...

Bonjour à tous !

Merci à tous pour votre aide et merci tout particulièrement à Papou-net pour sa superbe refonte !
En ce qui concerne le multiposte je m'en excuse je ne penser pas à mal, je ne penser pas que les 2 forum été en communication. Cela ne ce reproduira plus promis :rolleyes:

Mais je tenais vraiment à vous remercier d'avoir pris le temps de vous pencher sur mon problème, vous êtes vraiment une superbe équipe et je reviendrais avec plaisirs.

Bon week-end à tous.
 
Vote positif 0 Vote négatif

Discussions similaires

J
  • Question
Erreur: Me.Controls("TextBox" & x).Value = Sheets("Base").Range("C" & i + 2).Offset(
Réponses
3
Affichages
5 K
Pierrot93
Pierrot93
S
  • Question
Autre incompatibilité excel 97
Réponses
1
Affichages
935
ledzepfred
ledzepfred
C
  • Question
USF long a charger
Réponses
1
Affichages
1 K
creolia
C
S
  • Question
.find .... Comprend pas....
Réponses
4
Affichages
1 K
job75
job75

Membres actuellement en ligne

11 membres et 93 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 174
Membres
112 677
dernier inscrit
Justine11