651 résultats trouvés

par GGautier
Aujourd’hui, 10:19
Forum : Tutos et astuces
Sujet : Extraction intuitive
Réponses : 0
Vues : 12

Extraction intuitive

Bonjour le forum :) Je propose ici un code que j'utilise pour faire des extractions "intuitives". Je vous laisse découvrir mon fichier. N'hésitez pas à me laisser des critiques constructives ;;) En espèrent rendre service :) Sub Extraction() Dim FeuilBD As Worksheet, FeuilExt As Worksheet Dim Max As...
par GGautier
Hier, 12:23
Forum : Excel - VBA
Sujet : Taille police automatique dans Shape
Réponses : 3
Vues : 49

Re: Taille police automatique dans Shape

Pour être plus explicite, j'ai un formulaire qui créer des étiquettes et les placent sur un planning. Mon code actuel définir la largeur de l'étiquette pour correspondre a l'intervalle de dates sélectionnées sur le formulaire. Il ne faut donc surtout pas redimensionner l'étiquette mais bien le texte...
par GGautier
Hier, 10:55
Forum : Excel - VBA
Sujet : Taille police automatique dans Shape
Réponses : 3
Vues : 49

Taille police automatique dans Shape

Bonjour le forum :) Je souhaite juter la taille de la police dans un shape mais je n'y arrive pas. Ce que je veux faire est semblable à ce qu'on peut faire dans une cellule (Contrôle du texte et Ajuster). Aujourd’hui j'utilise Feuil1.Shapes("Original").TextFrame2.AutoSize = msoAutoSizeTextToFitShape...
par GGautier
11 octobre 2019, 11:40
Forum : Excel - VBA
Sujet : Insérer et redimensionner des images dans excel
Réponses : 6
Vues : 901

Re: Insérer et redimensionner des images dans excel

Fichier avec application code utilisé : Sub Dimention() 'La variable LargeurInit et HauteurInit vont représenter les dimentions en largeur et hauteur de la première image 'La variable Largeur et hauteur vont représentées les dimentions des images en cm définie par l'utilisateur 'La variable Code va ...
par GGautier
11 octobre 2019, 11:36
Forum : Excel - VBA
Sujet : Insérer et redimensionner des images dans excel
Réponses : 6
Vues : 901

Re: Insérer et redimensionner des images dans excel

Voilà quelque chose de plus aboutit : Dim Largeur, Hauteur Sub Dimention() Dim Code Etape1: If MsgBox("Garder les proportions au moment du redimentionnement des images ?", vbInformation + vbYesNo, "Redimentionner") = vbYes Then Code = InputBox("Tappez 1 pour redimentionner la largeur ou 2 pour redim...
par GGautier
11 octobre 2019, 11:01
Forum : Excel - VBA
Sujet : Insérer et redimensionner des images dans excel
Réponses : 6
Vues : 901

Re: Insérer et redimensionner des images dans excel

Bonjour :) Pour apporter une piste sur redimensionner les images (code pas testé) : Sub Dimention() Debut: Largeur = InputBox("Choisir la largeur :", "Largeur des images") Hauteur = InputBox("Choisir la hauteur :", "Hauteur des images") If Largeur = "" Or Hauteur = "" Or Not IsNumeric(Largeur) Or No...
par GGautier
2 octobre 2019, 16:53
Forum : Excel - VBA
Sujet : Trier plage de donnée avec formule
Réponses : 11
Vues : 41

Re: Trier plage de donnée avec formule

J'aurais pas pensé au truc le plus simple, au final c'est toi qui m'a débloqué ;;)
Bonne soirée
par GGautier
2 octobre 2019, 16:21
Forum : Excel - VBA
Sujet : Trier plage de donnée avec formule
Réponses : 11
Vues : 41

Re: Trier plage de donnée avec formule

Merci :wink: sujet résolu !
par GGautier
2 octobre 2019, 15:49
Forum : Excel - VBA
Sujet : Trier plage de donnée avec formule
Réponses : 11
Vues : 41

Re: Trier plage de donnée avec formule

Finalement j'ai trouvé :lole: Sub Tri() With Feuil3 Max = .Range("A" & Rows.Count).End(xlUp).Row For i = 3 To Max 'Premier tri sur la partie numérique des références For j = i To Max ComparA = Split(.Cells(i, 1), "-") ComparB = Split(.Cells(j, 1), "-") TempA = .Range(Cells(i, 1), Cells(i, 8)).Formul...
par GGautier
2 octobre 2019, 15:23
Forum : Excel - VBA
Sujet : Trier plage de donnée avec formule
Réponses : 11
Vues : 41

Re: Trier plage de donnée avec formule

Et tant que j'y suis, si ce n'est pas trop demandé, est-il possible de simplifier mon code ? EDIT : je met du coup le code fonctionnel Sub Tri() Max = Feuil3.Range("A" & Rows.Count).End(xlUp).Row 'Pour trier les parties numérique des références For i = 3 To Max For j = i To Max ComparA = Split(Feuil...