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

XL 2019 Réaliser une incrémentation de plusieurs plages de données.

A

ApprentiCodeur

XLDnaute Nouveau
Bonjour à tous,

J'ai réalisé un tableau dans lequel, chaque cellule fait partie d'un menu déroulant à cascade (c'est à dire que pour une ligne, la cellule D4 aura différentes options à proposer en fonction de la cellule précédente :C4). Ainsi ce tableau est défini par une plage range("B5:L24") et dans la feuille "Commande(s)"

Mon but est de couper coller les valeurs ce tableau dans un récap (situé dans une autre feuille "recap"). Cet autre tableau en "recap" est censé pouvoir acceuillir plusieurs tableaux à la suite de la feuille "commande(s)".

J'ai réussi à couper coller, via un bouton, mais j'aimerai, que quand je réalise plusieurs fois cette action (clic bouton), en plus de couper coller, les tableaux de "commandes" s'incrémentent en "reacp" mais à la suite (BD1,BD2).

J'ai essayé plusieurs options comme comme décomposer range() en rang(cells(+n),cells()) et en ajoutant une incrémentation (n) dans les coordonnées de cells(), mais cela me provoque des erreurs, et mon couper/coller ne fonctionne plus.

C'est assez compliqué à expliquer par message, mais je vous laisse en PJ mon projet si jamais un intéressé pourrait m'éclaircir ou me proposer des outils plus adaptés.

Je compte sur vos lumières merci par avance
 

Pièces jointes

  • Projet Reporting data.xlsm
    48.9 KB · Affichages: 7
Solution
Bonjour ApprentiCodeur,
Un essai en PJ avec :
VB: 
Sub Transferer()
    Dim Bleu, DL%, NoBD%
    Application.ScreenUpdating = False
' Définition couleur pour une matrice sur deux
    Bleu = RGB(230, 255, 255)   ' couleur à adapter si besoin
' Calcul ligne où coller datas
    DL = 1 + Sheets("Recap").Range("B65500").End(xlUp).Row
    If DL < 3 Then DL = 3 ' cas où tableau Recap vide
' Copie du format quadrillage à la fin de Recap
    Sheets("Recap").Select
    [Quadrillage].Copy
    Cells(DL, "B").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Copier les valeurs
    Sheets("Recap").Range("C" & DL & ":M" & DL + 19) = [Données].Value
' Incrément des BD
    NoBD = 1 +...
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour ApprentiCodeur,
Un essai en PJ avec :
VB: 
Sub Transferer()
    Dim Bleu, DL%, NoBD%
    Application.ScreenUpdating = False
' Définition couleur pour une matrice sur deux
    Bleu = RGB(230, 255, 255)   ' couleur à adapter si besoin
' Calcul ligne où coller datas
    DL = 1 + Sheets("Recap").Range("B65500").End(xlUp).Row
    If DL < 3 Then DL = 3 ' cas où tableau Recap vide
' Copie du format quadrillage à la fin de Recap
    Sheets("Recap").Select
    [Quadrillage].Copy
    Cells(DL, "B").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Copier les valeurs
    Sheets("Recap").Range("C" & DL & ":M" & DL + 19) = [Données].Value
' Incrément des BD
    NoBD = 1 + Val(Mid(Sheets("Recap").Cells(DL - 1, "B"), 3))
    Sheets("Recap").Range("B" & DL & ":B" & DL + 19) = "BD" & NoBD
' Mise en couleurs une matrice sur deux
    If Sheets("Recap").Cells(DL - 1, "B").Interior.Color <> Bleu Then
        Sheets("Recap").Range("B" & DL & ":M" & DL + 19).Interior.Color = Bleu
    Else
        Sheets("Recap").Range("B" & DL & ":M" & DL + 19).Interior.Color = vbWhite
    End If
' Repositionnement curseur
    Sheets("Recap").Range("B" & DL).Select
    Sheets("Commande(s)").Select
End Sub
La mise en couleur une matrice sur deux permet une meilleure lisibilité de Recap. ( à mon avis )
 

Pièces jointes

  • Projet Reporting data.xlsm
    37.4 KB · Affichages: 2
Vote positif 1 Vote négatif
Solution
A

ApprentiCodeur

XLDnaute Nouveau
Bonjour et un grand merci à toi Sylvanu,
C'est encore mieux que ce dont je pouvais espérer ! J'ai encore beaucoup à apprendre !
L'idée de changer de couleur pour une matrice sur deux est très astucieux. De plus je n'ai pas à marquer le numéro de bandereau dans mon "recap" c'est super!
Merci beaucoup pour cette solution.
J'ai juste une petite question, est ce que je dois modifier le select (ci-dessous) pour que le BD1 de mon "recap" ne soit pas sélectionné à chaque transfert ?

' Repositionnement curseur
Sheets("Recap").Range("B" & DL).Select
Sheets("Commande(s)").Select


Encore merci dans l'attente de ton retour

Cdt
 
Dernière édition:
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Comme tout se passe sur la feuille Recap, il y a effectivement plus simple :
VB: 
Sub Transferer()
    Dim Bleu, DL%, NoBD%
    Application.ScreenUpdating = False
' On se met sur la feuille Recap
    Sheets("Recap").Select
' Définition couleur pour une matrice sur deux
    Bleu = RGB(230, 255, 255)   ' couleur à adapter si besoin
' Calcul ligne où coller datas
    DL = 1 + Range("B65500").End(xlUp).Row
    If DL < 3 Then DL = 3 ' cas où tableau Recap vide
' Copie du format quadrillage à la fin de Recap
    [Quadrillage].Copy
    Cells(DL, "B").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' Copier les valeurs
    Range("C" & DL & ":M" & DL + 19) = [Données].Value
' Incrément des BD
    NoBD = 1 + Val(Mid(Cells(DL - 1, "B"), 3))
    Range("B" & DL & ":B" & DL + 19) = "BD" & NoBD
' Mise en couleurs une matrice sur deux
    If Cells(DL - 1, "B").Interior.Color <> Bleu Then
        Range("B" & DL & ":M" & DL + 19).Interior.Color = Bleu
    Else
        Range("B" & DL & ":M" & DL + 19).Interior.Color = vbWhite
    End If
' Repositionnement curseur
    Range("B" & DL).Select
    Sheets("Commande(s)").Select
End Sub
De cette façon tous les Sheets("Recap") deviennent inutiles.
Ca été fait à l'arraché sans souci d'optimisation.
 

Pièces jointes

  • Projet Reporting data(V2).xlsm
    37.5 KB · Affichages: 2
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Résolu(e)
XL 2016 Plage de données fixes pour calcul dans formule
Réponses
3
Affichages
372
sylvanu
R
  • Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
334
rh.finances
R
  • Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
1 K
BenHarber
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
715
Pac41240
P
C
  • Résolu(e)
Microsoft 365 Créer une base de donnée depuis un tableau
Réponses
3
Affichages
449
Chessnocoma
C
L
  • Question
Microsoft 365 KPI - Performance Commerciale
Réponses
2
Affichages
565
laurabachau
L
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
455
steph_29120
S
Z
  • Question
Microsoft 365 Segment commun avec plusieurs onglets source de données
Réponses
12
Affichages
577
Zazagally
Z
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
655
loloboc
L
R
  • Résolu(e)
XL 2019 macro couper-coller sur plusieurs onglets
Réponses
9
Affichages
757
job75
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
329
micie1509
S
  • Question
XL 2021 nbre occurence identique en fonction de plusieurs critères
Réponses
2
Affichages
232
stefb1968
S
N
  • Résolu(e)
XL pour MAC Erreur à l'enregistrement de plusieurs fichiers Excel
Réponses
5
Affichages
167
Noymie
N
R
  • Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
627
Renaud22
R
  • Question
Microsoft 365 Modifier l'ordre de présentation des données dans un graphique Secteur
Réponses
6
Affichages
304
crocrocro
C
L
  • Résolu(e)
XL 2016 MFC sur plusieurs critères
2 3 4
Réponses
55
Affichages
2 K
Lorenzini
L
D
  • Question
XL 2016 Une Zone de Liste pour plusieurs cellules.
Réponses
7
Affichages
201
duduche62
D
M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
267
mromain
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
460
Nel'
N
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
293
Droopyougo
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…