Répéter l'insertion et la copie de plusieurs lignes

Re : Répéter l'insertion et la copie de plusieurs lignes

Bonjour macno,

Quel rapport logique entre deux codes postaux et un pourcentage de variation ? Peux-tu nous préparer un petit fichier pour nous expliquer ta logique ?

Re : Répéter l'insertion et la copie de plusieurs lignes

salut MACNO,

par macro :

Sub Macro1()

Range("a1").Select (si tu considères que A1 est la cellule contenant le premier code postal)
ligne1:
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell = 0.25
Selection.NumberFormat = "0.00%"
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell = 0.5
Selection.NumberFormat = "0.00%"
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell = 0.75
Selection.NumberFormat = "0.00%"
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell = 1
Selection.NumberFormat = "0.00%"
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
End
Else: GoTo ligne1
End If
End Sub

Re : Répéter l'insertion et la copie de plusieurs lignes

Merci Lionel (et dsl pour le délai !)

Raja : En fait il s'agissait d'accorder un % de réservation pour un client sur un emplacement par code postal (25, 50, 75 ou 100)

A bientôt
macno