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]

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]

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

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


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]

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]

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

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]

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]

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]

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]

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 & ":" & "D" & i).Insert Shift:=xlDown
    ActiveCell.FormulaR1C1 = "toto"

Bonne Journée

[aurel]

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