MACRO POUR INSERTION LIGNE

si tu ne veux pas passer par une macro

tu peux ajouter des sous-totaux
sélectionner tout et copier dans une nouvelle feuille
filtrer et supprimer toutes les lignes qui commencent par "total"

"Antony" <Antony@discussions.microsoft.com> a écrit dans le message de news:
D609511B-2F62-45B2-9574-51B751A69AB6@microsoft.com...

Bonjour,

Je recherche une solution facile (macro?)pour pouvoir inserer
automatiquement une ligne blanche a chaque changement de colonne.
EX
HAUT MEDOC
HAUT MEDOC
PAUILLAC
PAUILLAC
PAUILLAC

et je souhaite avoir
HAUT MEDOC
HAUT MEDOC

PAUILLAC
PAUILLAC
PAUILLAC

Merci d'avance pour votre aide.
Antony

Les grandes lignes pour des valeurs en A2:Axxx

Sub zzz()
For i = [A65536].End(3).Row To 2 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then Cells(i, 1).Insert
Next
End Sub

AV

Bonjour.
En supposant que ta cave soit en colonne A, essaie :

Sub test()
Dim Res As String
Range("A1").Select
Res = [A1]
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value <> Res Then
Res = ActiveCell.Value
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub

Cordialement.
Daniel
"Antony" <Antony@discussions.microsoft.com> a écrit dans le message de news:
D609511B-2F62-45B2-9574-51B751A69AB6@microsoft.com...

Bonjour,

Je recherche une solution facile (macro?)pour pouvoir inserer
automatiquement une ligne blanche a chaque changement de colonne.
EX
HAUT MEDOC
HAUT MEDOC
PAUILLAC
PAUILLAC
PAUILLAC

et je souhaite avoir
HAUT MEDOC
HAUT MEDOC

PAUILLAC
PAUILLAC
PAUILLAC

Merci d'avance pour votre aide.
Antony

Monsieur le Président,
Cher Alain,

Bonjour,
Ton approche du problème est fort semblable à celle pour les doux blonds.
Si i = 10, alors ta condition devient en Français : si a10 est différent de
A9, alors insérer au-dessus de A10.
On aura donc la ligne analysée qui deviendra A11, A10 sera vide et A9 sera
toujours la ligne de référence.
Donc, A10 (vide) sera différente de A9. Et comme tu fais du step -1, je ne
comprends pas bien.
Ou alors, puisque XL a déja analysé A10, il sautera à l'analyse : ESKE A9
est <> de A8 .....
Quoi y a juste ?
Jacques, élève peu studieux en cette période estivale.


--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23dcVXMcmFHA.3656@TK2MSFTNGP09.phx.gbl...

Les grandes lignes pour des valeurs en A2:Axxx

Sub zzz()
For i = [A65536].End(3).Row To 2 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then Cells(i, 1).Insert
Next
End Sub

AV

Monsieur le Secrétaire,
Cher Jacquouille,

Serait-ce que des tests t'auraient mis le doigt sur des errements miens ?
Si oui n'hésite pas à te plaindre plubliquement !
Pour l'heure il y a de l'eau à 29° qui m'attend !
Tu comprendras donc que....
Veuillez agréer....

AV à la baille !

Cher Président
Je n'ai pas testé ta macro, et je ne le ferai pas car je suis certain
qu'elle fonctionne.
Le but de mon msg était que tu expliques à mon neurone.
J'ai étudié (par écrit et publiquement en ces lieux) les deux solutions
possibles à mes yeux et j'aurais aimé que tu donnes le pourquoi ça va ou
pourquoi la mauvaise solution ne vas pas.
Mais, puisque tu as de l'eau à 29 ° et que cette température est
incompatible avec le ricard .....

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
exTJDwcmFHA.3316@TK2MSFTNGP14.phx.gbl...

Monsieur le Secrétaire,
Cher Jacquouille,

Serait-ce que des tests t'auraient mis le doigt sur des errements miens ?
Si oui n'hésite pas à te plaindre plubliquement !
Pour l'heure il y a de l'eau à 29° qui m'attend !
Tu comprendras donc que....
Veuillez agréer....

AV à la baille !