Discussion :

[ludovicpierre]

Hello

J'ai besoin de votre aide : j'ai un souci de code sur lequel j'ai passé pas mal de temps mais je seche !
Le fichier joint a été modifié : inscription des valeurs en lignes plutôt qu'en colonne
Tout fonctionnait très bien jusqu'au jour ou j'ai du faire une fausse manip en bidouillant le code pour essayer de l'optimiser
Du coup, plus de transfert des données vers l'onglet DATASheet…sans message d'erreur

J'ai un essai terrain ce lundi et je ne trouve pas la solution !!!

Si vous pouvez y jeter un œil rapidement, ce serait super sympa

Merci d'avance

Ludo

PS : ne vous étonnez pas si le code n'est pas optimisé..j'ai pour l'instant cherché à valider toutes les lignes (je débute en VBA)

[helas]

Bonsoir,
le code présente ceci

Code :

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

1
2
 
If IsEmpty(UserForm.ID1.Value) Then

cela signifie que si le champ ID1 est vide alors on ecrit les données
peut être s'agit-il du contraire

Code :

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

1
2
 
If Not IsEmpty(UserForm.ID1.Value) Then

[ludovicpierre]

C'est ce que l'on appelle une erreur bete !
Merci beaucoup, j'aurai pu chercher longtemps !