Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Insertion Ligne vide...

Insertion Ligne vide...

8 réponses
Avatar
Franki
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...
Fr@nki
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Franki,

Rows(17).Insert Shift:=xlDown
Rows(26).Insert Shift:=xlDown

isabelle

Franki a écrit :
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...





Avatar
Franki
Sympa Isabelle,
Sauf que mon exemple est fixe mais pas
mes données.
En effet, j'utilise une macro auparavant qui trie
mes données et je n'ai pas fatalement dans la
cellule "C16" la valeur 268 pas plus que 269
dans la cellule "C17" car les données sont volatiles...
c'est ce qui me gène dans la formule"Rows(17)
ou Rows(26)
Bien à toi Isabelle...



"isabelle" a écrit dans le message de news:

bonjour Franki,

Rows(17).Insert Shift:=xlDown
Rows(26).Insert Shift:=xlDown

isabelle

Franki a écrit :
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...






Avatar
isabelle
bonjour Franky,

ton exemple n'est pas très explicite,
pourquoi n'y a t'il pas de ligne insérer entre les lignes 2:3, 4:5, et 13:14

isabelle

Franki a écrit :
Sympa Isabelle,
Sauf que mon exemple est fixe mais pas
mes données.
En effet, j'utilise une macro auparavant qui trie
mes données et je n'ai pas fatalement dans la
cellule "C16" la valeur 268 pas plus que 269
dans la cellule "C17" car les données sont volatiles...
c'est ce qui me gène dans la formule"Rows(17)
ou Rows(26)
Bien à toi Isabelle...



"isabelle" a écrit dans le message de news:

bonjour Franki,

Rows(17).Insert Shift:=xlDown
Rows(26).Insert Shift:=xlDown

isabelle

Franki a écrit :
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...









Avatar
isabelle
ps/

si c'est pour faire ressortir des groupes de cellule identique :

Sub Macro1()
For i = 2 To Range("C65536").End(xlUp).Row
If Range("C" & i) = Range("C" & i + 1) Or Range("C" & i) = Range("C" & i - 1) Then Range("C" & i).Interior.ColorIndex = 6
Next
End Sub

isabelle

isabelle a écrit :
bonjour Franky,

ton exemple n'est pas très explicite,
pourquoi n'y a t'il pas de ligne insérer entre les lignes 2:3, 4:5, et
13:14

isabelle

Franki a écrit :
Sympa Isabelle,
Sauf que mon exemple est fixe mais pas
mes données.
En effet, j'utilise une macro auparavant qui trie
mes données et je n'ai pas fatalement dans la
cellule "C16" la valeur 268 pas plus que 269
dans la cellule "C17" car les données sont volatiles...
c'est ce qui me gène dans la formule"Rows(17)
ou Rows(26)
Bien à toi Isabelle...



"isabelle" a écrit dans le message de news:

bonjour Franki,

Rows(17).Insert Shift:=xlDown
Rows(26).Insert Shift:=xlDown

isabelle

Franki a écrit :
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...











Avatar
Papyjac
Bonjour Franki

Je déconseille l'insertion de ligne vide dans les listes, car ta belle liste
se trouve tronquée

Je voudrais donc savoir pourquoi tu veux mettre des lignes vides, si ce
n'est pas trop confidentiel

--
Papyjac


"isabelle" a écrit :

ps/

si c'est pour faire ressortir des groupes de cellule identique :

Sub Macro1()
For i = 2 To Range("C65536").End(xlUp).Row
If Range("C" & i) = Range("C" & i + 1) Or Range("C" & i) = Range("C" & i - 1) Then Range("C" & i).Interior.ColorIndex = 6
Next
End Sub

isabelle

isabelle a écrit :
> bonjour Franky,
>
> ton exemple n'est pas très explicite,
> pourquoi n'y a t'il pas de ligne insérer entre les lignes 2:3, 4:5, et
> 13:14
>
> isabelle
>
> Franki a écrit :
>> Sympa Isabelle,
>> Sauf que mon exemple est fixe mais pas
>> mes données.
>> En effet, j'utilise une macro auparavant qui trie
>> mes données et je n'ai pas fatalement dans la
>> cellule "C16" la valeur 268 pas plus que 269
>> dans la cellule "C17" car les données sont volatiles...
>> c'est ce qui me gène dans la formule"Rows(17)
>> ou Rows(26)
>> Bien à toi Isabelle...
>>
>>
>>
>> "isabelle" a écrit dans le message de news:
>>
>>> bonjour Franki,
>>>
>>> Rows(17).Insert Shift:=xlDown
>>> Rows(26).Insert Shift:=xlDown
>>>
>>> isabelle
>>>
>>> Franki a écrit :
>>>> Bonjour à tous,
>>>>
>>>> dans une feuille de données, j'aimerai
>>>> par le biais d'une formule en VBA que
>>>> Excel ( 2007 ) insérer
>>>> une ligne vide entre la ligne dont C16 (268)
>>>> et la ligne C17 (269)
>>>> et éventuellement une ligne vide
>>>> entre C25 (278)
>>>> C26 (279)
>>>>
>>>> A B C
>>>> 1 Données Données 256
>>>> 2 Données Données 257
>>>> 3 Données Données 258
>>>> 4 Données Données 258
>>>> 5 Données Données 259
>>>> 6 Données Données 260
>>>> 7 Données Données 261
>>>> 8 Données Données 262
>>>> 9 Données Données 263
>>>> 10 Données Données 264
>>>> 11 Données Données 265
>>>> 12 Données Données 266
>>>> 13 Données Données 267
>>>> 14 Données Données 268
>>>> 15 Données Données 268
>>>> 16 Données Données 268
>>>> 17 Données Données 269
>>>> 18 Données Données 270
>>>> 19 Données Données 272
>>>> 20 Données Données 273
>>>> 21 Données Données 274
>>>> 22 Données Données 275
>>>> 23 Données Données 276
>>>> 24 Données Données 277
>>>> 25 Données Données 278
>>>> 26 Données Données 279
>>>> 27 Données Données 279
>>>> 28 Données Données 279
>>>> 29 Données Données 279
>>>> 30 Données Données 279
>>>>
>>>> Merci et bon Week-End...
>>>>
>>>>
>>



