Inserer une ligne

[aurel]

Bonjour le forum,

Alors je veux inserer une ligne a partir de la premiere colonne vide de A, tout se fait bien sauf l'insertion!!!! je l'insert dans une zone donc normaleemnt ma zone doit s'agrandir d'une ligne he ben non!!


Voici le code


Sub Save_new_case()

Worksheets("cas enregistrés").Select 'selectionne la feuille
Dim i As Integer 'declaration de i
i = Range("A1").End(xlDown).Row + 1 ' trouve la premiere case vide de la colonne A
Selection.Insert Shift:=xlDown
Range("A" & i).Select
ActiveCell.FormulaR1C1 = "toto"

End Sub


Merci d'avance

 

[Staple1600]

Re : Inserer une ligne

Bonjour


Essaie comme ceci

 Sub Save_new_case()
Dim i As Long  'declaration de i
 With Worksheets("cas enregistrés")
    i=.[A65536].End(xlUp).Row
    Range("A" & i+1).FormulaR1C1 = "toto"
End With
End Sub

 

[aurel]

Re : Inserer une ligne

merci a toi Staple1600,
mais sa n'a pas l'air de fonctionner. de plus, etant novice en VBA j aurais aimer que qqun corrige juste ma faute a mon avis il n'y a pas grand chose.

Bonne journée a toi

 

[Staple1600]

Re : Inserer une ligne

Re

Et la ça ne fonctionne pas?

 Sub Save_new_case()
Dim i As Long  'declaration de i
 With Worksheets("cas enregistrés")
    i=.[A65536].End(xlUp).Row
    Range("A" & i+1).FormulaR1C1 = "toto"
End With
End Sub

 

[Staple1600]

Re : Inserer une ligne

Re


Pour répondre à ton souhait

 Sub Save_new_caseORIGINAL()
Dim i As Integer 'declaration de i
Worksheets("cas enregistrés").Select 'selectionne la feuille
i = Range("A65536").End(xlUp).Row + 1 ' trouve la premiere case vide de la colonne A
Range("A" & i).Select
ActiveCell.FormulaR1C1 = "toto"
End Sub

 Sub Save_new_caseMODIFIE()
Dim i As Long  'declaration de i
 With Worksheets("cas enregistrés" )
    i = .[A65536].End(xlUp).Row
    Range("A" & i + 1).FormulaR1C1 = "toto"
End With
End Sub

Les deux macros donnent le même résultat non?

 

[pierrejean]

Re : Inserer une ligne

bonjour aurel

Salut Staple

en supposant que j'aie compris

Sub Save_new_case()
Worksheets("Feuil1").Select 'selectionne la feuille
Dim i As Integer 'declaration de i
i = Range("A1").End(xlDown).Row + 1 ' trouve la premiere case vide de la colonne A
Range("A" & i).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
ActiveCell.FormulaR1C1 = "toto"
End Sub

 

[aurel]

Re : Inserer une ligne

Merci merci, mais en faite il y a un truc qui marche pas.
Je precise: je veux inserer un ligne des que la premiere cellule de la colonne A est vide, et non ecrire toto uniquement.

En faite g creer une zone donc si je n'insere pas de ligne dans cette zone j'aurai ulterieurement des pb.

Espere avoir été clair.

 

[pierrejean]

Re : Inserer une ligne

Re

et si tu mettais un petit fichier exemple !!!
on se comprendrait surement mieux lui et nous
6 posts pour inserer une ligne !!
on va pulveriser des records

 

[aurel]

Re : Inserer une ligne

Je suis d'accord mais pas evident de joindre un fichier. Vos code marche tres bien pour ecrire toto, mais quand je verifie dans ma zone aucune ligne en plus.

par exemple ma zone: "données" = $A$2:$D$1002
apres insertion j aimerais une ligne de plus dans ma zone comme ceci
$A$2:$D$1003

Je vois pour reduire mon fichier et l'inserer mais c pas gagner.


Merci a vous 2

 

[Spitnolan08]

Re : Inserer une ligne

Bonjour le fil, aurel, stapple, Pierrejean,

tout à fait d'accord avec Pierrejean, d'autant qu'à priori son code fait ce que tu demandes... Une version qui fait la même chose que celui de Pierrejean mais un peu simplifié😉

Sub Save_new_case()
Dim i As Integer 'declaration de i
Worksheets("Feuil1").Select 'selectionne la feuille
i = Range("A1").End(xlDown).Row + 1 ' trouve la premiere case vide de la colonne A
Range("A" & i + 1).Insert Shift:=xlDown
Range("A" & i + 1).Value = "toto"
End Sub

Cordialement

 

[aurel]

Re : Inserer une ligne

Encor moi, avec un fichier, jespere que sa sera sufisant.
Je ne peux pas mettre le fichier entier, plusieurs userform, module, feuilles...
alors encor merci et desolé pour la longueur de cette discution

 

[Dull]

Re : Inserer une ligne

Salut aurel, Jean Marie, Spitnolan, Pierrejean, le Forum

Peut-être Comme cela

    Worksheets("Feuil1").Select         'selectionne la feuille
    Dim i As Integer                            'declaration de i
    i = Range("A1").End(xlDown).Row + 1         ' trouve la premiere case vide de la colonne A
    Range("A" & i).Offset(1, 0).Select
    Range("A" & i [B]& ":" & "D" & i[/B]).Insert Shift:=xlDown
    ActiveCell.FormulaR1C1 = "toto"

Bonne Journée

 

[aurel]

Re : Inserer une ligne

Salut Dull,
re Jean Marie, Spitnolan, Pierrejean, le Forum

C bon sa a l'air de marché.

merci a vous tous et a bientot
Bonne journée