Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

insertion de ligne si la cellule n'est pas vide

  • Initiateur de la discussion Initiateur de la discussion JofK
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JofK

XLDnaute Nouveau
Bonjour à tous.

Je tiens à vous remercier par avances des solutions qui me seront proposées par les utilisateurs de ce forum.
Etant un novice en VBA je sollicite votre aide.

J’aurais besoin d’une macro pouvant insérer 8 lignes (pour être exacte) quand la cellule A n’est pas vide.

Vous trouverez en Feuil1 une infime partie des données et en feuil2 le résultat attendu.

Il me semble que l’on doit utiliser les formules mais malheureusement je ne sais pas les compiler et :
If Not IsEmpty(Cells("A2")) Then
Selection.EntireRow.Insert

Merci de vos réponses
 

Pièces jointes

Re : insertion de ligne si la cellule n'est pas vide

Salut JofK, VDAVID, LE Forum

une autre solution

Code:
Sub EssAi()
For i = 10 To 2 Step -1
    Rows(i & ":" & i + 7).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i
End Sub

EDITION: Arf... j'avais lu 10 lignes et non 8... Rectifié 🙂 code et fichier

Bonne Journée
 

Pièces jointes

Dernière édition:
Re : insertion de ligne si la cellule n'est pas vide

ouaaa

Un grand merci Vous c'était exactement ce que j'avais besoin.

J'ai juste prolongé la formule jusqu'à la ligne 1942

Encore merci
 
Dernière édition:
Re : insertion de ligne si la cellule n'est pas vide

désolé de vous déranger encore une fois.

ou devons nous aller pour signaler que la solution a été trouvée afin de cloturer la discussion

merci à vous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
Réponses
5
Affichages
3 K
adidu44
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…