Hello Galopin,
forcément, ça marchera mieux. Je suis un ane mais je me soigne.
Merci pour tout,
Amicalement,
Elfi
-- Jeu Oct 28, 2010 2:35 pm --
Rebonjour,
Galopin, help!
Pour améliorer tout cela, je voudrais au préalable supprimer toute les lignes dont les cellules de la colonne B sont vide. En effet, sans cela, à chaque fois que j'applique la macro initiale, une ligne vide s'insère m^me s'il y en a déjà une.
J'ai essayé ceci:
Sub insererligne()
'Supprimer la ligne si la cellule B est vide
For i = [B65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "" Then Cells(i, 1).EntireRow.Delete
Next i
'puis insérer une ligne après celle où total est saisie dans la cellule A
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "Total" Then Cells(i + 1, 1).EntireRow.Insert
Next i
End Sub
Ou est mon erreur d'ignare avéré?
D'avance, merci,
Elfi
-- Jeu Oct 28, 2010 3:02 pm --
OK, c'est encore moi.
A force de tatonner, je suis arrivé au résultat escompté (en l'occurence, dans l'original, les cases total sont en colonne G). Voici le code:
Sub insererligne()
'Créée par Elfi avec l'aide précieuse de Galopin du Forum
'Supprimer la ligne si la cellule F est vide
For i = [F65000].End(xlUp).Row To 1 Step -1
If Cells(i, 6) = "" Then Cells(i, 6).EntireRow.Delete
Next i
'puis insérer une ligne après celle où "Total" est saisie dans la cellule G
For i = [G65000].End(xlUp).Row To 1 Step -1
If Cells(i, 7) = "Total" Then Cells(i + 1, 7).EntireRow.Insert
Next i
End Sub
Il me reste un petit problème: les cases G concernées ne sont pas écrite "Total" mais comporte le terme en début.
Exemple: Total des petits fours Total des desserts Total des canapés .....
Comment procéder pour la macro?
Ouille Ouille, ça se complique.
A+,
Elfi