Longaripa

Bonjour Essayez ceci : Sub macro6() ' 'Macro 6Macro 'Transpose AL vers L3, AM vers L38 - 31 jours Select Case ActiveSheet.Name Case "Janv", "Mars", "Mai", "juillet", "Aout", "Oct", "Dec": jours = 31 Case "Avril", "Juin", "Sept", "Nov": jours = 30 Case "Fev": jours = 28 End Select lig = 3 For bcl = 0 To jours - 1 Range("AL" & 2 + (24 * bcl) & ":AL" & (24 * (bcl + 1)) + 1).Copy Range("L" & lig).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True lig = lig + 1 Next bcl lig = 38 For bcl = 0 To jours - 1 Range("AM" & 2 + (24 * bcl) & ":AM" & (24 * (bcl + 1)) + 1).Copy Range("L" & lig).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True lig = lig + 1 Next bcl End Sub

C'est certainement parce que c'est une version S de Windows qui est installée. https://www.win10.fr/mode-s-windows11 On peut en sortir https://support.microsoft.com/fr-fr/windows/quitter-le-mode-s-dans-windows-4f56d9be-99ec-6983-119f-031bfb28a307#windowsversion=windows_11 On devrait aussi pouvoir changer de système d'exploitation

Re J'avoue ne pas comprendre ce qu'il faut faire. Au début, il y avait des jours, maintenant des heures ... Et transformer des colonnes en lignes .. Non, je n'ai pas d'idées ...

Bonjour A mon avis, il faut oublier. C'est une configuration vraiment minimale. Si c'est pour seulement surfer sur le net, sans installer de logiciels gourmands, ça pourrait se concevoir. Mais, pour moi, c'est vraiment juste. Attendez d'autres avis ...

Bonjour Pour fusionner les 2 macros, il suffit d'insérer la macro2 à la fin de la macro1. Ou mettre Call macro2 à la fin de macro1

Bonjour Je ne vois pas de bêtise. Tout m'a l'air bien. Il fonctionne correctement ?

Bonjour Mais si, ca fonctionne. Les instructions Dim sont exécutées au départ de la procédure, et non pas dans le déroulement. Dans le menu, cliquez sur affichage, puis sur variables locales Dans la fenêtre, on voir que jours et plage sont bien définies au départ.

Bonjour @Claudius91 Une suggestion : Remplacer ws par activesheet mettre une virgule entre juillet et aout mettre dim plaGe As Range (pas dim plaCe ..) Sub Macro1() ' ' Macro1 Macro ' Dim jours As Long Select Case ActiveSheet.Name Case "Janv", "Mars", "Mai", "juillet", "Aout", "Oct", "Dec": jours = 31 Case "Avril", "Juin", "Sept", "Nov: jours = 30" Case "Fev": jours = 28 End Select Dim plage As Range Set plage = ActiveSheet.Range("B4:B" & (4 + jours - 1)) plage.Select End Sub

Bonjour Le problème a été résolu par la modification dans le fichier hosts ? Pour Malwarebytes, c'est un choix à faire. L'abonnement me semble inutile. Eventuellement le garder. Ou le supprimer, quitte à le réinstaller en gratuit si un problème survient. Perso, je le désinstalle. Je pense que Defender est suffisant.

Ok. A suivre

Ca se corse. Essayez de rajouter une entrée dans le fichier hosts : 0.0.0.0 Getmegaluck.icu

Bonjour @Canet66 Les 2 sujet ont été fusionnés. Donc on continue sur celui-ci. Téléchargez MBAM https://www.malwarebytes.com/fr/ Lancez l'analyse Si besoin, suivez le tuto : https://forum.security-x.fr/tutoriels-317/tutoriel-malwarebytes-anti-malware-22723/ Téléchargez et lancez aussi AdwCleaner https://www.malwarebytes.com/fr/adwcleaner Avec tout ça, il devrait disparaître

