insertion conditionnelle

[plug2]

salut a tous

dans une macro comment faire pour inserer une ligne au dessus cellule selon son format ou sa valeur.

merci a+

plug2

 

[Robert]

Salut Plug2, salut le forum,

Selon la valeur on pourrait faire comme ça : (à adapter à tes besoins ici la condition est : valeur supérieure à 120)

Public Sub test()
If ActiveCell.Value > 120 Then
Selection.EntireRow.Insert
End If
End Sub

Selon de format, il faudrait que tu sois plus précis...

À plus,

Robert

 

[plug2]

Salut Robert, salut a tous

pour etre plus precis, j'ais dans une colonne de mon tableau une serie de cellules identiques et je voudrais inserer une ligne entre chaque groupes de cellule identique.

ce ne doit pas etre tres compliqué pour vous. (pour moi si)
merci
a+ plug2

 

[Robert]

Re salut plug2, salut le forum,

Voici une macro qui devrait te convenir.

Dans l'exemple la macro travaille sur la colonne A. Modifie selon tes besoins.

Public Sub dif()
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cel.Value = "" Then GoTo suite
If cel.Value <> cel.Offset(1, 0).Value Then
cel.Offset(1, 0).Select
Selection.EntireRow.Insert
End If
suite:
Next cel
End Sub

À plus,

Robert

 

[Robert]

Re...

Je me suis encore planté en voulant mettre du gras...

il faut lire :

Dans l'exemple la macro travaille sur la colonne A.

ou, si j'y arrive :

Dans l'exemple la macro travaille sur la colonne A .

À plus,

Robert

 

[plug2]

Re Salut Robert, salut a tous

je m'excuse robert mais pourait tu me faire un pettit exemple car je n'arrive pas a utiliser ton code.

merci encore
a+ plug2

 

[Robert]

Re re plug2,

voili voila...

À plus

Robert

 

[plug2]

salut Robert,
super!! merci pour tout, et merci a tout le forum.

encore merci, a+ plug2