XL 2016 Arrangement des valeurs sur plage

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Seddiki_adz
  • 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
S

Seddiki_adz

XLDnaute Impliqué
bonjour
je cherche une méthode pour arranger les valeurs des colonnes E G K I M . le plage Q2; X10 par ordre (suite arithmétique de raison 9)
comme montre la figure sur document joint
Merci
 

Pièces jointes

Solution
S
@Seddiki

petite optimisation : With Cells(lg1, cl1) et End With étaient inutiles ; je les ai supprimés, puis à la place de Cells(lg2, cl2) = .Value j'ai mis directement : Cells(lg2, cl2) = Cells(lg1, cl1) ; même utilisation qu'avant ; et mêmes résultats. 🙂​


nouveau code VBA (26 lignes) :

VB: 
Option Explicit

Private Sub Job(k As Byte)
  Dim cl1 As Byte, lg1&, dlA&
  Dim cl2 As Byte, lg2 As Byte, dlB As Byte
  Dim dcB As Byte, lgA As Byte, lgB As Byte
  If k = 1 Then 'pour les professeurs
    cl1 = 5: lg1 = 5: dlA = 79: cl2 = 17: lg2 = 5: dlB = 13: dcB = 34
  Else 'pour les remplaçants
    cl1 = 5: lg1 = 5: dlA = 79: cl2 = 17: lg2 = 29: dlB = 37: dcB = 23
  End If
  lgA =...
Trier par date Trier par votes
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

jcf6464
  • Résolu(e)
Microsoft 365 Trier sur colonnes disjointe sur 12 feuilles
Réponses
6
Affichages
244
jcf6464
jcf6464
Y
  • Résolu(e)
XL 2016 Importer des données suivant l'ordre de passage
2
Réponses
15
Affichages
553
YGU1
Y
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
648
piga25
piga25
F
  • Question Question
XL 2019 Demande aide remplissage automatique des colonnes
Réponses
10
Affichages
548
Fidmo
F
F
  • Question Question
XL 2019 Rechercher des valeurs dans une autre feuille
Réponses
2
Affichages
386
Fidmo
F
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
C
  • Résolu(e)
XL 2019 Meilleure option suivant les valeurs
Réponses
7
Affichages
551
cotignac
C
S
  • Question Question
XL 2016 Comment attribuer des classes avec trois conditions?
Réponses
7
Affichages
247
TooFatBoy
TooFatBoy
I
  • Résolu(e)
Microsoft 365 Supprimer des colonnes discontinues
Réponses
10
Affichages
461
iliess
I
L
  • Question Question
XL 2021 recherche de valeurs
Réponses
3
Affichages
498
sylvanu
sylvanu
oguruma
EXCEL :: TRIER - TRIER.PAR - SOMMEPROD - CHOISIR - INDEX - SOMME.SI - NB.SI - DECALER - SEQUENCE : Tris dynamiques, regroupements et somme
Réponses
0
Affichages
382
oguruma
oguruma
Z
  • Résolu(e)
Microsoft 365 (résolu) Etablir un classement avec des ex-aequo sur la base d'une autre valeur
Réponses
2
Affichages
421
zedude
Z
oguruma
EXCEL :: Effectuer des regroupements avec agrégations de données :: GROUPER.PAR
Réponses
1
Affichages
499
oguruma
oguruma
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
702
crazy
C
klin89
  • Résolu(e)
Microsoft 365 Affecter des valeurs à 2 variables tableau en comparant 2 séquences d'éléments pour remplir une colonne
2 3 4
Réponses
50
Affichages
4 K
RyuAutodidacte
RyuAutodidacte
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
AtTheOne
G
  • Question Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
643
GClaire
G
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
799
Lyrix
L
A
  • Résolu(e)
XL 2016 Sélection des dernières valeurs
Réponses
8
Affichages
601
anajsn
A
Retour