> Tous les forums > Forum Bureautique
 Insertion lignes VBA
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Hajar
  Posté le 13/09/2017 @ 01:09 
Aller en bas de la page 
Petite astucienne

Bonsoir,

Je cherche à insérer deux lignes sur excel, à chaque fois que la case active est égale à une valeur " SECTION ID". J'ai donc réalisé la commande sur VBA. Mais ça marche pas et je n'arrive pas à trouver l'erreur . Veuillez vérifier l'algorithme avec moi . Merci beaucoup et d'avance.

Bonne soirée

[Configuration automatique à compléter]
Windows 7
Chrome 60.0.3112.113

Publicité
Hajar
 Posté le 13/09/2017 à 01:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Prière de trouver Ci-dessous le lien de ma feuille excel:

http://www.cjoint.com/c/GImxphADJWl

Debrief
 Posté le 13/09/2017 à 08:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Dim i, n As Long

n = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
i = 1

While i < n
If ActiveSheet.Cells(i, 1).Value = "SECTION ID" Then
ActiveSheet.Rows(i).Resize(2).Insert Shift:=xlDown
i = i + 3
n = n + 2
Else
i = i + 1
End If
Wend

Hajar
 Posté le 13/09/2017 à 10:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

Merci infiniment pour votre retour. votre code marche très bien .

Très bonne journée :)

Debrief
 Posté le 13/09/2017 à 10:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Welcome.

Je crois que j'aurais dû mettre While i <= n pour être tout à fait correct.

Cordialement,
D.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique