
Claudius91
Membres-
Nbre de contenus
62 -
Inscription
-
Dernière visite
Visiteurs récents du profil
Le bloc de visiteurs récents est désactivé et il n’est pas visible pour les autres utilisateurs.
Succès de Claudius91
Quartier-maître de 1re classe (4/24)
-
Rare
-
-
Rare
-
-
Badges récents
0
Réputation dans la communauté
1
Réponses à la communauté
-
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
-
Claudius91 a commencé à suivre Changer administrateur et erreur 424 sur macro
-
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