suite de nombre dans une colonne

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

perrmi

XLDnaute Occasionnel
bonjour ,

j'ai 5 colonnes de chiffres différents.(jamais les memes ).

Dans chaque colonne j'aimerais extraire les suites de nombres (Chiffres)
exemple:
-colonne A :
J'ai les nombres 1...4.5....9.10.11......
-Colonne B:
12...15
-Colonne C:
2...4....6.7.8....13.14
-Colonne D:
16
-Colonne E:
3

j'aimerais donc faire un tableau ou apparaisse les suite de nombres.
pour chaque colonne j'aurai donc :
A= 9-10-11
B=
C=6-7-8
D=
E=

Merci
Michel

je vais essayer d'etre plus precis
ci dessous un tableau


j'aimerais donc creer un tableau pour chaque colonne A-B-C-D-E
Visualiser les suites de nombres
comme ceci
upload_2017-4-9_19-21-52.png

a partir de ce tableau creer un tableau pour visualiser les suites de nombres
comme le tableau ci dessous.
upload_2017-4-9_19-24-21.png
 

Pièces jointes

  • upload_2017-4-9_19-14-17.png
    upload_2017-4-9_19-14-17.png
    8 KB · Affichages: 31
Dernière édition:
Trier par date Trier par votes
merci de votre réponse ,j'ai posté une modification de ma question
pour votre réponse ,on s'en approche
merci
la série peux etre une série (suite) de 2 voir 3 ou plus de nombres.
encore merci
Michel

ps chque chiffre doit etre dans une cellule comme mon tableau joint
merci encore
Michel
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour perrmi et bienvenue sur XLD 🙂,

perrmi à dit:
bonjour
merci de votre feedback
je pense etre correct ,poli
pouvez vous me spécifier ou le bas blesse
merci
Michel
Cliquez pour agrandir...

Cathodique a voulu gentiment te dire qu'avec un fichier Excel joint, les répondants seront plus enclins à chercher une réponse à ta question. Une image ne sert pas à grand chose et oblige chaque répondant à construire un fichier (pour élaborer et tester la solution); fichier qui en plus ne sera pas sans doute pas identique au tien.

A+ 😉
 
Vote positif 0 Vote négatif
Re, salut mapomme,

Il faut du VBA et ce n'est pas très simple.

Voici la macro (affectée au bouton) :
Code: 
Sub Series()
Dim nlig&, tablo, dest As Range, col%, a(), n&, lig&, nmax&
With [A3:E22] ' tableau source, à adapter
  nlig = .Rows.Count
  tablo = .Resize(nlig + 1) '1 ligne de plus
End With
Set dest = [B27] 'à adapter
For col = 1 To UBound(tablo, 2)
  ReDim a(1 To nlig)
  n = 0
  For lig = 1 To nlig
    If tablo(lig, col) <> "" And tablo(lig + 1, col) = tablo(lig, col) + 1 Then
      n = n + 1
      a(n) = tablo(lig, col)
    ElseIf n Then
      If a(n) <> "" Then
        n = n + 1
        If tablo(lig, col) = a(n - 1) + 1 Then a(n) = tablo(lig, col): If n > nmax Then nmax = n
      End If
    End If
  Next lig
  dest(col).Resize(, nlig) = a
Next col
dest.Resize(col - 1, nlig).Borders.LineStyle = xlNone 'RAZ des bordures
If nmax Then dest.Resize(col - 1, nmax).Borders.Weight = xlThin
End Sub
Fichier joint.

Edit : j'ai ajouté les bordures sur les résultats.

Bonne nuit.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour perrmi, le forum,

Si le nombre de lignes du tableau source peut dépasser le nombre de colonnes de la feuille il faut disposer les résultats en lignes, fichier (2) et cette macro :
Code: 
Sub Series()
Dim nlig&, tablo, dest As Range, col%, a(), n&, lig&, nmax&
With [A3:E22] ' tableau source, à adapter
  nlig = .Rows.Count
  tablo = .Resize(nlig + 1) '1 ligne de plus
End With
Set dest = [G3] 'à adapter
For col = 1 To UBound(tablo, 2)
  ReDim a(1 To nlig, 1 To 1)
  n = 0
  For lig = 1 To nlig
    If tablo(lig, col) <> "" And tablo(lig + 1, col) = tablo(lig, col) + 1 Then
      n = n + 1
      a(n, 1) = tablo(lig, col)
    ElseIf n Then
      If a(n, 1) <> "" Then
        n = n + 1
        If tablo(lig, col) = a(n - 1, 1) + 1 Then a(n, 1) = tablo(lig, col): If n > nmax Then nmax = n
      End If
    End If
  Next lig
  dest(1, col).Resize(nlig) = a
