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

XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs

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
B

benjy555

XLDnaute Junior
Bonjour a tous et deja merci pour votre aide 🙂

Voici l'idée : je souhaite obtenir en colonne la liste de toutes les valeurs comprises entre 2 valeurs.

En A1 il y a un type : "TOTO" en B1 il y la valeurs "1"et C 1 il y a la valeurs "10"
j'ai besoin que en D1 (peu importe, ou meme dans un nouvel onglet) la macro viennent écrire "TOTO" puis en E1 la valeurs "1" et ensuite en en D2 à nouveau "TOTO" puis en E2 : "2" , D3 "TOTO" et E3 "3" etc jusqu'à "10" en E10

Mais en A2, B2 et C2 il y a encore un nouveau type et 2 autres valeurs, par ex "TATA" "15" et "20" et il faut venir à la suite de D10 donc en D11 mettre "TATA" puis en E11 mettre "15" etc jusqu' "20"

voici l'exemple en fichier excel avec le résultat souhaité en colonne C
pour info dans mon vrai fichier j'ai plus de 14 000 ligne d'intervalles de valeurs d'ou la nécessité de la macro

merci
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Bonjour.
Désolé pour le bogue. Corrigé :
VB: 
Option Explicit
Sub GénNbr()
   Dim TDonn(), TRésu(), L&, N&, LR&
   TDonn = ActiveSheet.[A1].Resize(ActiveSheet.Cells(2 ^ 20, "B").End(xlUp).Row, 3).Value
   For L = 1 To UBound(TDonn, 1)
      If VarType(TDonn(L, 2)) = vbDouble And VarType(TDonn(L, 3)) = vbDouble Then
         If TDonn(L, 3) >= TDonn(L, 2) Then LR = LR + TDonn(L, 3) - TDonn(L, 2) + 1
         End If
      Next L
   ReDim TRésu(1 To LR, 1 To 2)
   LR = 0
   For L = 1 To UBound(TDonn, 1)
      If VarType(TDonn(L, 2)) = vbDouble And VarType(TDonn(L, 3)) = vbDouble Then
         For N = TDonn(L, 2) To TDonn(L, 3)
            LR = LR + 1: TRésu(LR, 1) = TDonn(L, 1): TRésu(LR, 2) = N
            Next N: End If: Next L
   ActiveSheet.[D:E].ClearContents
   ActiveSheet.[D1].Resize(LR, 2).Value = TRésu
   End Sub
 
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

S
  • Question Question
XL pour MAC récupérer les valeurs d’une plage colonne continue à partir d’une plage discontinue.
Réponses
12
Affichages
470
sergio_bzh
S
  • Question Question
Microsoft 365 Fonction pour détecter 2 valeurs approximatives ?
Réponses
1
Affichages
88
crocrocro
C
S
  • Question Question
Microsoft 365 Extraire valeurs de courbe de Tendance Polynomiale
Réponses
8
Affichages
296
steepo
S
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
109
aurejotrail
A
C
  • Résolu(e)
XL 2019 Meilleure option suivant les valeurs
Réponses
7
Affichages
524
cotignac
C
  • Question Question
Microsoft 365 Calcul total horaire entre 1er jour et dernier jour de chaque mois
Réponses
5
Affichages
191
pompaero
O
  • Question Question
Microsoft 365 Détection valeurs croissante/décroissante dans courbe
Réponses
4
Affichages
281
Oli-excel
O
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
195
YGU1
Y
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
308
bruno lemaire
B
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
868
arnomorize
A
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
341
Nounours4173
N
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
178
job75
Y
  • Résolu(e)
XL 2016 Importer des données suivant l'ordre de passage
Réponses
10
Affichages
310
YGU1
Y
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
328
PMG
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
178
vgendron
O
  • Résolu(e)
Microsoft 365 Générer une heure aléatoire entre 2 heures données. Mais sans les secondes
Réponses
8
Affichages
420
Olihoes
O
C
  • Résolu(e)
XL 2019 Moyenne avec de nouvelles valeurs
Réponses
5
Affichages
374
cotignac
C
T
  • Résolu(e)
Microsoft 365 tri de données sur valeurs définies
Réponses
3
Affichages
381
Thierry R
T
O
  • Question Question
XL 2021 finaliser un script VBA pour répartir une liste de personnes dans des villes.
2
Réponses
19
Affichages
467
gbinforme
G
F
  • Question Question
XL 2019 Calcul ecart type entre 2 dates filtré par année et par nom
Réponses
4
Affichages
336
ALS35
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…