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

XL 2016 macro à appliquer à la ligne suivante

Créer une discussion

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
T

tomakayama

XLDnaute Nouveau
Bonjour à tous;

je dois faire une recherche =GRANDE.VALEUR( dans un tableau croisé dynamique

je dois cliquer sur la case du tableau croisé dynamique pour effectuer la recherche dans le tableau qui est donc créé

ensuite je reporte le resultat trouvé dans la case correspondante

j'aimerais appliquer cette macro à la ligne suivante ..
Avez vous une idée du code à entrer ?

J'aimerais appliquer ma macro à la ligne suivante

Sub Macroinfiniti()
'
' Macroinfiniti Macro
'
'
Range("B48").Select
Selection.ShowDetail = True
Range("J11").Select
ActiveCell.FormulaR1C1 = "=LARGE(C[-1],1)"
Range("J11").Select
Selection.Copy
Sheets("calcul mini et maxi").Select
Range("E48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B49").Select
Selection.ShowDetail = True
Range("J11").Select
ActiveCell.FormulaR1C1 = "=LARGE(C[-1],1)"
Range("J11").Select
Selection.Copy
Sheets("calcul mini et maxi").Select
Range("E49").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B50").Select
Selection.ShowDetail = True
Range("J11").Select
ActiveCell.FormulaR1C1 = "=LARGE(C[-1],1)"
Range("J11").Select
Selection.Copy
Sheets("calcul mini et maxi").Select
Range("E50").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

et puis ainsi de suite
Merci beaucoup
 

Pièces jointes

  • 1560848953564.png
    23.6 KB · Affichages: 4
Trier par date Trier par votes
La macro fonctionne mais que pour une ligne;
j'aimerais tellement que la macro puisse faire la même opération pour la ligne de dessous.. et j'ai du mal à appliquer les réponses déjà existant à mon "problème".
 
Vote positif 0 Vote négatif
pour apporter un peu plus de precision:

je dois récupérer le nombre le plus élevé (=grandevaleur) dans un tableau qui concerne qu'une partie du tableau croisé dynamique;

Jai une multitude de références (plus de 6000) et dans mon croisé dynamique toutes les données sont classées; je prends le total dans le croisées dynamique d'une référence qui est donc classée; quand je clique sur ce total cela m'ouvre une nouvelle fenêtre; et a ce moment j'utilise la fonction grande valeur; pour terminer je récupére cette valeur et je l'indique dans le tableau où se trouve le croisée dynamique; par la suite a cette valeur je lui impute un calcul.

je sais faire le macro(mon tout premier) pour une ref mais pas pour toutes les autres 🙁

en espérant que cela puisse aiguiller. je continu a observer les autres Topics ressembler à ma demande mais javou que cela reste assez abstraite

bonne journée 🙂
 
Vote positif 0 Vote négatif
Sub Macroinfiniti()
'
' Macroinfiniti Macro
'
'

Range("B4").Select
Selection.ShowDetail = True
Range("J11").Select
ActiveCell.FormulaR1C1 = "=LARGE(C[-1],1)"
Range("J11").Select
Selection.Copy
Sheets("mini").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

j'aimerais que ce code puisse passer à la ligne du dessous et faire la même suite d'opération
 
Vote positif 0 Vote négatif
Bonjour tomakyama,

Je ne suis pas certain d'avoir compris l'entièreté de ta demande mais le code suivant ne devrait-il pas fonctionner ?

VB: 
For i = [DebutDeTaPlage] To [FinDeTaPlage]
Range("B" & i).Select
Selection.ShowDetail = True
Range("J11").Select
ActiveCell.FormulaR1C1 = "=LARGE(C[-1],1)"
Range("J11").Select
Selection.Copy
Sheets("calcul mini et maxi").Select
Range("E" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next

Avec une légère modification et de l'optimisation (Les Select prennent beaucoup plus de temps et ne servent à rien), on obtient :

VB: 
For i = [DebutDeTaPlage] To [FinDeTaPlage]
Set ws_calcul = Sheets("calcul mini et maxi")
Range("B" & i).ShowDetail = True
Range("J11").FormulaR1C1 = "=LARGE(C[-1],1)"
Range("J11").Copy
ws_calcul.Range("E" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Next

De plus, si les Range ne contiennent qu'une cellule, pourquoi ne pas utiliser Cells ?

VB: 
For i = [DebutDeTaPlage] To [FinDeTaPlage]
Set ws_calcul = Sheets("calcul mini et maxi")
Cells(i,2).ShowDetail = True 'Pas certain de l'intérêt de cette ligne
Cells(11,10).FormulaR1C1 = "=LARGE(C[-1],1)"
val = Cells(11,10).Value
ws_calcul.Cells(i,5) = val
Next
 
Dernière édition:
Vote positif 0 Vote négatif
Mr Ikito, vous m'avez aidé à acquérir et comprendre le vocabulaire nécessaire pour ce type d'opération.
je vous remercie beaucoup.
j'ai utilisé la première formule qui a fait planter mon PC suite au processeur qui est trop faible mais cela marche quand même et j'ai pu avoir mes réponses.
 
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

Discussions similaires

  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
151
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
297
AtTheOne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
371
Nounours4173
N
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
558
ph.vanne
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
328
sylvanu
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
101
eastwick
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
363
cdric78
C
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
461
micie1509
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
572
Phil69970
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
108
vazvaz
V
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
289
MICHIS
M
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
260
xavieralvaro
X
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
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
663
robpellan52
R
O
  • Question Question
Autres Optimisation macro numérotation ligne
Réponses
11
Affichages
342
crocrocro
C
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
648
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
753
gwenn49
G
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
403
Francky79
F
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…