Avatar
Franki
Bonjour Isabelle,
En fait ma feuille de données contient des secteurs, les cellules "A" ; "B"
; "D" ; "E" ect..
sont des dates ,des Noms ,des index ect.. le tout trié par des macros et
filtres
compliqués et dont le résultat parfaitement automatisé est parfait sauf
que j' aimerai intercaler une ligne blanche entre les divers secteurs
contenus dans
la cellule "C"
Comme chaque ligne est de couleur différente , cela permettrait de bien
distinguer
clairement les secteurs par ces blancs ainsi intercalés....
Je reconnais que ce n'est pas trop explicite. Cependant ces données étant
des
données 'sensibles" je ne peux pas en faire une copie sur le net
Bisous






"isabelle" a écrit dans le message de news:
umL$
ps/

si c'est pour faire ressortir des groupes de cellule identique :

Sub Macro1()
For i = 2 To Range("C65536").End(xlUp).Row
If Range("C" & i) = Range("C" & i + 1) Or Range("C" & i) = Range("C" & i -
1) Then Range("C" & i).Interior.ColorIndex = 6
Next
End Sub

isabelle

isabelle a écrit :
bonjour Franky,

ton exemple n'est pas très explicite,
pourquoi n'y a t'il pas de ligne insérer entre les lignes 2:3, 4:5, et
13:14

isabelle

Franki a écrit :
Sympa Isabelle,
Sauf que mon exemple est fixe mais pas
mes données.
En effet, j'utilise une macro auparavant qui trie
mes données et je n'ai pas fatalement dans la
cellule "C16" la valeur 268 pas plus que 269
dans la cellule "C17" car les données sont volatiles...
c'est ce qui me gène dans la formule"Rows(17)
ou Rows(26)
Bien à toi Isabelle...



"isabelle" a écrit dans le message de news:

bonjour Franki,

Rows(17).Insert Shift:=xlDown
Rows(26).Insert Shift:=xlDown

isabelle

Franki a écrit :
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...













Avatar
Franki
En fait, l'idéal serait que la condition pour insérer une ligne blanche
dans mes tableaux serait que la condition ne se trouve pas dans "rows(17)
mais une formule conditionnelle dans ma colonne "C" qui appliquerait
systématiquement une ligne blanche entre la cellule "C" qui contient 268
et entre la cellule "C" qui contient 269
Idem pour "C" 278 et
"C" 279



Rows(17).Insert Shift:=xlDown
Rows(26).Insert Shift:=xlDown

isabelle

Franki a écrit :
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...

















Avatar
Franki
> En fait, l'idéal serait que la condition pour insérer une ligne blanche
dans mes tableaux serait que la condition ne se trouve pas dans "rows(17)
mais une formule conditionnelle dans ma colonne "C" qui appliquerait
systématiquement une ligne blanche entre la cellule "C" qui contient 268
et entre la cellule "C" qui contient 269
Idem pour "C" 278 et
"C" 279



Rows(17).Insert Shift:=xlDown
Rows(26).Insert Shift:=xlDown

isabelle

Franki a écrit :
Bonjour à tous,

dans une feuille de données, j'aimerai
par le biais d'une formule en VBA que
Excel ( 2007 ) insérer
une ligne vide entre la ligne dont C16 (268)
et la ligne C17 (269)
et éventuellement une ligne vide
entre C25 (278)
C26 (279)

A B C
1 Données Données 256
2 Données Données 257
3 Données Données 258
4 Données Données 258
5 Données Données 259
6 Données Données 260
7 Données Données 261
8 Données Données 262
9 Données Données 263
10 Données Données 264
11 Données Données 265
12 Données Données 266
13 Données Données 267
14 Données Données 268
15 Données Données 268
16 Données Données 268
17 Données Données 269
18 Données Données 270
19 Données Données 272
20 Données Données 273
21 Données Données 274
22 Données Données 275
23 Données Données 276
24 Données Données 277
25 Données Données 278
26 Données Données 279
27 Données Données 279
28 Données Données 279
29 Données Données 279
30 Données Données 279

Merci et bon Week-End...