Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro ou Formule?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jaxlion
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jaxlion

Guest
Bonjour à tous,

Je suis nouveau sur le forum et j'y vois des choses très intéressantes et surtout des solutions.
Je viens vers vous car j'ai un soucis évidement 😱

j'ai cette macro :
Sub Macro3()
Range("B4:H4").Select
Selection.Copy
Range("Q13:Q19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

End Sub

est il possible de la transformer en formule plus facile pour moi ou de la modifier pour qu'elle copie non pas comme ici de B4:H4 vers Q13:Q19 mais de B4:H4 vers Q13:Q19 puis de B5:H5 vers Q13:Q19 puis de B6:H6 vers Q13:Q19 et ainsi de suite à chaque fois que je clique sur le bouton Q13:Q19 étant invariable

Je vous remercie d'avance
Lionel
 
Trier par date Trier par votes
Re : Macro ou Formule?

Bonjour, jaxlion et bienvenue sur XLD.

Peut-être tout simplement :
VB: 
Sub Macro()
Range("Q13:Q19").Value = Application.Transpose(Range("B4:H4"))
End Sub


Oupss : pas lu jusqu'au bout ... Bonjour, Eriiiic 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro ou Formule?

Bonjour,

une proposition qui part de ta sélection départ (B4:H4 sélectionné), te la copie et décale ta sélection d'une ligne pour être prêt sur la suivante.
Code: 
Sub Macro3()
    Dim pl As Range
    Set pl = Selection
    pl.Copy
    Range("Q13:Q19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    pl.Offset(1).Select
End Sub
 
Vote positif 0 Vote négatif
Re : Macro ou Formule?

Bonjour eriiic,

Merci de ta réponse en fait c'est presque çà que je chercher, le curseur devrait retourner en A3, A4, A5 etc... mais il faudrait que les chants que je viens de remplir disont B3:H3 soient selectionnés pour que lorsque j'appuie sur le bouton ça aille dans Q13:Q19 comme convenu, j'espère être clair j'ai un peu de mal à me comprendre moi-même😉

Merci
 
Vote positif 0 Vote négatif
Re : Macro ou Formule?

Re,

jaxlion à dit:
[...] c'est presque çà [...], j'espère être clair j'ai un peu de mal à me comprendre moi-même😉

Merci
Cliquez pour agrandir...

C'est la raison pour laquelle notre Grand Ordonnateur -Merci à Lui 🙂 ) a prévu la possibilité de joindre un fichier explicatif : les différentes phases pourront y être détaillées.
 
Vote positif 0 Vote négatif
Re : Macro ou Formule?

salut

à tester avec un bouton
VB: 
Dim n As Byte 'obligatoire ici
Private Sub CommandButton1_Click()
  n = n + 1: If n > 7 Then n = 1
  [Q13:Q19] = Application.Transpose(Cells(n, 2).Resize(, 7))
End Sub
 
Vote positif 0 Vote négatif
Re : Macro ou Formule?

Voici un exemple voyez ce que vous pouvez faire
Merci à tous, on peut changer l'ordre d'insertion entre dossard et code ça peut être dossard en premier pour plus de facilité à la saisie des chants, enfin c'est vous les experts
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Macro ou Formule?

Bonjour,

le pb c'est que tu ne détailles pas comment tu veux utiliser ta feuille. Et que tu ne répondes pas aux questions...
Des possibilités il y en a un paquet, on pourrait t'en faire 10 qui ne te satisfassent qu'à moitié.
Une parmi d'autres :
- un double-clic sur un code pour l'afficher en Q13:Q19
- une toupie en R23 pour passer de l'un à l'autre
J'ai repris le .Transpose() de Victor auquel je n'avais pas pensé et qui est mieux.

Je ne sais pas pourquoi sur la 1ère action sur la toupie le dossard met 2s pour se mettre à jour (?)
Peut-être que reconstruit dans un classeur neuf ça ira mieux.
eric
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro ou Formule?


Bonjour eriiic,
la toupie près du numéro de dossard est un plus
ce qui me semble bien ce serait que quand je coche "une case a cocher" dans la colonne I toute la ligne qui est derrière donc je coche dans I2 et j'ai en sélection B2,C2,D2,E2,F2,G2,H2, puis je clique sur formulaire et ça renvoie tout dans le formulaire que j'imprime en cliquant sur l'imprimante
J'ai un peu de mal à t'expliquer car je ne sais pas ce qui est possible de faire ou pas, tes conseils avisés et tes modifs sont très bien ça s'approche vraiment de ce que je cherche
Merci de ton travail et du temps que tu y consacre
 
Vote positif 0 Vote négatif
Re : Macro ou Formule?

eriiiic à dit:
Tu as essayé le double-clic sur un n° de code en colonne A ?
Cliquez pour agrandir...

oui c'est bien aussi, mais cela déplace la feuille, est il possible de faire çà quand je clique sur la colonne I, ça evite les déplacements sur la feuille donc au lieu de cliquer sur A je clique sur I puis sur l'imprimante

Merci eriiic
 
Vote positif 0 Vote négatif
Re : Macro ou Formule?

Bonjour,

Je t'avais posé la question :
Que faut-il comprendre ?
Que Q13:Q19 reste visible et sélectionné après l'opération ?
Cliquez pour agrandir...
restée sans réponse.
C'est donc l'occasion pour toi d'apprendre un peu vba.
Clic-droit sur le nom d'onglet et 'Visualiser le code...'
Tu devrais trouver. N'hésite pas à te servir de F1 sur les fonctions que tu ne connais pas.
Demande si tu as besoin d'être un peu plus guidé.
eric
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
183
Magic_Doctor
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
307
Phil69970
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
388
juju91
J
F
Fdaga
Réponses
2
Affichages
82
dysorthographie
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
585
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
752
ph.vanne
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
174
eastwick
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
679
Nounours4173
N
F
Fdaga
Réponses
0
Affichages
149
Fdaga
F
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
353
MATLEA
M
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
528
sylvanu
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
651
micie1509
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
955
Phil69970
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
506
cdric78
C
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
375
MICHIS
M
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
771
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
730
Valter
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…