Claudius91

Super Merci beaucoup exactement ce que je voulais

Bonjour Logaripa, C'est vrai, un peu brouillon. Je joihs un fichier pour éclaircir mes propos. Les colonnes AL et AM sont des relevés par heures pour le mois d'avril. Grace à la macro si dessous, ces colonnes de chiffres sont transposées par lignes, heures par heures, jours par jours. Sub Macro6() ' 'Macro 6Macro Transpose AL vers L3, AM vers L38 - 31 jours lig = 3 For bcl = 0 To 30 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 30 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 Tableaux L3:AI32 et L38:AI67 Le problème, dans le cas des mois de 30 jours et le mois de février, toutes écritures sous la dernière ligne des tableaux se trouvent effacées sauf si je modifie les lignes soulignées pour les mois à 30 jours et pour le mois de février. Ce que je voudrais c'est une macro unique pour tous les mois de l'année. C'est possible ? Next bcl lig = 38 For bcl = 0 To 30 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 ' Range("L" & lig).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True lig = lig + 1 Next bcl End Sub Classeur1.xlsx

Bonjour Longaripa En fait je me suis mal expliqué. Ce que je voulais, c''est que cette fusion permette lors de l'exécution de la transposition respecter le nombre de lignes selon le mois (31, 30 ou 28). Car comme il y a somme de chaque colonne sous le dernière ligne, elle est effacée pour les mois de 30 et 28 jours. Ce qu'il faudrait modifier, la ligne "For bcl = 0 to 30" peut être, je ne sais pas

Bonjour, Modifiant mes dossiers au fur et à mesure de leurs utilisations, je voudrais fusionner 2 macros si c'est possible. Sinon modifier la macro 2 pour que le nombre de lignes transposer correspondent au mois de la feuille (exemple 28 pour février) Je m'explique : la macro N°1 sélectionne dans une colonne le nombre de cellules en fonction du nombre d'heure du mois de l'onglet de la feuille (745 pour 31 jours - 721 pour 30 jours - 613 pour 28 jours) La macro 2 selectionne la colonne de la macro 1 pour la transposer en lignes de 24 colonnes. Sub Macro1() ' ' Macro1Macro ' color Heure ' ' Dim jours As Long Select Case ActiveSheet.Name Case "Janv", "Mars", "Mai", "juillet", "Aout", "Oct", "Dec": jours = 745 Case "Avril", "Juin", "Sept", "Nov": jours = 721 Case "Fev": jours = 673 End Select Dim plage As Range Set plage = ActiveSheet.Range("AL2:AL" & (2 + jours - 2)) plage.Select End Sub Sub Macro2() 'Macro 2Macro Transpose AL vers L lig = 3 For bcl = 0 To 30 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 End Sub Je pense que la modif doit se situer au niveau de la ligne For bcl = 0 to 30 Merci d'avance pour vos réponses

J'ai trouvé. Il manquait les guillemets après Nov. Mis guillemets après Nov, Supprimé ceux après 30 Et tout fonctionne bien Super Merci

Ok, cela fonctionne Mais pas pour les mois de 30 jours Je remarque des guillemets après le chiffre 30. sont-ils nécessaire ? Par contre impossible de les retirer ils reviennent toujours !!

Bonjour Longaripa Problème , ne fonctionne pas, en utilisant pas à pas détaillé, la ligne " Dim jours As Long " n'est pas utilisée, de Macro2Macro, directement à Select Case ActiveSheet.Name Sub Macro2() 'Macro2Macro ' ' ' 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

Bonsoir, Après avoir cherché sur internet une solution, je pensais avoir trouvé, mais cela ne marche pas. Mon problème. j'ai des tableaux identiques sur 12 feuilles d'excel, les onglets sont les mois de l'année : Janv, Fev, Mars,......... Je cherche une macro qui selon le mois séléctionne le nombre de cellule correspondant au nombre de jours du mois. Ci-dessous la macro, mais erreur au niveau de la deuxième ligne Sub Macro20() 'Macro20Macro Dim jours As Long Select Case ws.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 place As Range Set Plage = ws.Range("B4:B" & (4 + jours - 1)) End Sub

Bonjour Delta Oui, j'ai un compte Microsoft. Par contre, je précise: "changer également l'adresse mail "c.a.m.....fr". lire changer également l'adresse mail en "c.a.m....fr"

