Étendre une formule jusqu'à la dernière colonne Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'083
Appréciations reçues : 695
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 19 juillet 2018, 19:14

Bonsoir Jeremulus,

je te propose ce 2ème fichier Excel :
Exemple - 2.xlsm
(23.66 Kio) Téléchargé 4 fois
à te lire pour avoir ton avis.

dhany
J
Jeremulus
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 17 juillet 2018
Version d'Excel : 2013 FR

Message par Jeremulus » 20 juillet 2018, 15:19

Hello Dhany !

Désolé pour cette réponse tardive !

Merci beaucoup pour ton travail, c'est top ! J'ai simplement une dernière petite requête, et après je ne t'embête plus :mrgreen:

En fait les nouveaux onglets devrons toujours s'insérer après la feuille "Feuil1", est ce qu'une macro qui ferait ça et donc sans passer par la msgbox serait envisageable ?

Merci d'avance et bon week-end !
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'147
Appréciations reçues : 313
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 20 juillet 2018, 15:30

Bonjour,

Il te suffit de remplacer:
FX = Val(InputBox("la feuille n° (max " & nb & ") :", "Insertion après...", 1))
'Par
FX = 1
Mais je te conseille de ne pas supprimer la ligne, plutôt de la placer en commentaire en ajoutant un apostrophe devant et d'en créer une nouvelle en dessous avec "FX=1".
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
J
Jeremulus
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 17 juillet 2018
Version d'Excel : 2013 FR

Message par Jeremulus » 20 juillet 2018, 15:55

Ah oui exact !

Merci à toi Pedro
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'083
Appréciations reçues : 695
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 20 juillet 2018, 16:38

Bonjour Jeremulus, Pedro22,
Tu a écrit :Merci beaucoup pour ton travail, c'est top !
merci pour ton retour !  :D

En fait les nouveaux onglets devront toujours s'insérer après la feuille "Feuil1"
ce que t'a indiqué Pedro22  marche, bien sûr (merci Pedro) ... mais c'est juste un patch (= une rustine) ; aussi, je te propose une vraie modif  du code VBA, où j'ai supprimé tout ce qui est devenu inutile :
Exemple - 3.xlsm
(19.46 Kio) Téléchargé 5 fois
merci de me donner ton avis.  :wink:

sauf si tu as autre chose à demander, tu peux passer ce sujet en résolu : il suffit de cliquer sur le bouton situé près du bouton (dans le coin haut droit du post) ; ça permet aussi de clôturer le fil de la discussion.

dhany  Image
J
Jeremulus
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 17 juillet 2018
Version d'Excel : 2013 FR

Message par Jeremulus » 24 juillet 2018, 16:13

Salut Dhany !

Excuse moi je répond très tardivement ... Je n'avais pas vu ta réponse, et le weekend est passé par là ...

Merci pour ton nouveau fichier !

En fait j'ai un petit soucis, les onglets que je souhaite ajouter doivent s'ajouter après l'onglet "Feuil1", qui est situé en dernière position dans les onglets. Or là si je décale l'onglet "Feuil1" en dernière position et que je lance la macro, les nouveaux onglets s'ajoute avant "Feuil1" ... Aurais-tu une idée pour rectifier ça ? :-)

Merci d'avance et à bientôt !

Jeremulus
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'147
Appréciations reçues : 313
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 24 juillet 2018, 16:29

Bonjour,

https://msdn.microsoft.com/fr-fr/vba/ex ... thod-excel

Pour ajouter après l'onglet "Feuil1" :
.Sheets.Add After:=Sheets("Feuil1")
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
J
Jeremulus
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 17 juillet 2018
Version d'Excel : 2013 FR

Message par Jeremulus » 24 juillet 2018, 16:34

Hello Pedro

Merci pour ta réponse, mais je ne vois pas où incorporer la ligne que tu proposes dans le code de Dhany ... :(
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'147
Appréciations reçues : 313
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 24 juillet 2018, 16:37

Jeremulus a écrit :
24 juillet 2018, 16:34
Hello Pedro

Merci pour ta réponse, mais je ne vois pas où incorporer la ligne que tu proposes dans le code de Dhany ... :(
Je n'ai pas ouvert son code, mais je suppose que s'il y a ajout de feuille tu as un code du type ".Sheets.Add" quelque part, il suffit donc d'en modifier les options pour changer le placement de la nouvelle feuille.
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'083
Appréciations reçues : 695
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 24 juillet 2018, 16:37

Bonjour Jeremulus,

voici la nouvelle version :
Exemple - 4.xlsm
(19.55 Kio) Téléchargé 1 fois
dhany
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message