Discussion :

[Nebula2]

Bonsoir
J'ai essayé de me "dépatouiller" mais là je suis bloqué. Je rencontre un problème lorsque je mets un classeur en partage. En effet, lorsque je suis l'utilisateur unique tout va bien, mais j'ai une erreur ("ERREUR D’EXÉCUTION 1004: la méthode insert de la classe Range a échoué.")

voici le code en cause (validation de saisie via UserForm) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Sheets("Détail").Select
Range("A2:I2").Select
     Selection.Insert Shift:=x1Down, CopyOrigin:=x1FormatFromLeftOrAbove
     Unload UserForm1
     Load UserForm1
     UserForm1.Show Modal
     End Sub

Par contre, si je remets le code précédent, tout marche , même en partage, mais l'inconvénient c'est qu'il rajoute une ligne entière alors que l'insertion ne doit concerner que A2:I2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Rows("2:2").Select
     Selection.Insert Shift:=x1Down, CopyOrigin:=x1FormatFromLeftOrAbove
     Unload UserForm1
     Load UserForm1
     UserForm1.Show
     End Sub

Quelqu'un a-t-il une idée ?
Merci

[nibledispo]

Bonjour,

Je suppose que tu veux écrire "code suivant" qui logiquement insert une ligne entière ?

Le bouton est-il sur un formulaire ou est-ce un "ActiveX" posé sur FEUIL2 ?

La non mention de la feuille dans le second code suggère un "ActiveX" posé sur celle-ci.

Cordialement,

[SfJ5Rpw8]

Bonjour,

en mode partagé il n'est pas possible d'insérer une partie de la ligne....

tu peu peu-être "déplacer" tes donnés d'une ligne vers le bas..

[Nebula2]

Bonsoir

oui je vais adopter cette solution (déplacer les donnés d'une ligne vers le bas)

Merci

Cordialement