Dernière activité de job75
-
job75 a répondu à la discussion XL 2019 Copier une cellule d'une ligne toutes les 5 lignes.Bonjour lynyrd, sylvany, En VBA ça donne ceci : Sub TirerCellule() Dim source As Range, dest As Range, pas&, n Set source = [A1] Set... -
job75 a répondu à la discussion XL 2021 Modification et remplacer l'origine.Sur le fichier du post #17 la ligne AN6:AW6 n'était pas vide !!! J'ai complété les lignes d'en-têtes des tableaux. Les macros ...
-
job75 a répondu à la discussion Autres Possibilité de faire une macro?.Par exemple : Sub CentrerRectangle() Dim o As Object For Each o In DrawingObjects o.Left = [G1].Left + ([G1].Width -...
-
job75 a répondu à la discussion Autres Possibilité de faire une macro?.Bonjour un internaute, Il n'y a rien à modifier. A+
-
job75 a répondu à la discussion XL 2021 Modification et remplacer l'origine.Bonjour achraf26, Vous n'avez pas eu de réponse parce que le fichier déposé au post #14 est incohérent. Pourquoi ne pas utiliser le...
-
job75 a répondu à la discussion XL 2019 Réunir du texte.Ceci est plus simple : Private Sub Worksheet_Activate() Dim tablo, resu, i&, n& tablo = Sheets("Import").ListObjects(1).Range.Resize(...
-
job75 a répondu à la discussion XL 2019 Réunir du texte.Bonjour lynyrd, le forum, Private Sub Worksheet_Activate() Dim tablo, resu, i&, n& tablo =...
-
job75 a répondu à la discussion XL 2019 Réunir du texte.Je ne comprends pas ce que vous voulez.
-
job75 a répondu à la discussion XL 2019 Réunir du texte.Bien sûr, la macro dans le code de la feuille "Transpose" : Private Sub Worksheet_Activate() Dim tablo, resu, i&, n& tablo =...
-
job75 a répondu à la discussion XL 2019 Réunir du texte.Prenez cette version (2), l'écriture des cellules et plages est plus simple : Private Sub Worksheet_Activate() Dim francais As Range, a...
-
job75 a répondu à la discussion XL 2019 Réunir du texte.Voici la macro, elle est placée dans le code de la feuille "Résultat" : Private Sub Worksheet_Activate() Dim francais As Range, a As...
-
job75 a répondu à la discussion XL 2019 Réunir du texte.Bonjour lynrd, le forum, Avant de vous donner la macro voici quelques explications sur le fichier du post #1. 1) Les données en...
-
job75 a répondu à la discussion XL 2016 humains VS chatGPT.Bonsoir à tous, Remettre à True en fin de macro est inutile : l'expression se met à True avec le End Sub. C'est la même chose avec...
-
job75 a répondu à la discussion XL 2021 Modification et remplacer l'origine.Bonjour le forum, Avec cette version tous les tableaux structurés sont traités dans une boucle : Private Sub Worksheet_Change(ByVal...
-
job75 a répondu à la discussion XL 2021 Modification et remplacer l'origine.J'ai ajouté Target.Select au début de la macro, le visuel est meilleur.