Merci pour les efforts que vous faites seulement je trouve que l ecran sur telephone est vraiment petit on arrive pas a distinguer ce qui est ecrit ni le deplacement de la souris pour visualiser les cliques effectués.
Bnjr j ai appliqué une Macro sur une case... comment la appliquer sur la totalité de la colonne merci
2 года назад
Bonjour , merci pour ce partage, les vidéos sont très explicites et utiles. Toute fois je n'ai pas trouvé la solution à mon petit souci. J'ai un fichier avec plusieurs macros créer au fur et à mesure, elle ne sont pas lancées par des box ActiveX mais par une zone texte à laquelle j'ai attribué le nom de la macro. J'ai choisi la pire des solutions, car je ne sais plus quelle macro est attribuée à quelle Zone texte, je suis ennuyé pour modifier certaines d'entre elles. Y a t'il une solution pour connaître les liens entre ces macros et mes formes texte? D'avance Merci et puisque nous sommes le 30 décembre je vous souhaite un bon réveillon et une belle Année 2023
Dans la premiere partie de la vidéo avec la macro transposer/tri est ce que c'est possible de mettre une boucle afin d'automatiser la transposer de tous les groupes de données ? Parce que du coup c'est répétitif à faire si on a la manipulation à refaire 100 fois par exemple Merci d'avance
Bonjour. J'ai regardé rapidement une solution, il suffirait d'ajouter tout en bas des groupes une cellule avec écrit "FIN". Par exemple si le dernier groupe est en B100:B102 on met "FIN" par exemple en B104. Ensuite la macro ressemblerait à : Sub Tous() ' Cliquez en haut du premier groupe qui est en colonne B Do While True ' On mémorise le numéro de la ligne n = Selection.Row ' Transposition Selection.CurrentRegion.Select Selection.Copy Range("D" & n).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True ' On retourne dans la colonne B au bon endroit Range("B" & n).Select ' On se met en bas du groupe Selection.End(xlDown).Select ' Puis en haut du groupe suivant Selection.End(xlDown).Select 'Si on voit FIN on sort If ActiveCell.Value = "FIN" Then Exit Do End If Loop End Sub Bien sûr il faudra surement faire quelques adaptations mais cela fonctionne de mon côté.
Bonjour. Au moment de l'enregistrement de la macro (Développeur - Enregistrer une macro), il faut choisir "Enregistrer dans le classeur des macros personnelles". Dans ce cas la macro sera accessible quelque soit le classeur ouvert.
Bonjour. Il y a un ∇ à droite de la barre d'accès rapide tout en haut. Choisir "Autres commandes" puis à gauche catégorie "Macros" et déplacer à droite avec la flèche > pour le mettre dans la barre d'outils "Accès rapide". Mais je ne pense pas que l'on puisse facilement personnaliser le visuel de l'icône comme sous Windows.
Bonjour, J'ai exactement la même formule que vous pourtant lors de l'application de cette macro, j'obtiens seulement les cellules fusionnées avec le fond de couleur sans écriture du texte vacances. J'ai essayé d'ajouter un macro pour tester l'écriture et cela fonctionne. Par contre lorsque je reviens à l'exemple vacances, le mot vacances n'apparaît pas. J'ai essayé de copier le code de la seconde macro ActiveCell.FormulaR1C1 = "travail". Toujours le même souci, autant que je teste cette macro ActiveCell.FormulaR1C1 = "travail" sa fonctionne sur excel autant lorsqu'elle est associé à la première macro ActiveCell.FormulaR1C1 = "vacs", le texte n'apparaît pas. Avez-vous une idée du problème?
@@Schraf Bonjour, sa ne fonctionne pas non plus de cette manière. Par contre, j'ai remarqué qu'au niveau des 2 variantes ( cell et formula), cela fonctionne seulement pour une cellule avec le mot vacances et le fond de couleur. Lorsque j'ai plusieurs cellules, j'ai seulement le fond de couleur qui apparaît
Wow
C'est très bien expliqué, j'ai hâte de voir toute la série de vidéos :)
Excellente vidéo, très claire. Merci !
C'est excellent merci !
très bien expliqué, merci pour ces videos!
Tres bien expliqué , merci infiniment
très intéressant les 2 vidéos. merci
bjr, encore un tuto intéressant; principalement sur les icônes choisies placées dans la barre accès rapide. J'ignorais cette approche. Merci @+ cdt
Superbe application merci j’ai hâte d’essayer
Merci pour les efforts que vous faites seulement je trouve que l ecran sur telephone est vraiment petit on arrive pas a distinguer ce qui est ecrit ni le deplacement de la souris pour visualiser les cliques effectués.
Super bien expliquer !
C est vraiment excellent
Super MERCI !
Excellent
Bnjr j ai appliqué une Macro sur une case... comment la appliquer sur la totalité de la colonne merci
Bonjour , merci pour ce partage, les vidéos sont très explicites et utiles.
Toute fois je n'ai pas trouvé la solution à mon petit souci. J'ai un fichier avec plusieurs macros créer au fur et à mesure, elle ne sont pas lancées par des box ActiveX mais par une zone texte à laquelle j'ai attribué le nom de la macro.
J'ai choisi la pire des solutions, car je ne sais plus quelle macro est attribuée à quelle Zone texte, je suis ennuyé pour modifier certaines d'entre elles. Y a t'il une solution pour connaître les liens entre ces macros et mes formes texte?
D'avance Merci et puisque nous sommes le 30 décembre je vous souhaite un bon réveillon et une belle Année 2023
Dans la premiere partie de la vidéo avec la macro transposer/tri est ce que c'est possible de mettre une boucle afin d'automatiser la transposer de tous les groupes de données ? Parce que du coup c'est répétitif à faire si on a la manipulation à refaire 100 fois par exemple
Merci d'avance
Bonjour. J'ai regardé rapidement une solution, il suffirait d'ajouter tout en bas des groupes une cellule avec écrit "FIN". Par exemple si le dernier groupe est en B100:B102 on met "FIN" par exemple en B104. Ensuite la macro ressemblerait à :
Sub Tous()
' Cliquez en haut du premier groupe qui est en colonne B
Do While True
' On mémorise le numéro de la ligne
n = Selection.Row
' Transposition
Selection.CurrentRegion.Select
Selection.Copy
Range("D" & n).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
' On retourne dans la colonne B au bon endroit
Range("B" & n).Select
' On se met en bas du groupe
Selection.End(xlDown).Select
' Puis en haut du groupe suivant
Selection.End(xlDown).Select
'Si on voit FIN on sort
If ActiveCell.Value = "FIN" Then
Exit Do
End If
Loop
End Sub
Bien sûr il faudra surement faire quelques adaptations mais cela fonctionne de mon côté.
Je vous remercie. Je trouve vos vidéos très intéressante. Bonne soirée
merci pour ce tuto, j 'ai une question si j’enregistre une macro pour un fichier elle sera valable pour chaque nouveau ficher excel ? merci
Bonjour. Au moment de l'enregistrement de la macro (Développeur - Enregistrer une macro), il faut choisir "Enregistrer dans le classeur des macros personnelles". Dans ce cas la macro sera accessible quelque soit le classeur ouvert.
@@Schraf MERCI BCP
merci c'est super il fallait y penser...
Bonsoir, la barre d'outils accès rapide, cela ne fonctionne pas sur Mac
avez vous une solution ?
Bonjour. Il y a un ∇ à droite de la barre d'accès rapide tout en haut. Choisir "Autres commandes" puis à gauche catégorie "Macros" et déplacer à droite avec la flèche > pour le mettre dans la barre d'outils "Accès rapide". Mais je ne pense pas que l'on puisse facilement personnaliser le visuel de l'icône comme sous Windows.
@@Schraf merci beaucoup effectivement on ne peut pas
Bonjour,
J'ai exactement la même formule que vous pourtant lors de l'application de cette macro, j'obtiens seulement les cellules fusionnées avec le fond de couleur sans écriture du texte vacances. J'ai essayé d'ajouter un macro pour tester l'écriture et cela fonctionne. Par contre lorsque je reviens à l'exemple vacances, le mot vacances n'apparaît pas. J'ai essayé de copier le code de la seconde macro ActiveCell.FormulaR1C1 = "travail". Toujours le même souci, autant que je teste cette macro ActiveCell.FormulaR1C1 = "travail" sa fonctionne sur excel autant lorsqu'elle est associé à la première macro ActiveCell.FormulaR1C1 = "vacs", le texte n'apparaît pas. Avez-vous une idée du problème?
Bjr. Comme ça je ne vois pas le problème, essayez avec ActiveCell.Value = "vacs"
@@Schraf Bonjour, sa ne fonctionne pas non plus de cette manière. Par contre, j'ai remarqué qu'au niveau des 2 variantes ( cell et formula), cela fonctionne seulement pour une cellule avec le mot vacances et le fond de couleur. Lorsque j'ai plusieurs cellules, j'ai seulement le fond de couleur qui apparaît
merci bcp c top
super