Insérer après la première ligne

[sebgo]

Salut,

A la recherche d'une astuce pour achever un projet, je bute sur l'insérer les données saisies dans un formulaire avant la 2 ème ligne (qui n'est pas vide) de ma feuille. Ce code remplace les données de la ligne 2 sans faire une insertion.
ActiveSheet.Range("A2").Insert Shift:=xlUp

Si qq'1 peut me donner coup de main ce serait genial.
Je joint un exemple allégé.
A+

 

[Papynou]

Re : Insérer après la première ligne

Bonjour sebgo, le forum

Pour insérer une ligne avant d'enregistrer, j'ai utilisé le code ci-dessous :

Sub enregistre()
Sheets("feuil1").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
End Sub

 

[Bebere]

Re : Insérer après la première ligne

bonsoir Sebgo,Papynou
activesheet.rows(2).insert
à bientôt

 

[sebgo]

Re : Insérer après la première ligne

Salut Papynou, Bebere

Merci pour l'aide. Quand je l'adapte, il n'insère pas mais remplace le contenu de la ligne 2.

Peut être pouvez vous adapter mon fichier joint pour moi?
Merci et A+
Bonne journéeà tous.

 

[Pierrot93]

Re : Insérer après la première ligne

Bonjour Sebgo, Bebere, Papynou

Si je ne me suis pas trompé de macro utilisée, tout cela me semble normal, si je reprends le code utilisé :

Sub EntréeDonnées()
If ActiveSheet.[A2] <> "" Then
    ActiveSheet.[A2].Select

Si ta cellule A2 n'est pas vide tu la sélectionnes, et ensuite tu renseignes les différentes valeurs....

Peut être remplacer "<>" par "="....

Bonne journée
@+

 

[Papynou]

Re : Insérer après la première ligne

re
Bonjour bebere, sebgo, le foum

J'ai modifié ton fichier de la manière que je connais. Il y a surment plus simple mais ça à l'air de fonctionner.

 

[sebgo]

Re : Insérer après la première ligne

Salut Papynou, Pierrot93,

C'est exactement ce que je voulais. Je vais l'adapter à ma situation.
Merçi à tous et bonne journée.
A+

 

[pierrejean]

Re : Insérer après la première ligne

bonjour sebgo
bonjour Papynou
bonjour Pierrot93
salut bebere
salut le forum

ma version:

If ActiveSheet.[A2] <> "" Then
Rows(2).Insert
End If
ActiveSheet.[A2].Select

 

[Bebere]

Re : Insérer après la première ligne

bonjour Sebgo,PierreJean,pierrot,Papynou
apporté quelques changement dans le code
à bientôt

 

[Papynou]

Re : Insérer après la première ligne

Salut Bebere,

Un seul mot : Magnifique !