XL 2016 Arrangement des valeurs sur plage

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

  • Classeur11122.xlsx
    15.8 KB · Affichages: 13
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

Discussions similaires

F
  • Question
XL 2019 Demande aide remplissage automatique des colonnes
Réponses
10
Affichages
329
Fidmo
F
F
  • Question
XL 2019 Rechercher des valeurs dans une autre feuille
Réponses
2
Affichages
197
Fidmo
F
I
  • Résolu(e)
Microsoft 365 Supprimer des colonnes discontinues
Réponses
10
Affichages
328
iliess
I
C
  • Résolu(e)
XL 2019 Meilleure option suivant les valeurs
Réponses
7
Affichages
336
cotignac
C
Z
  • Résolu(e)
Microsoft 365 (résolu) Etablir un classement avec des ex-aequo sur la base d'une autre valeur
Réponses
3
Affichages
143
zedude
Z
L
  • Question
XL 2021 recherche de valeurs
Réponses
3
Affichages
303
sylvanu
sylvanu
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
462
crazy
C
D
  • Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
586
AtTheOne
AtTheOne
G
  • Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
381
GClaire
G
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
3 K
RyuAutodidacte
RyuAutodidacte

Membres actuellement en ligne

12 membres et 310 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
313 977
Messages
2 104 145
Membres
108 915
dernier inscrit
abdelhadi