Inserer 5 lignes

XL 2007 VBA Bonjour a tous et toutes forum bonjour

Voila j'ai une cellule F26 celle ci est vide, pour l'instant je souhaiterai SVP des que cette cellule F26 contient quoi que ce soit date ,lettre chiffre me fasse demarrer par une petite boucle pour inserer 5 lignes vierges a partir donc de F26

donc il me faut tester F26 si elle vide il ne se passe rien sinon que l'insertion de 5 lignes se fassent automatiquement.

merci a vous suis preneur d'un petit code, si vous avez

Bonne apres midi, et merci bien a vous

Raymond

Bonjour Eliot,

a placer dans le code de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$26" Then
        For i = 1 To 5
            ActiveCell.EntireRow.Insert
        Next i
    End If
End Sub

bonne journée

Bonjour Eliot, Math,

Evite plutôt ta boucle

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$26" Then
         Rows("27:31").Insert Shift:=xlDown
    End If
End Sub

Bonjour Math et Sylvain

Merci pour la reponse rapide, les deux codes fonctionnent

que dire hé bien merci beaucoup a vous deux c'est sympa

Bon W-end de Pâques a tous

Raymond

daccord avec ta solution Sylvain