Résultats de la recherche

Bravo !!! C'est une belle mentalité !!

Et bien c'est formidable !! Pourquoi faire compliqué quand on peut faire simple !!?? Merci job75

Bonjour, J'ai un tableau avec des infos séparément entrées dans des cellules. Je soughaiterais concaténer ces infos dans une autre cellule. Or il y a une info qui est une date au format "mmm-yy" et je souhaiterais la concatener ainsi "(mmm-yy)". Lorsque je lance mon code, j'obtiens ceci...

Je n'avais pas essayer le programme modifié. Ces deux là fonctionnent très bien ensemble. Sub Creation_page_suivant_compteur() Dim fin, début, i As Integer Dim nom As Variant fin = Sheets("cal").Cells(22, 1).Value For début = 1 To fin Sheets("Modèle").Select...

OK avec ce code ça devrait le faire comme tu veux. Plus haut, tu parlais "d'inverser l'ordre de création des onglets" donc j'ai pensé que c'était ce que tu voulais. Il suffisait de modifier la règle de la variable "nom" pour remettre tout dans le bon ordre. Sub...

C'est ce que j'ai compris. Dans le cas ou on a 5 en A22, le programme créer une page à à la fin qui s'appelle qui s'appelle Modèle 5 puis une autre encore à la fin qui s'appelle Modèle 4 etc etc Ce n'est pas ça que tu voulais ?

S'il vous plait !!!!! A l'aiiiiiiiiiiiiiiiiide !!! Je vous met un second fichier objectif avec une macro que j'ai fait pour un autre tableau avec le même but. Mais je vous avoue que je m'y suis mal pris pour cette macro puisque je n'arrive plus à la comprendre. La fonction "Like" me fait...

Voilà pour la suppression des feuilles. Je me suis basé sur la valeur que l'on trouve en A22 pour incrémenter les noms à la création, donc j'ai fait la même chose pour la suppression. A plus Sub Suppression_page_suivant_compteur() Dim fin, début, i As Integer Dim nom As Variant fin =...

Voilà pour la création des feuilles dans l'ordre que tu veux. Je vais voir pour une procédure inverse. Tu veux les effacer toutes d'un coup c'est ça ? Sub Creation_page_suivant_compteur() Dim fin, début, i As Integer Dim nom As Variant fin = Sheets("cal").Cells(22, 1).Value For début =...

Je ne sais pas. Je chercherai demain si j'ai le temps Il serait mieux d'énoncer toutes les fonctions souhaité d'un programme, c'est une question d'organisation et d’algorithmique.

Mais de rien ! Je suis en train d'apprendre le VBA pour le boulot et je manque d'exercice. Je vous aide pour m'aider ! a toute

Voilà !! Ca marche mais c'est très long sur mon ordi. J'espère que sur le votre ça va aller mieux. Sub creation_ligne() Dim ligne As Integer Set Data = Range("A:F") ligne = 1 Application.DisplayAlerts = False While Data.Cells(ligne, 2) <> "" Data.Cells(ligne, 1).Select If Data.Cells(ligne, 2)...

Je crois que j'ai trouvé quelques chose pour ça aussi. Je test sur ton fichier

Ça fait le boulot que tu veux mais comme je n'ai pas le contexte de ce tableau, je ne suis pas certain que cela va suffire. Sub creation_ligne() Dim ligne As Integer Set Data = Range("A:F") ligne = 1 Application.DisplayAlerts = False 'Application.EnableEvents = False While...

Est-ce qu'il faut supprimer des lignes aussi ?

Salut Maxim47 Tu peux essayer ça. A plus Sub Creation_page_suivant_compteur() Dim fin, début, i As Integer fin = Sheets("cal").Cells(22, 1).Value For début = 1 To fin Sheets("Modèle").Copy After:=Sheets(3) Next End Sub

Salut Arwen43 Je ne suis pas un crac en VBA mais ce code devrait t'aider. Si tu me passe un fichier sur lequel je peux travailler, je suis sure de pouvoir trouver une autre solution. A plus HopHopHop Sub creation_ligne () Dim ligne as integer Set Data =...

Salut à tous, Pendant ces petites journées d'hiver, je ne vais pas sur le chantier. Je reste au bureau et je développe notre outillage informatique et je dois faire ça sous Excel. Donc j'apprend tout doucement mais surement le VBA. A plus

Bonjour à tous ! A partir d'un tableau assez long, je souhaite créer un tableau plus petit qui résume ce que l'on trouve dans le grand tableau. J'ai besoin d'aide pour pouvoir créer le contenu du tableau résumé en fonction des éléments du premier tableau. Je vous passe deux fichiers : -...