Next col
dest.Resize(nlig, col - 1).Borders.LineStyle = xlNone 'RAZ des bordures
If nmax Then dest.Resize(nmax, col - 1).Borders.Weight = xlThin
End Sub
Edit : pour tester j'ai copié le tableau sur 20 000 lignes => A3:E20002.

Chez moi la macro s'exécute en 0,4 seconde.

Bonne journée.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
job75 à dit:
Re, salut mapomme,

Il faut du VBA et ce n'est pas très simple.

Voici la macro (affectée au bouton) :
Code: 
Sub Series()
Dim nlig&, tablo, dest As Range, col%, a(), n&, lig&, nmax&
With [A3:E22] ' tableau source, à adapter
  nlig = .Rows.Count
  tablo = .Resize(nlig + 1) '1 ligne de plus
End With
Set dest = [B27] 'à adapter
For col = 1 To UBound(tablo, 2)
  ReDim a(1 To nlig)
  n = 0
  For lig = 1 To nlig
    If tablo(lig, col) <> "" And tablo(lig + 1, col) = tablo(lig, col) + 1 Then
      n = n + 1
      a(n) = tablo(lig, col)
    ElseIf n Then
      If a(n) <> "" Then
        n = n + 1
        If tablo(lig, col) = a(n - 1) + 1 Then a(n) = tablo(lig, col): If n > nmax Then nmax = n
      End If
    End If
  Next lig
  dest(col).Resize(, nlig) = a
Next col
dest.Resize(col - 1, nlig).Borders.LineStyle = xlNone 'RAZ des bordures
If nmax Then dest.Resize(col - 1, nmax).Borders.Weight = xlThin
End Sub
Fichier joint.

Edit : j'ai ajouté les bordures sur les résultats.

Bonne nuit.
Cliquez pour agrandir...
Merci de vous etre donné la peine
cela correspond a ce que je recherche
félicitation
je vais essayer maintenant d'inserer le code dans mon classeur excel
bonne journée
perrmi
 
Vote positif 0 Vote négatif
job75 à dit:
Re, salut mapomme,

Il faut du VBA et ce n'est pas très simple.

Voici la macro (affectée au bouton) :
Code: 
Sub Series()
Dim nlig&, tablo, dest As Range, col%, a(), n&, lig&, nmax&
With [A3:E22] ' tableau source, à adapter
  nlig = .Rows.Count
  tablo = .Resize(nlig + 1) '1 ligne de plus
End With
Set dest = [B27] 'à adapter
For col = 1 To UBound(tablo, 2)
  ReDim a(1 To nlig)
  n = 0
  For lig = 1 To nlig
    If tablo(lig, col) <> "" And tablo(lig + 1, col) = tablo(lig, col) + 1 Then
      n = n + 1
      a(n) = tablo(lig, col)
    ElseIf n Then
      If a(n) <> "" Then
        n = n + 1
        If tablo(lig, col) = a(n - 1) + 1 Then a(n) = tablo(lig, col): If n > nmax Then nmax = n
      End If
    End If
  Next lig
  dest(col).Resize(, nlig) = a
Next col
dest.Resize(col - 1, nlig).Borders.LineStyle = xlNone 'RAZ des bordures
If nmax Then dest.Resize(col - 1, nmax).Borders.Weight = xlThin
End Sub
Fichier joint.

Edit : j'ai ajouté les bordures sur les résultats.

Bonne nuit.
Cliquez pour agrandir...
Merci de vous etre donné la peine
cela correspond a ce que je recherche
félicitation
je vais essayer maintenant d'inserer le code dans mon classeur excel
bonne journée
perrmi
job75 à dit:
Re, salut mapomme,

Il faut du VBA et ce n'est pas très simple.

Voici la macro (affectée au bouton) :
Code: 
Sub Series()
Dim nlig&, tablo, dest As Range, col%, a(), n&, lig&, nmax&
With [A3:E22] ' tableau source, à adapter
  nlig = .Rows.Count
  tablo = .Resize(nlig + 1) '1 ligne de plus
