Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
=> DEMO UserForm "Jongler" avec les donnée de plusieurs feuilles...Plus Etc Etc.
Salut DJ-Run
Ca va à la Réunion ?
J'ai regardé ton fichier... On peut surement faire quelque chose, mais juste pour te montrer aussi comment on peut faire l'inverse... J'ai corrigé une démo un peu poussièreuse...
Je te laisse voir, c'est une approche totalement différente... Mais c'est en fait peut être ce que tu veux aussi, juste en voyant les choses sous un autre angle...
De toute manière, j'ai corrigé un ptit bug que Vériland m'avait signalé comme çà...
Ben je vois que nous nous sommes tous précipité sur DJ Run, rire
Thierry, j'ai un petit souci, regarde le fichier que j'ai crée deux poste plus haut, je comprends pas pourquoi quand j'appuis sur le commandbutton il me reste la ligne 4????
Re: copier des valeurs d'une feuille à.................... PLEIN D'AUTRES !!!!!!
Bonjour @Xtoph@, Eric, re DJ-Run et le Forum.
Très pratique ta macro Eric , bien vu !! D'ailleurs je la colle ici pour qu'elle soit bien vue car c'est simple propre et efficace!!! :
Private Sub CommandButton1_Click()
For i = 3 To Range("a65000").End(xlUp).Row
With Worksheets(Range("a" & i).Text)
.Range("a65000").End(xlUp).Offset(1, 0) = Range("a" & i)
.Range("b65000").End(xlUp).Offset(1, 0) = Range("b" & i)
.Range("c65000").End(xlUp).Offset(1, 0) = Range("c" & i)
End With
Next i
End Sub
Pour ton problème @Xtof c'est sûrement dû au Cut... (Doit faire un espèce de même plan qu'avec EntireRow.Delete).... Enfin c'est pas grave vu que DJ le voulait en copie...
Du coup j'ai un peu repris ton code, (un chti peu !!) dans la démo ci-jointe.... (plus de SelectSelectSelectSelectSelect !!!)
Et puis j'ai ajouté une option interressante (je pense...)
En attendant de vos nouvelles
Je vais m'acheter à manger...
OUAHHH !!
tous ça de reponse pour ma petite question !! je suis flaté . mdr !
re à tous
un grand merci pour toutes ces reponses, (ça va m'en faire des codes à essayer de dechiffrer) .
tien, tien, y en a qui save que je suis de la Réunion (@+Thierry)
ce doit etre le ".RUN" qui a mis sur la piste . Sinon ici il fait beau comme d'habitude .
bon je vais regarder tous vos exemple, je vais essayer de les comprendre et de les refaire pour mon projet .
@Christophe@ tes exemples basetratee2 & 3 me renvoient une erreur:
erreur d'exécution '1004':
la méthode cut de la classe range à échoué
Eric ton exemple est bien mais le problème est que si l' user clique plusieurs fois sur le bouton, cela créer des doublons, il serait bien qu'il créer que les compléments si compléments il y a.
@+Thierry, que dire, grandiose comme d'habitude et je suis encore à essayer de comprendre ton code sur le premier exemple : USFControleFormulesComments.zip
Le 2ème exemple est superbe aussi mai j'ai pas attaqué le déchiffrage du code et j'ai bien aimé l'oubli, par contre après ton message lors de la validation il me renvoi une erreur 1004: la méthode copy de classe worksheet à echoue . sur la ligne :
Sheets("Template").Copy After:=Sheets(X)
Bon avec tous vos exemples j'espère que je vais y arriver .
Ben Thierry, comme toujours super ta démo et merci d'avoir utilisé ma création a la base, rire, j'en deduis que la je mérite un petit 8/10 cette fois si, lol
Aussi non Dj run, je comprends pas pourquoi cela bug, chez moi aucun problème, dis moi en un peu plus, ou cela bug, quelle ligne, sous quelle excel es tu???
@Xtoph... Huumm pour un 8/10 ce sera certainement pas avec cet immonde "Select" !!! (la macro créant les feuilles et tous le tsoin tsoin va aussi vite que ta version avec Select !!! (lol)
DJ-Run, explique moi un peu pour "Report-Generation-Auto.xls", comme tu dis "Le 2ème exemple est superbe"... As-tu réussi à le faire tourner au moins une fois ? car si c'est le cas c'est encore différent, les feuilles existent déjà...
Cette ligne d'écriture en elle-même devrait pourtant passer sous ton Excel...l
Je pense que c'est à cause du mode VeryHidden que j'ai testé... Fais touner la macro :
Sub PasCache () Qui est prévu à cet effet !!
Puis dans le code de Sub CheckFeuilles() tu vires pûrement et simplement les deux lignes suivantes :
Template.Visible = xlSheetVisible
@+Thierry, pour repondre à ta premiere question, j'ai reussi à faire tourner ton exemple "Report-Generation-Auto.xls" avec Excel 2000 sous win98 et ça marche tres bien.
mais sous Excel 97 sous win98 ça ne marche pas et il me renvoie une erreur apres avoir repondu ok à ton message oups j'ai oublié......
consernant :
"Je pense que c'est à cause du mode VeryHidden que j'ai testé... Fais touner la macro :
Sub PasCache () Qui est prévu à cet effet !!
Puis dans le code de Sub CheckFeuilles() tu vires pûrement et simplement les deux lignes suivantes :
Template.Visible = xlSheetVisible
Template.Visible = xlSheetVeryHidden "
meme en faisant tout cela sous office97 ça marche pas.
le probleme est que je dois développer sous office 97 car j'utilise ces projets au boulot et il n'y a que 97.
@Christophe@, ton exemple fonctionne tres bien sous Excel 2000.
donc c'est bien mon 97 qui ne reconnait pas tout .
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.