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