Insertion Ligne vide...

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #17569881
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...





Franki
Le #17570721
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...






isabelle
Le #17573431
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...









isabelle
Le #17574151
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...











Papyjac
Le #17574261
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...
>>>>
>>>>
>>



Franki
Le #17574501
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...













Franki
Le #17574601
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...

















Franki
Le #17581611
> 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...





















Publicité
Poster une réponse
Anonyme