End With
Set dest = [B27] 'à adapter
For col = 1 To UBound(tablo, 2)
  ReDim a(1 To nlig)
  n = 0
  For lig = 1 To nlig
    If tablo(lig, col) <> "" And tablo(lig + 1, col) = tablo(lig, col) + 1 Then
      n = n + 1
      a(n) = tablo(lig, col)
    ElseIf n Then
      If a(n) <> "" Then
        n = n + 1
        If tablo(lig, col) = a(n - 1) + 1 Then a(n) = tablo(lig, col): If n > nmax Then nmax = n
      End If
    End If
  Next lig
  dest(col).Resize(, nlig) = a
Next col
dest.Resize(col - 1, nlig).Borders.LineStyle = xlNone 'RAZ des bordures
If nmax Then dest.Resize(col - 1, nmax).Borders.Weight = xlThin
End Sub
Fichier joint.

Edit : j'ai ajouté les bordures sur les résultats.

Bonne nuit.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
job75 à dit:
Re, salut mapomme,

Il faut du VBA et ce n'est pas très simple.

Voici la macro (affectée au bouton) :
Code: 
Sub Series()
Dim nlig&, tablo, dest As Range, col%, a(), n&, lig&, nmax&
With [A3:E22] ' tableau source, à adapter
  nlig = .Rows.Count
  tablo = .Resize(nlig + 1) '1 ligne de plus
End With
Set dest = [B27] 'à adapter
For col = 1 To UBound(tablo, 2)
  ReDim a(1 To nlig)
  n = 0
  For lig = 1 To nlig
    If tablo(lig, col) <> "" And tablo(lig + 1, col) = tablo(lig, col) + 1 Then
      n = n + 1
      a(n) = tablo(lig, col)
    ElseIf n Then
      If a(n) <> "" Then
        n = n + 1
        If tablo(lig, col) = a(n - 1) + 1 Then a(n) = tablo(lig, col): If n > nmax Then nmax = n
      End If
    End If
  Next lig
  dest(col).Resize(, nlig) = a
Next col
dest.Resize(col - 1, nlig).Borders.LineStyle = xlNone 'RAZ des bordures
If nmax Then dest.Resize(col - 1, nmax).Borders.Weight = xlThin
End Sub
Fichier joint.

Edit : j'ai ajouté les bordures sur les résultats.

Bonne nuit.
Cliquez pour agrandir...
Merci de vous etre donné la peine
cela correspond a ce que je recherche
félicitation
je vais essayer maintenant d'inserer le code dans mon classeur excel
bonne journée
perrmi
 
Vote positif 0 Vote négatif
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

C
  • Question Question
Microsoft 365 fonction max renvoie la colonne
Réponses
3
Affichages
156
Gégé-45550
Gégé-45550
C
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
130
Cathel
C
kdet
  • Question Question
XL 2021 (RESOLU) XL 2024 LTSC Problèmes de remplissage automatique en colonne
Réponses
6
Affichages
158
kdet
kdet
N
  • Question Question
XL 2010 creer une base de donnée
2
Réponses
15
Affichages
674
n_turf
N
T
  • Question Question
XL 2019 Chiffre dans les 2 colonnes ( pour faire calcul ) { pas juste la formule }
Réponses
4
Affichages
171
sylvanu
sylvanu
jeanmi
  • Résolu(e)
XL 2010 Création de listes déroulantes interactive
5 6 7
Réponses
100
Affichages
3 K
Piment
P
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
266
Kristelle1555
K
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
401
sylvanu
sylvanu
jeff1494
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
577
jeff1494
jeff1494
B
  • Résolu(e)
Microsoft 365 Recherche de plusieurs critères dans une cellule
2
Réponses
19
Affichages
685
Bambi35
B
E
  • Question Question
XL 2019 additionner plusieurs valeurs pour un même sku
Réponses
3
Affichages
462
elevirfre13
E
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
409
job75
job75
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
776
piga25
piga25
3xceln4ute
  • Résolu(e)
Microsoft 365 👉 Listes déroulantes dépendantes d'une seule colonne
Réponses
1
Affichages
298
3xceln4ute
3xceln4ute
K
  • Question Question
Microsoft 365 Excel - Répartition Charge de travail (mensuel)
Réponses
10
Affichages
664
Kristelle1555
K
B
  • Résolu(e)
XL 2021 Grand écart suite
Réponses
10
Affichages
435
mapomme
mapomme
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
198
PR.
P
pompaero
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
339
pompaero
pompaero
F
  • Question Question
XL 2019 Mettre en surbrillance une colonne en fonction de l'entête
Réponses
7
Affichages
401
TooFatBoy
TooFatBoy
D
  • Résolu(e)
XL 2021 Recherche valeurs dates avec index
Réponses
5
Affichages
206
Did25
D
Retour