inssere les lignes entre deux ligne en VBA

[Ilino]

Bonsoir Forum😱
Je souhaiterai avoir un code VBA pour résoudre mon souci suivant :
Dans la cellule I74 , je saisie un chiffre de 0 a 100 avec le code souhaité , je souhaiterai insérer des ligne entre la ligne 75 et 76 selon le nombre affiché dans la cellule I76 et sans effacer le contenu de la ligne 76
GRAZIE

 

[Gelinotte]

Re : inssere les lignes entre deux ligne en VBA

Bonsoir,

Il y a bien des façons ... en voilà une :

Sub InsererDesLines()
Dim X As Integer
Dim Y as integer

X = Cells(74, 9).Value
    
    For Y = 1 To X
       Rows(74 + 1).Insert
    Next Y

End Sub

Geli

 

[Ilino]

Re : inssere les lignes entre deux ligne en VBA

Bonsoir
merci pour la réponse c'est bien ce que je cherchais 😎
grazie et Bon week end

 

[Gelinotte]

Re : inssere les lignes entre deux ligne en VBA

Bonsoir,

Rows(74 + 1).Insert ou Rows(75).Insert c'est la même chose.

Mais 74 +1 est plus facile de se souvenir qu'on lit la ligne 74 dans la colonne i (9). Le +1 sert à descendre d'une ligne, sinon l'insertion se fait au dessus de la ligne 74.

Bon long congé (car ici au Canada, lundi c'est la Fête du travail, un jour férié).


Geli

 

[job75]

Re : inssere les lignes entre deux ligne en VBA

Bonjour Ilino, Gelinotte,

Bien tardivement mais comme il est dit :

je souhaiterai insérer des ligne entre la ligne 75 et 76

Rows(76).Resize([I74]).Insert

Pas besoin de boucle.

A+