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

Ajout de lignes vides

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion clood
  • 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
C

clood

XLDnaute Nouveau
Bonjour tout le monde

J'aimerai une nouvelle fois vous demander un petit coup de main sur un fichier excel.

J'ai un tableau avec une colonne de numéros et des données sur les autres.
Imagons que la colonne avec les numéros s'appelle A et les données en B.

A B

101 texte
102 texte
103 texte
104 texte
201 texte
202 texte
203 texte
204 texte
205 texte
206 texte
207 texte
301 texte

J'aimerai ajouter des lignes vides sur cette colonne A pour compléter les chiffres par série de 20. C'est à dire que pour la série qui commence à 101, la faire continuer jusque 120, la série qui commence à 201, la faire continuer jusque 220, pour la 301 jusque 320 et ainsi de suite, tout en gardant les donnes des autres colonnes..

A B

101 texte
102 texte
103 texte
104 texte
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
201 texte
202 texte
203 texte
204 texte
205 texte
206 texte
207 texte
208
209
210
211
212
213
214
215
216
217
218
219
220
301 texte


Je vous met un petit exemple en xls.
Merci a ceux ou celles qui auront un petit peu de temps pour répondre.
 

Pièces jointes

Trier par date Trier par votes
Re : Ajout de lignes vides

Bonjour,

si j'ai compris voici une macro qui ajoute des ligne en rupture de centaine si < la centaine +20

Code: 
Sub CreerLigne()
 For L = Range("A65536").End(xlUp).Row - 1 To 2 Step -1
     If  Int(Cells(L, 1) / 100) <> Int(Cells(L + 1, 1) / 100) Then
         n = Int(Cells(L, 1) / 100) * 100 + 20 - Cells(L, 1)
         If n > 0 Then
            Rows(L + 1 & ":" & L + n).Insert Shift:=xlDown
            For i = L + 1 To L + n
               Cells(i, 1) = Cells(i - 1, 1) + 1
            Next
         End If
     End If

 Next
    
End Sub


GIBI
 
Dernière édition:
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

L
  • Question Question
XL 2013 Aide VBA
Réponses
4
Affichages
1 K
LAC736
L
F
  • Question Question
problème VBA Tri liste personnalise
Réponses
8
Affichages
2 K
david84
D
R
  • Question Question
Traitement d'une chaine de très grand nombre de caractères
Réponses
10
Affichages
2 K
Dranreb
R
  • Question Question
Macro masquant automatiquement lignes f(x) des cellules nulles (0) d'1 autre colonne
Réponses
6
Affichages
1 K
rendan2
R
R
  • Question Question
VBA Problème de macro en changeant le nom du fichier
Réponses
3
Affichages
7 K
phlaurent55
B
  • Question Question
Extension macro
Réponses
10
Affichages
3 K
Benwill153
B
T
  • Question Question
Insérer une formule dans une macro
Réponses
4
Affichages
2 K
Titi91
T
  • Question Question
boucle pour numéroter ligne si elle contien des infos et commencer num depuis une val
Réponses
9
Affichages
2 K
iStarOSX
X
  • Question Question
Modification automatique de références
Réponses
9
Affichages
2 K
Gérard DEZAMIS
G
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
G
  • Question Question
Améliorer et simplifier macro
2
Réponses
17
Affichages
3 K
ERIC S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…