VBA:Inserer ligne

[bertrand1202]

Bonjour

Je recherche des explications sur cette fonction.
Je l'ai fait il y a deux jours , je le refais et ça ne pmarche pas .

Je cherche à insérer une ligne si cellule correspond à condition .
Quelle est la différence entre insert shift:xldown et entire row .insert

J etravaille sur une cellule appelée Vprenom ,
dois je noter Vprenom.offset(Vprenom,1) ou Vprenom(Vprenom.row,1)
Quelle est la solution dans la norme.
Ci joint :
Bout de code réalisé.
Sub Vinsereligne()
Dim Vprenom As Range

For Each Vprenom In Range("a4:a" & Range("A65536").End(xlUp).Row)
If Vprenom = "Lapin" Then
Cells(Vprenom.Row + 1, 1).Insert Shift:=xlDown
End If
Next Vprenom
End Sub
Merci de vos explications

 

[gwenlorin]

Re : VBA:Inserer ligne

Bonjour,

le code avec quelques corrections en rouge :

Sub Vinsereligne()
Dim Vprenom As Range

For Each Vprenom In Range("a4:a" & Range("A65536").End(xlUp).Row)
    If Vprenom[COLOR="Red"].Value [/COLOR]= "Lapin" Then
        [COLOR="Red"]Rows(Vprenom.Row)[/COLOR].Insert Shift:=xlDown
        [COLOR="Red"]Exit Sub[/COLOR]
    End If
Next Vprenom
End Sub

le test ="Lapin" est fait sur la valeur de la cellule
Insertion de ligne porte sur la ligne et pas la cellule
j'ai ajouté un exit sub car sinon tu boucles jusqu'a dernière cellule de la feuille et ensuite erreur -> si tu as "lapin" en A5, la macro ajoute une ligne, mais en A6 on retrouve le "Lapin" que l'on vient de décaler , etc ...

J'espère que ca te va

 

[bertrand1202]

Re : VBA:Inserer ligne

Bonjour

Merci , par contre , aucune ligne n'est ajoutée , j'essaye de voir ce qui bloque mais en essayant différentes possibilités et modifier , rien ne change.
Merci de ton aide , c'est dur de piger la mécanique VBA .
@+

 

[gwenlorin]

Re : VBA:Inserer ligne

chez moi tout marche bien.
Quand tu test "Lapin" est bien sur noté sur une cellule de la colonne A et row >4 ?😱

 

[bertrand1202]

Re : VBA:Inserer ligne

Bnjour

Refait
pas de problème , ça marche pour le premier Lapin, par contre si il y a une deuxième ligne avec Lapin , il n'insère pas de ligne

Merci , cela me permet de comprendre les éléments de VBA
@+

 

[gwenlorin]

Re : VBA:Inserer ligne

OK c'est normal. Le exit sub que j'ai mis dans le code arrête le traitement dès que la macro à trouvé un "Lapin"

Dans ta demande je n'avais pas saisi que le cas pouvait être multilple.

ce code doit marcher :

Sub Vinsereligne()
Dim lastrow As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False

lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée
i = 4 '1° ligne traitée
Do While i <> lastrow
    If Cells(i, 1).Value = "Lapin" Then 'détection du "Lapin"
        Rows(i).Insert Shift:=xlDown
        lastrow = Range("A65536").End(xlUp).Row 'détecte la dernière ligne occupée suite à insertion
        i = i + 1 'on se repositionne sur la ligne avec "Lapin"
    End If
    i = i + 1 'passage ligne suivante
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[bertrand1202]

Re : VBA:Inserer ligne

Bnjour

Merci pour ce commentaire commenté , en plus je vais pouvoir me lancer sur Do While .
Merci encore et désolé du dérangement ;je cherche à comprendre le fonctionnement de VBA pas à pas en me posant les quetions auxquelles je suis confronté sur la réalisation d'un tableau .
Le langage est encore un peu hermétique .
Lire les livres et faire des exercices concrets mais simple est ardu mais enrichissant. Merci également à ce forum

Merci
@+

 

[gwenlorin]

Re : VBA:Inserer ligne

Your welcome !

 

[bertrand1202]

Re : VBA:Inserer ligne

Thank you For your help