Bonjour Je crois comprendre ce qui ce passe. En fait,nous avons chacun mon épouse et moi, un PC portable avec Windows 11. Comment sur chaque PC avoir un compte différent avec sa propre photo et son nom sans interférence entre les deux PC, c'est à dire, quand on "arrive" par exemple à changer la photo sur un PC, que celle-ci ne s'affiche pas également sur l'autre . Les deux PC sont des Lenovo ils sont tous les 2 avec moi comme Administrateur, et avec l'adresse mail "clo....fr" Comment faire pour changer sur le PC de madame son nom comme administrateur et changer également l'adresse mail "c.a.m.....fr". Et bien sur sans perte de dossier sur les deux PC. Merci pour vos réponses

Re, Autre chose, Ce matin, eu ouvrant mon PC, surprise, l'image de ma femme apparait sur mon écran d'accueil à la place de la mienne !!!!

Bonjour Pour la photo, pas de problème; c'est OK, mais le nom ne change pas, c'est toujours le mien.

Bonjour, je viens de voir le message, actuellement, je suis très occupé, et je ne pourrais pas faire cette opération avant lundi. Merci de patienter

Bonjour, Je voudrais changer l'administrateur du PC de ma femme, mais j'ai peur de supprimer ses fichiers et dossiers. Qu'elle est la procédure pour changer sans risque le nom et la photo de l'administrateur. Merci d'avance

Oui

Bonjour, J'ai deux PC portable et 1 imprimante (HP DeskJet 4100 All-in-One Printer series). La connexion entre PC et imprimante se fait par Wifi. j'ai réalisé un test réseau sans fil à partir de l'imprimante. Résultat du diagnostic : Aucun problème rencontré. Mon problème, je peux imprimer à partir du PC1, mais pas du PC2 : pas connecté. Par contre quand je demande avec HP Smart la configuration du réseau HP à partir du PC2, il n'y a pas de problème de connexion, les deux pages s'impriment sans problème. J'ai du mal à comprendre. Merci d'avance pour vos réponses

Bonjour, C'est bon, j'ai trouvé, merci à l'IA de Quant. Solution ci-dessous 'Macro9() 'Macro9macro Sub OuvrirDossierDepuisAutreDossier() Dim cheminDossier As String ' Spécifiez le chemin du dossier à ouvrir cheminDossier = "D:\Claude\BUDGET \BUDGET 2025-2026\Factures 2025-2026" ' Ouvre l'explorateur Windows sur le dossier spécifié Shell "explorer.exe """ & cheminDossier & """", vbNormalFocus End Sub

bonjour, J'ai une macro qui ne fonctionne pas et je ne sais pas quoi faire 'Macro9() 'Macro9macro ' Sub OuvrirDossier() Dim cheminDossier As String ' Spécifiez le chemin du dossier que vous souhaitez ouvrir cheminDossier = "D:\Claude\BUDGET\BUDGET 2025-2026\Factures 2025-2026" ' Ouvre l'explorateur de fichiers sur le dossier spécifié RunWinAction "OPEN", , "EXPLORER", "/select, """ & "D:\Claude\BUDGET\BUDGET 2025-2026\Factures 2025-2026" End Sub J'ai cette erreur là

Oui Merci

Bonjour Zelandonii Oui, effectivement je l'ai trouvé, mais suite à une course urgente à faire, je n'ai pas eu le temps de répondre à ton message. J'ai été obligé de mettre cette commande: powercfg /hibernate on Milles excuses.

Bonjour, Après le passage de "PrivaZer", j'ai peut-être fait une bêtise, mais impossible de retrouver la possibilité de mettre mon PC en veille prolongée, ce que je fait tout les soirs.

Bonsoir, Mon problème est résolu. j'ai pensé à la restauration, mais impossible d'y accéder de mon bureau (aucune icône d'affichée), aucun clic de la souris ne fonctionnait. J'ai donc interrogé internet qui m'a donné la solution. Ouvrir le gestionnaire des tâches; cliquer sur "Exécuter une nouvelle tâche " Dans la fenêtre qui s'ouvre taper rstrui.exe, cliquer sur OK La fenêtre de la restauration s'ouvre, il n'y a plus qu'à choisir une date avant le problème et cliquer sur ok. Et surtout attendre la fin de la restauration et le redémarrage du PC. Désolé, j'aurais pu y penser avant de poser mon problème

Bonjour, J'ai utilisé Windows Repair, et j'ai eu la surprise après le redémarage de la disparition de la page d'accueil . Ecran noir, plus d'icônes. je peux avoir accès à mes dossiers en passant par le gestionnaire des taches, mais ce n'est pas pratique; A priori, je n'ai rien perdu de mes dossiers. Merci pour vos réponses

OK pas de problèmes, bonne journée