Pour moi, d'après les rapports, le système est propre. Windows defender est disabled, je suppose que c'est pour permettre les outils. Pensez à le réactiver. Est-ce que la suppression des notifications a supprimé les fenêtres intempestives ? Installez aussi un bloqueur de pubs ..

Refaites l'analyse FRST et postez les 2 rapports frst.txt et addition.txt. On va nettoyer ça.

De rien Bonne coninuation Vous pouvez marquer le sujet comme résolu

Désolé, j'ai oublié de re préciser ceci Utiliser https://www.catupload.com/ pour héberger les fichiers

Bonjour Il faut faire du ménage dans les notifications de Edge. désactivez toutes les notifications, ou alors, si vous en avez l'utilité, conservez celles que vous voulez et bloquez les autres, spécialement celle ci : getmegaluck.icu (vu sur la photo) Regardez ce tuto : https://www.collaborativejob.com/7206/comment-activer-ou-desactiver-le-blocage-des-pop-up-sur-edge Si vous voulez une étude plus approfondie, suivez le tuto comme indiqué plus haut et postez lez rapports https://community.lecrabeinfo.net/blogs/entry/92-désinfection-faire-en-premier-zhpsuite-frst/

Bonjour C'est bon pour le nettoyage. Concernant Avast, je suis partisan de le désinstaller. C'est une usine à gaz et Windows Defender est suffisant, a mon avis.

Pour nettoyer les outils : Télécharger KPRM (de Kernel-panik) sur le bureau : https://toolslib.net/downloads/viewdownload/951-kprm Lancer l'exécution par clic-droit -> Exécuter en tant qu'administrateur Cocher les cases : comme sur l'image ci dessous Cliquer sur [Exécuter]...laisser travailler jusqu'au message indiquant la fin des opérations Poster le rapport kprm-aaaammjj.txt , qui se trouve sur le bureau

Impeccable. Les fenêtres intempestives ont du disparaitre. Si c'est ok, on nettoiera les outils de désinfection.

Il faut accéder à https://textup.fr/862175O2 sélectionner le texte dans la fenêtre, de start:: à end:: compris. faire click droit >>>> copier lancer FRST en administrateur, par click droit cliquer sur corriger attendre la fin Le pc va redémarrer

Ok. Les notifications ont bien disparu. Le système est propre, on va juste nettoyer un truc : Correction avec FRST : Copier la totalité du contenu, ( Sélectionner tout de start:: à end:: compris -> Copier) de ce correctif hébergé ici -> https://textup.fr/862175O2 Faites uniquement "copier" pour mettre le texte dans le presse-papier, inutile de coller Lancez FRST en tant qu'administrateur par click droit Cliquez sur "corriger" Patientez Une fois le système redémarré, postez le rapport : fixlog.txt Comment se comporte le PC ?

Bonjour Une grande partie de vos problèmes vient des notifications Edge. Désactivez celles correspondant à veltrixnora.co.in, les 3 premières, en suivant le tuto déjà indiqué : https://www.collaborativejob.com/7206/comment-activer-ou-desactiver-le-blocage-des-pop-up-sur-edge Le rapport frst.txt est incomplet. Désactivez les notifications, et ensuite refaites l'analyse FRST et postez les 2 rapports en entier, frst.txt et addition.txt.

Bonjour On peut regarder. Suivez ce tuto --> https://community.lecrabeinfo.net/blogs/entry/92-désinfection-faire-en-premier-zhpsuite-frst/ Il y a 3 rapports à poster Utiliser https://www.catupload.com/ pour héberger les fichiers

Bonjour Il s'agit de notifications intempestives. Dans un premier temps, désactivez les de cette manière : https://www.collaborativejob.com/7206/comment-activer-ou-desactiver-le-blocage-des-pop-up-sur-edge Puis, faites l'analyse suivante : Suivez ce tuto --> https://community.lecrabeinfo.net/blogs/entry/92-désinfection-faire-en-premier-zhpsuite-frst/ Il y a 3 rapports à poster Utiliser https://www.catupload.com/ pour héberger les fichiers