Derniers avis

C'est magnifique

Bonne initiative, toutefois, je trouve un peu lourd de passer par une fenêtre intermédiaire pour indenter module par module après sélection et ce, d'autant plus qu'il existe un superbe complément (Smart Indenter) directement exploitable au sein du code VBA depuis de nombreuses années : http://www.oaltd.co.uk/Indenter/Default.htm qui fonctionne par combinaison de touches et indente une procédure ou un module complet instantanément.

Juste pour info : si on l’utilise en mode copier/coller, les temps de traitement sont très long et la fenêtre à tendance à se figer si l'on dépasse plusieurs lignes…
J’ai testé avec un bloc de 92 lignes, la fenêtre était comme saturée…
- le Ctrl+A n’a pas fonctionné et si on fait clic droit « Sélectionner tout », rien ne s’est passé avant plusieurs secondes…
J’ai testé en ouvrant un module « test » de 4210 lignes (par copier/coller : le truc s’est planté), la fenêtre n’a affichée qu’une partie de mon module, soit jusqu’à la ligne 440.

Par contre, une fois l’indentation appliquée, l’ensemble du code était accessible.
Et puis, à partir de là, tout a semblé rétabli, même le Ctrl+A et le transfert est opérationnel.

Mais bon, comme dit plus haut, ça ne remplacera pas le Ctrl+Shit+P ou le Ctrl+Shit+M de « Smart Indenter » .

Très pratique. Merci.

Vraiment dommage que l'on ai pas accès au code

C'est intéressant, peux tu m'envoyer le fichier s'il te plait.

merci pratique

Enfin une appli qui facilite grandement la création de ruban.
Super boulot.

fonctionne pas

Merci

J'ai eu une erreure a l'ouverture, probleme de version selon une iA et impossible de fermer excel. Voici la proosition qui fonctionne : *** Bloc de remplissage de U8:AA13 avec gestion d'erreur ***
On Error Resume Next
ws_Home.Range("U8").Formula2R1C1 = "=SEQUENCE(6,7,R6C21-WEEKDAY(R6C21,2)+1,1)"
If Err.Number <> 0 Then
' Repli sur l’ancienne méthode pour les versions non compatibles
ws_Home.Range("U8:AA13").FormulaR1C1 = "=R6C21 + (ROW() - ROW(R8C21)) * 7 + (COLUMN() - COLUMN(R8C21)) - WEEKDAY(R6C21, 2) + 1"
Err.Clear
End If
On Error GoTo 0
' *** Fin du bloc ***

Bonjour,
Désolé de ne mettre qu'une étoile, mais impossible d'utiliser votre appli.
Je suis sous 365 et quoi que je choisisse il bug en m'ouvrant Visual basic.
j'ai tenté des tas de reglages mais rien a faire.
Auriez vous une solution ?
D'avance merci.
JP